Macro pour Changer des valeurs TXT

Emile -  
f894009 Messages postés 17277 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
A voir également:

1 réponse

Réponse 1 / 1
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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