Bonjour,
J'ai fait une macro permettant de retirer les balises HTML des cellules.
Malheureusement, je n'arrive pas à retirer des bouts de code HTML du type ⁢ & $nbsp;
Le pattern pour retirer ces morceaux de code est fait, mais le problème vient de la phase de test.
Voici le code utilisé :
Avez vous une solution ?
Merci,
Arthur HO.
J'ai fait une macro permettant de retirer les balises HTML des cellules.
Malheureusement, je n'arrive pas à retirer des bouts de code HTML du type ⁢ & $nbsp;
Le pattern pour retirer ces morceaux de code est fait, mais le problème vient de la phase de test.
Voici le code utilisé :
Code:
Sub RemoveTags()
Dim r As Range, teststr As String
'Selection.NumberFormat = "@" 'set cells to text numberformat
Selection.NumberFormat = "0.00E+00"
With CreateObject("vbscript.regexp")
.Global = True
For Each r In Selection
.Pattern = "(\<.*?\>)"
r.Value = .Replace(r.Value, " ")
.Pattern = "\&.*?\;"
'If .test("&") = True Then r.Value = .Replace(r.Value, "&")
If .test("&It;") = True Then r.Value = .Replace(r.Value, "<")
'If .test(">") = True Then r.Value = Replace(r.Value, ">")
'If .test(""") = True Then r.Value = .Replace(r.Value, "'")
Next r
End With
End Sub
Avez vous une solution ?
Merci,
Arthur HO.