Macro pour croiser deux listes

Fermé

Licorne rose Messages postés 997 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 18 janvier 2024 - 17 juin 2015 à 17:18
Licorne rose Messages postés 997 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 18 janvier 2024 - 21 juil. 2015 à 15:32

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.

A voir également:

Macro pour croiser deux listes
Deux comptes whatsapp - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Macro recorder - Télécharger - Confidentialité

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
17 juin 2015 à 23:56

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+

Réponse 2 / 2

Licorne rose Messages postés 997 Date d'inscription mardi 10 juillet 2007 Statut Membre Dernière intervention 18 janvier 2024 227
21 juil. 2015 à 15:32

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.

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?

2 comptes facebook avec même mail et même nom

Comment supprimer une conversation Messenger pour les 2 personnes ?

Tableau croisé dynamique : différence entre deux colonnes

Discussions similaires

Newsletters