Macro pour comparer 2 listes de Nom
Résolu
Maton-54
Messages postés
7
Statut
Membre
-
Maton-54 Messages postés 7 Statut Membre -
Maton-54 Messages postés 7 Statut Membre -
Bonjour,
j’explique mon problème
j'ai une feuille « Membre 2018 » avec une colonne « Nom »
j'ai une feuille « Archive 2017 » avec colonne « Nom »
Ce que je veux faire :
1) Identifier dans la feuille « Membre 2018 » les Noms présent dans la feuille « Archive 2017 »
2) Si le Nom dans la feuille « Membre 2018 » est égale au Nom de la feuille « Archive 2017 » alors il me l’identifie en lieu et place par : de préférence me rajouter un symbole à l’arrière du NOM exemple « Dupont Pierre (*) » ou par une couleur.
j'espère que j'étais bien claire
Merci beaucoup
j’explique mon problème
j'ai une feuille « Membre 2018 » avec une colonne « Nom »
j'ai une feuille « Archive 2017 » avec colonne « Nom »
Ce que je veux faire :
1) Identifier dans la feuille « Membre 2018 » les Noms présent dans la feuille « Archive 2017 »
2) Si le Nom dans la feuille « Membre 2018 » est égale au Nom de la feuille « Archive 2017 » alors il me l’identifie en lieu et place par : de préférence me rajouter un symbole à l’arrière du NOM exemple « Dupont Pierre (*) » ou par une couleur.
j'espère que j'étais bien claire
Merci beaucoup
1 réponse
-
Bonsoir Maton
Exemple de macro en quelques lignes pour ajouter '(*) , à adapter à ton fichier :Sub anciens() For n = 2 To 300 'Boucle sur les lignes 2 à 300 de la colonne A de Membres 2018 pour comparer avec la colonne A d'Archives 2018 avec un NB.SI - si résultat 1 ajout de (*) If Application.WorksheetFunction.CountIf(Sheets("Archives 2017").Range("A:A"), Sheets("Membres 2018").Range("A" & n)) = 1 Then Sheets("Membres 2018").Range("A" & n) = Sheets("Membres 2018").Range("A" & n) & " (*)" Next End Sub
Cdlmnt
Via
