Ajouter des cellules apres comparaison

[bobafric]

Salut à tous
Aujourd'hui j'ai le vent en poupe et comme vous me régalez avec vos solutions je vais vous en demander une autre.
Je voudrais ajouter à une suite de noms (en colonne A par exemple) les noms que j'ai dans une autre liste et qui n'existe pas dans la colonne A.
Exemple
Dans la colonne A de la Feuille 1 je veux rajouter les noms de la colonne C de la feuille A2 a la suite à l'aide d'une macro.
Merci encore
Bob

 

[pedrag31]

Re : Ajouter des cellules apres comparaison

Bonjour Bobafric, Bonjour le forum,

Voir solution dans le fichier joint...

Recherche du nom dans la premiere feuille puis copie vers la derniere ligne de la colonne A si le nom n'a pas ete trouve...

En esperant que ca pourra s'adapter a ton application...

Bonne journee, 🙂

 

[pedrag31]

Re : Ajouter des cellules apres comparaison

Bonjour Masterdisco, le forum,

En effet, tres bonne remarque, je n'avais pas pense a la plage "variable" de la liste de nom... Et cela evite egalement les erreurs si cell.value="" , comme il n'y a pas de test If Not cell.value="" Then..., bien vu.😉

Merci pour la correction.

Bonne journee, 🙂

 

[bobafric]

Re : Ajouter des cellules apres comparaison

Nickel Pedrag31
Par contre je l'ai adapté à mon classeur pour toutes les feuilles, en remplaçant:
Worksheets("Feuil2") par ActiveSheets.
La solution de masterdico est intéressante mais en changeant Sheets(2) par ActiveSheets j'ai un message d'erreur "Objet requis"
Merci A plus
Bob

 

[bobafric]

Re : Ajouter des cellules apres comparaison

hello MasterDico
Toujours un message d'erreur
Cette fois une croix rouge et le nombre 400
Merci
Bob