teodormircea
XLDnaute Occasionnel
Salut le forum
Voila j'ai une macros qui doit normalement m'indiquer un caractère a effacer dans une colonne donne .
Ça me marque avec la couleur le caractère mais çà me l'efface pas.Quelque chose m'échappe.
voila le macros
Voila j'ai une macros qui doit normalement m'indiquer un caractère a effacer dans une colonne donne .
Ça me marque avec la couleur le caractère mais çà me l'efface pas.Quelque chose m'échappe.
voila le macros
Code:
Dim X As Integer
Dim r As Range
Dim c As String
c = InputBox(Prompt:="Choisir Caractere a effacer")
With CreateObject("vbscript.regexp")
X = CLng(InputBox(Prompt:="Quelle colonne?"))
If (X < 1) + (X > Columns.Count) Then Exit Sub
For Each r In Range(Cells(1, X), Cells(Rows.Count, X).End(xlUp))
r.Interior.ColorIndex = xlColorIndexNone
r.Interior.ColorIndex = 7
.Global = True
If .Test(r.Value) Then
r.Interior.ColorIndex = 7
r.Value = .Replace(r.Value, "")
End If
Next r
End With