Salut !
Je dispose d'un fichier excel avec dans une colonne, des lignes contenant du contenu html par exemple:
<p>texte<u>suite texte</u></p>
Je souhaiterais que pour toutes les cellules de cette colonne, colorier les balises html.
J'ai commencé cela:
Sub colorize_html_code(balise As String)
Dim cpt As Integer
Dim i As Long, j As Long
Dim maChaine As String
'Dim colonne
'colonne = InputBox("Which column ?")
maChaine = Range("A1").Value
i = InStr(1, maChaine, balise)
j = 1
Do While i
MsgBox ("Position de " & balise & ":" & i)
cpt = cpt + 1
j = i + 1
i = InStr(i + 1, maChaine & balise, balise)
If balise = "<b>" Then
Range("A1").Characters(Start:=i, Length:=3).Font.ColorIndex = 3
Else
Range("A1").Characters(Start:=i, Length:=4).Font.ColorIndex = 5
End If
Loop
cpt = cpt - 1
'MsgBox ("Total:" & cpt)
End Sub
Mais ...je pense être sur la mauvaise voie...
Si quelqu'un aurait une idée...
Merci !
Coding is not a crime!