Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
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
 
Re : Effacer caracteres

Bonjour,

Code:
   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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
568
Réponses
1
Affichages
451
Réponses
3
Affichages
441
Réponses
0
Affichages
436
Réponses
17
Affichages
1 K
Réponses
0
Affichages
367
Réponses
2
Affichages
361
Réponses
5
Affichages
474
Retour