Macro remplacer - Conditions dans une autre colonne

[dudumomo]

Bonjour a tous,

Je recherche a creer une macro qui remplacerait le contenu de la colonne B par une valeur fixe, en fonction du contenu de la valeur A.

Dans mon cas, (Cf PJ), le code de Bernard est BB, si le libelle est Bernard-FR ou Bernard-France ou encore France-Bernard, le code, "BB" egalement, doit devenir "FR"

C'est en gros comme si je triais les nom contenant fr et que je remplacais le code par FR.

Pour info, mon exemple est simplifie, et il n'y aura aucun soucis si par exemple le nom est "francois" et que je trie les donnees contenant "fr".

Mon probleme est donc que je ne connais pas a l'avance la liste des noms contenant FR.

Une idee de comment proceder ?

Merci grandement pour votre aide.

 

[Pierrot93]

Re : Macro remplacer - Conditions dans une autre colonne

Bonjour,

Dans mon cas, (Cf PJ),

ton fichier n'est pas passé, il doit être inf à 300k...

bonne journée
@+

 

[dudumomo]

Re : Macro remplacer - Conditions dans une autre colonne

Je viens de modifier mon post.
Je l'avais en fait omis...(Pas bien réveillé)

 

[Pierrot93]

Re : Macro remplacer - Conditions dans une autre colonne

Re,

regarde ceci, si cela peut t'aider à avancer:

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("A3", Range("A65536").End(xlUp))
    If LCase(c.Value) Like "*france*" Or LCase(c.Value) Like "*-fr*" Then c.Offset(0, 1).Value = "FR"
Next c
End Sub

bonne journée
@+

 

[dudumomo]

Re : Macro remplacer - Conditions dans une autre colonne

Ca fonctionne tres bien !
Merci.

En revanche, est ce que l'Option Explicit est necessaire ? Si oui, pourquoi ? Je n'ai pas bien saisi son utilité.
Pour le reste j'ai compris !
Merci bien !

 

[Pierrot93]

Re : Macro remplacer - Conditions dans une autre colonne

Re

En revanche, est ce que l'Option Explicit est necessaire ? Si oui, pourquoi ? Je n'ai pas bien saisi son utilité.

pas obligatoire... mais cette option oblige à la déclaration des variables, ce qui évite bien souvent des erreurs...

 

[dudumomo]

Re : Macro remplacer - Conditions dans une autre colonne

D'accord, je comprends. Merci grandement Perrot93 !