Macro pour Changer des valeurs TXT

Fermé

Emile - 23 févr. 2017 à 21:45
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 24 févr. 2017 à 09:24

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:

Macro pour Changer des valeurs TXT
Changer dns - Guide
Piratage facebook changer mot de passe - Guide
Changer clavier qwerty en azerty - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
24 févr. 2017 à 09:24

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

Newsletters