Macro pour Changer des valeurs TXT Fermé

Question

Bonjour , je suis Novice en VBA  et je souhaite créer une Macro pour modifié certains code dans une Colonne 
Alors j'en suis au début
... Columns("B:B").Select
mais aprés je sais pas comment faire  car je doit modifié 
Quand le code G4R2 s'affiche  dans la colonne B il faut le changer en G4R3
puis G4F1 en G4R3
         G4Z3 en G4Z1
        G4G3 en G4G1
        G4U3 en G4U1
       G4L3 en G4L1
Si quelqun à des idées

f894009 · Answer

Bonjour,
au plus simple:
Sub test()
    'remplacement des 3 en 1
     Worksheets("feuil1").Columns("B").Replace What:="3", Replacement:="1", _
            SearchOrder:=xlByColumns, MatchCase:=True
    'remplacement des G4R2 en G4R3
    Worksheets("feuil1").Columns("B").Replace What:="G4R2", Replacement:="G4R3", _
            SearchOrder:=xlByColumns, MatchCase:=True
    'remplacement des G4F1 en G4R3
    Worksheets("feuil1").Columns("B").Replace What:="G4F1", Replacement:="G4R3", _
            SearchOrder:=xlByColumns, MatchCase:=True
End Sub

Macro pour Changer des valeurs TXT

1 réponse

Discussions similaires