VBA comparaison et extraction

Version imprimable

26/06/2023, 16h45
Yvesremort

VBA comparaison et extraction

Bien le bonjour,

je débute en VBA, j'essaye de faire une macro pour comparer deux colonnes "A" dans deux feuillets différents (L1 et L2) dans un même classeur "ASC".
Les colonnes A contiennent des lettres et des chiffres correspondants à des numéros d'ascenseurs.

Si la correspondance entre les deux colonnes est "vraie" alors on récupère la valeur de la ligne de L1 ( 9 colonnes) pour l'ajouter à un nouveau feuillet qu'on pourrait appeler "Comparaison".

J'ai essayé plusieurs approches mais il doit me manquer des éléments pour obtenir un résultat correct et je dois reconnaitre que je suis un peu perdu.

Pourriez vous m'apportez votre aide ? Merci d'avance :)

Bonjour, voici:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub ComparerColonnes()
 
    Dim feuilleL1 As Worksheet
    Dim feuilleL2 As Worksheet
    Dim feuilleComparaison As Worksheet
    Dim ascenseurL1 As Range
    Dim ascenseurL2 As Range
    Dim valeurL1 As Range
    Dim ligneComparaison As Long
 
    ' Spécifiez les noms des feuilles de calcul
    Set feuilleL1 = ThisWorkbook.Worksheets("L1")
    Set feuilleL2 = ThisWorkbook.Worksheets("L2")
    Set feuilleComparaison = ThisWorkbook.Worksheets("Comparaison")
 
    ' Définissez les plages de colonnes A dans les feuilles L1 et L2
    Set ascenseurL1 = feuilleL1.Range("A1:A" & feuilleL1.Cells(Rows.Count, "A").End(xlUp).Row)
    Set ascenseurL2 = feuilleL2.Range("A1:A" & feuilleL2.Cells(Rows.Count, "A").End(xlUp).Row)
 
    ' Initialisez la ligne de la feuille "Comparaison"
    ligneComparaison = 1
 
    ' Parcourez chaque cellule de la colonne A dans la feuille L1
    For Each valeurL1 In ascenseurL1
        ' Vérifiez si la valeur se trouve également dans la colonne A de la feuille L2
        If Not IsError(Application.Match(valeurL1.Value, ascenseurL2, 0)) Then
            ' Copiez les valeurs de la ligne L1 (9 colonnes) dans la feuille "Comparaison"
            feuilleL1.Range(feuilleL1.Cells(valeurL1.Row, 1), feuilleL1.Cells(valeurL1.Row, 9)).Copy _
                Destination:=feuilleComparaison.Cells(ligneComparaison, 1)
 
            ligneComparaison = ligneComparaison + 1 ' Passez à la prochaine ligne de la feuille "Comparaison"
        End If
    Next valeurL1
 
 
    MsgBox "Comparaison terminée avec succès !"
 
End Sub

27/06/2023, 08h00
Yvesremort

Bonjour Franc,

merci pour ce partage ! C'est très clair et merci pour les commentaires c'est l'idéal pour comprendre.

Merci pour ton temps et bonne journée.