Vba Excel : Characters et couleur

[Bruno02]

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

 

[wilfried_42]

Re : Vba Excel : Characters et couleur

bonjour bruno

pur la qestion 1 tu prends le probleme à l'enver, au lieu de supprimer les caracteres barrés garde les autres
exemple :

nouveau = ""
for i = 1 to len(range("A1"))
if range("A1").Characters(i, 1).Font.Strikethrough = false then nouveau = nouveau + mid(range("A1").value,i,1)
next i
range("A1").value = nouveau

pour la deuxieme question qu'appelles tu faire tourner une plage si j'ai compris, cela donne cela :

dim cel as range
for each cel in range(plage)
' traitement sur la cellule qui devient cel
next

 

[Bruno02]

Re : Vba Excel : Characters et couleur

Merci bcp Wilfried_42
C'est super et en plus je découvre l'utilisation de MID.

Salutations et à bientôt
Bruno