Effacer caracteres

[teodormircea]

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

       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

 

[BOISGONTIER]

Re : Effacer caracteres

Bonjour,

   c = InputBox(Prompt:="Choisir Caractere a effacer")
    col = Application.InputBox("No colonne?", Type:=1)
    Set champ = Columns(col)
    For Each cell In champ.SpecialCells(xlCellTypeConstants, 23)
      If cell.Value Like "*" & c & "*" Then
        cell.Value = Replace(cell.Value, c, "")
        cell.Interior.ColorIndex = 33
      End If
    Next cell

JB
Formation Excel VBA JB

 

[Staple1600]

Re : Effacer caracteres

Bonjour



c = InputBox(Prompt:="Choisir Caractere a effacer")



T'en fais quoi ensuite de ton c ?

 

[teodormircea]

Re : Effacer caracteres

Merci gars cette solution est plus directe et plus facille

 

[teodormircea]

Re : Effacer caracteres

Merci gars cette solution est plus directe et plus facille