Macro pour comparer 2 listes de Nom

Résolu/Fermé
Maton-54 Messages postés 7 Date d'inscription lundi 4 décembre 2017 Statut Membre Dernière intervention 8 février 2018 - 7 févr. 2018 à 21:01
Maton-54 Messages postés 7 Date d'inscription lundi 4 décembre 2017 Statut Membre Dernière intervention 8 février 2018 - 8 févr. 2018 à 00:43
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

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
7 févr. 2018 à 23:26
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
0
Maton-54 Messages postés 7 Date d'inscription lundi 4 décembre 2017 Statut Membre Dernière intervention 8 février 2018
8 févr. 2018 à 00:43
Merci, parfait
@+
M
0