Macro pour comparer 2 listes de Nom [Résolu/Fermé]

Signaler
Messages postés
7
Date d'inscription
lundi 4 décembre 2017
Statut
Membre
Dernière intervention
8 février 2018
-
Messages postés
7
Date d'inscription
lundi 4 décembre 2017
Statut
Membre
Dernière intervention
8 février 2018
-
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


1 réponse

Messages postés
12614
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
13 septembre 2020
2 005
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
Messages postés
7
Date d'inscription
lundi 4 décembre 2017
Statut
Membre
Dernière intervention
8 février 2018

Merci, parfait
@+
M