Macro pour Changer des valeurs TXT

Emile -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
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

1 réponse

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0