Macro pour croiser deux listes
Licorne rose
Messages postés
997
Date d'inscription
Statut
Membre
Dernière intervention
-
Licorne rose Messages postés 997 Date d'inscription Statut Membre Dernière intervention -
Licorne rose Messages postés 997 Date d'inscription Statut Membre Dernière intervention -
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.
A voir également:
- Macro pour croiser deux listes
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Deux ecran pc - Guide
- Comment faire deux colonnes sur word - Guide
- Nombre de jours entre deux dates excel - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
2 réponses
Bonsoir,
Essaie cette macro :
A+
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+