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

Maton-54 7 Messages postés lundi 4 décembre 2017Date d'inscription 8 février 2018 Dernière intervention - 7 févr. 2018 à 21:01 - Dernière réponse : Maton-54 7 Messages postés lundi 4 décembre 2017Date d'inscription 8 février 2018 Dernière intervention
- 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


Afficher la suite 

2 réponses

Répondre au sujet
via55 9043 Messages postés mercredi 16 janvier 2013Date d'inscription 14 février 2018 Dernière intervention - 7 févr. 2018 à 23:26
0
Utile
1
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
Maton-54 7 Messages postés lundi 4 décembre 2017Date d'inscription 8 février 2018 Dernière intervention - 8 févr. 2018 à 00:43
Merci, parfait
@+
M
Commenter la réponse de via55