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

zeltron · 20 Octobre 2006

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 · 20 Octobre 2006

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

Bonjour

Code:

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 · 20 Octobre 2006

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

Merci beaucoup Pascal.

Ca fonctionne impec.

Bonne journée

Cordialement

Zeltron

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

zeltron

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

zeltron

XLDnaute Occasionnel

Discussions similaires

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

zeltron

XLDnaute Occasionnel

PascalXLD

XLDnaute Barbatruc

zeltron

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency