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
A voir également:
- Macro pour comparer 2 listes de Nom
- Supercopier 2 - Télécharger - Gestion de fichiers
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Nom pour facebook stylé - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- 2 ecran pc - Guide
1 réponse
Bonsoir Maton
Exemple de macro en quelques lignes pour ajouter '(*) , à adapter à ton fichier :
Cdlmnt
Via
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
@+
M