B
Bruno02
Guest
Bonjour le forum,
Voila j'ai du texte avec plusieurs lettres en couleur ou lettre barrée.
Je modifie les caractères rouge en bleu et les autres couleurs en noir
Cela fonctionne avec mon code :
Sub remplacelacouleur()
For i = 1 To 50
If Selection.Characters(i, 1).Font.ColorIndex = 3 Then
Selection.Characters(i, 1).Font.ColorIndex = 5
Else:
Selection.Characters(i, 1).Font.ColorIndex = 0
End If
Next i
End Sub
Mon premier problème et je voudrais supprimer mes characters barré
if Selection.Characters(i, 1).Font.Strikethrough = True then ?????
Mon deuxième problème est que je voudrais pouvoir la faire tourner sur une plage de cellule.
Merci d'avance pour vos pistes
Bruno
Voila j'ai du texte avec plusieurs lettres en couleur ou lettre barrée.
Je modifie les caractères rouge en bleu et les autres couleurs en noir
Cela fonctionne avec mon code :
Sub remplacelacouleur()
For i = 1 To 50
If Selection.Characters(i, 1).Font.ColorIndex = 3 Then
Selection.Characters(i, 1).Font.ColorIndex = 5
Else:
Selection.Characters(i, 1).Font.ColorIndex = 0
End If
Next i
End Sub
Mon premier problème et je voudrais supprimer mes characters barré
if Selection.Characters(i, 1).Font.Strikethrough = True then ?????
Mon deuxième problème est que je voudrais pouvoir la faire tourner sur une plage de cellule.
Merci d'avance pour vos pistes
Bruno