IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA comparaison et extraction [XL-2016]


Sujet :

Macros et VBA Excel

  1. #1
    Membre confirmé
    Homme Profil pro
    Clavardeur en tout genre
    Inscrit en
    Août 2019
    Messages
    64
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Clavardeur en tout genre

    Informations forums :
    Inscription : Août 2019
    Messages : 64
    Par défaut 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

  2. #2
    Membre Expert
    Inscrit en
    Décembre 2002
    Messages
    993
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 993
    Par défaut
    Bonjour, voici:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  3. #3
    Membre confirmé
    Homme Profil pro
    Clavardeur en tout genre
    Inscrit en
    Août 2019
    Messages
    64
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Clavardeur en tout genre

    Informations forums :
    Inscription : Août 2019
    Messages : 64
    Par défaut
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. {VBA excel}OUverture,Extraction et Copie d'un fichier Excel dans un autre
    Par Thomas69 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/06/2007, 09h43
  2. [VBA-Excel] et extraction SAP
    Par Gerard6969 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 01/06/2007, 08h42
  3. [VBA] comparaison de tableau sous excel
    Par Bertrand28 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 12/03/2007, 14h02
  4. [SQL] vs [VBA] comparaison de tables et mise à jour
    Par borisa dans le forum VBA Access
    Réponses: 4
    Dernier message: 09/02/2006, 10h15
  5. [vba] comparaison <>
    Par manujuggler dans le forum Access
    Réponses: 5
    Dernier message: 10/01/2006, 16h07

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo