Supprimer les balises HTML des chaînes de texte

Si plusieurs chaînes de texte sont entourées de balises HTML, les méthodes présentées dans cet article vous permettront de toutes les supprimer facilement.

• Supprimer toutes les balises HTML simple à l’aide d’une formule
• Supprimer certaines balises HTML complexes à l’aide d’un code VBA

Supprimer toutes les balises HTML simple à l’aide d’une formule

Si vos chaînes de texte sont entourées de balises HTML simples, la fonction STXT d’Excel peut vous aider à résoudre ce problème. Sa syntaxe générique est la suivante :

• string: la chaîne de texte ou la valeur de cellule dont vous souhaitez supprimer les balises HTML.
• text_start: la position du premier caractère à utiliser.
• tag_len: la longueur des balises HTML présentes dans la chaîne de texte.

Veuillez copier ou saisir la formule suivante dans une cellule vide :

Ensuite, faites glisser la poignée de recopie vers les cellules auxquelles vous souhaitez appliquer cette formule ; toutes les balises HTML auront été supprimées des cellules, comme le montre la capture d’écran ci-dessous :

Explication de la formule :

NBCAR(A2)-7 : Cette fonction NBCAR calcule la longueur de la chaîne de texte située dans la cellule A2, puis soustrait 7 — soit le nombre total de caractères correspondant aux balises HTML, y compris les balises ouvrantes et fermantes — afin d’obtenir le nombre exact de caractères à extraire, sans inclure ces balises. Ce résultat servira d’argument « nb_caractères » dans la fonction STXT.

STXT(A2;4;NBCAR(A2)-7) : Cette fonction STXT extrait tous les caractères à partir du quatrième, sur une longueur égale au nombre de caractères renvoyé par la fonction NBCAR.

Supprimer certaines balises HTML complexes à l’aide d’un code VBA

Si plusieurs balises HTML figurent dans la chaîne de texte, comme le montre la capture d’écran ci-dessous, la formule précédente risque de ne pas fonctionner correctement. Dans ce cas, le code VBA suivant vous permettra de gérer des balises HTML plus complexes présentes dans les chaînes de texte.

1. Maintenez enfoncées les touches Alt + F11 dans Excel pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insertion > Module, puis collez le code VBA suivant dans la fenêtre du module.

Sub RemoveTags()
'updateby Extendoffice 
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xRg.NumberFormat = "@"
    With CreateObject("vbscript.regexp")
        .Pattern = "\<.*?\>"
        .Global = True
        For Each xCell In xRg
            xCell.Value = .Replace(xCell.Value, "")
        Next
    End With
End Sub

3. Ensuite, appuyez sur la touche F5 pour exécuter ce code. Une boîte de dialogue s’affiche alors ; veuillez sélectionner les cellules dont vous souhaitez supprimer les balises HTML, comme illustré ci-dessous :

4. Cliquez ensuite sur le bouton OK : toutes les balises HTML auront été supprimées des cellules sélectionnées, comme le montre la capture d’écran suivante :

Fonctions associées utilisées :

Autres articles :