Macro pour croiser deux listes
Licorne rose
Messages postés
1047
Statut
Membre
-
Licorne rose Messages postés 1047 Statut Membre -
Licorne rose Messages postés 1047 Statut Membre -
Bonjour,
J'essaie d'écrire une macro mais je n'y arrive pas.
J'ai une liste de mots dans feuil1!A:A et une autre liste de mots dans feuil2!A:A, je voudrais que les mots apparaissant dans les deux colonnes forment une troisième colonne dans feuil3!A:A.
La macro que je voudrais écrire devrait vouloir dire (si je ne me trompe pas)
pour chaque mot dans feuil1!A:A
si mot existe dans feuil2!A:A alors ajouter mot dans feuil3!A:A
mais je ne trouve pas la syntaxe pour écrire ça, pouvez-vous m'aider svp ?
Merci.
J'essaie d'écrire une macro mais je n'y arrive pas.
J'ai une liste de mots dans feuil1!A:A et une autre liste de mots dans feuil2!A:A, je voudrais que les mots apparaissant dans les deux colonnes forment une troisième colonne dans feuil3!A:A.
La macro que je voudrais écrire devrait vouloir dire (si je ne me trompe pas)
pour chaque mot dans feuil1!A:A
si mot existe dans feuil2!A:A alors ajouter mot dans feuil3!A:A
mais je ne trouve pas la syntaxe pour écrire ça, pouvez-vous m'aider svp ?
Merci.
2 réponses
-
Bonsoir,
Essaie cette macro :Sub Test()
Dim Plage1 As Range, Plage2 As Range, Cel As Range
Dim LigneC As Long
Application.ScreenUpdating = False
With Worksheets("Feuil1")
Set Plage1 = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
With Worksheets("Feuil2")
Set Plage2 = .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
End With
For Each Cel In Plage1
If Application.CountIf(Plage2, Cel) > 0 Then
LigneC = LigneC + 1
Worksheets("Feuil3").Range("A" & LigneC) = Cel.Value
End If
Next Cel
End Sub
A+ -
Merci Gyrus,
Je vais essayer ça.
Désolé pour le temps que j'ai mis à répondre, j'ai eu une panne de mon ordi puis d'Internet.
Mille mercis.
