Mettre tous les "_" d'une cellule en blanc

[zeltron]

Bonjour à tout le forum;

Ma cellule A1 contient un texte, ce texte peut être plus ou moins long. Ce texte contient des "_" (underscore). J'aimerais par macro que tous les "_" de cette cellule soit de couleur blanche.

Cela est il possible? Pouvez -vous m'aider?

Merci d'avance

Cordialement

Zeltron

 

[PascalXLD]

Re : Mettre tous les "_" d'une cellule en blanc

Bonjour

Sub Macro1()

Dim x As Byte

For x = 1 To Len(Range("A1"))
    If Mid(Range("A1"), x, 1) = "_" Then Range("A1").Characters(Start:=x, Length:=1).Font.ColorIndex = 2
Next
End Sub

Bonne journée

 

[zeltron]

Re : Mettre tous les "_" d'une cellule en blanc

Merci beaucoup Pascal.

Ca fonctionne impec.

Bonne journée

Cordialement

Zeltron