XL 2016 Comparaison de deux colonnes

BPM · 17 Août 2021

Bonjour,
J'aimerais solliciter votre aide pour écrire un code VBA. Je dispose de deux feuilles dans mon classeur Excel et je voudrais comparer la colonne A de la feuille 1 à la colonne B de la feuille 2, il faudrait qu'en parcourant toutes les lignes de la colonne A,feuil1, si aucune valeur ne correspond à celle dans la colonne B,feuil2 alors on envoi un message d'alerte qui dit "aucune correspondance".
Auriez-vous une idée de code ?
Merci d'avance pour votre aide.

Lolote83 · 17 Août 2021

Bonjour BPM,
Peut être comme ceci
@+ Lolote83

BPM · 17 Août 2021

Lolote83 à dit:
Bonjour BPM,
Peut être comme ceci
@+ Lolote83

Bonjour, merci pour cette proposition de solution, mais juste un petit soucis il ne faudrait pas la petite phrase "aucune correspondance" apparaisse dans la colonne à côté ou dans le classeur excel, si il y a une possibilité d'avoir uniquement un msgbox qui à la fin de boucle envoi l'information pour dire "aucune correspondance".
Merci .

Lolote83 · 17 Août 2021

Re bonjour,
Peut être avec ce code

VB:

Sub Compare2()
    Range("B2:B34").ClearContents
    xCpt = 0
    xCptNonEquiv = 0
    For Each xCell In Range("A2:A34")
        xCpt = xCpt + 1
        xEquiv = Application.Match(xCell.Value, Range("Feuil2!B2:B27"), 0)
        If IsError(xEquiv) = True Then
            xCptNonEquiv = xCptNonEquiv + 1
        End If
    Next xCell
    MsgBox "Sur " & xCpt & " cellules testées," & xCptNonEquiv & " n'ont pas de correspondance"
End Sub

@+ Lolote83

BPM · 17 Août 2021

Lolote83 à dit:

Re bonjour,
Peut être avec ce code

VB:

Sub Compare2()
    Range("B2:B34").ClearContents
    xCpt = 0
    xCptNonEquiv = 0
    For Each xCell In Range("A2:A34")
        xCpt = xCpt + 1
        xEquiv = Application.Match(xCell.Value, Range("Feuil2!B2:B27"), 0)
        If IsError(xEquiv) = True Then
            xCptNonEquiv = xCptNonEquiv + 1
        End If
    Next xCell
    MsgBox "Sur " & xCpt & " cellules testées," & xCptNonEquiv & " n'ont pas de correspondance"
End Sub

@+ Lolote83

Je viens de le tester et merci beaucoup car il marche très bien.
Merci pour votre aide.

XL 2016 Comparaison de deux colonnes

BPM

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

Pièces jointes

BPM

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

BPM

XLDnaute Nouveau

Discussions similaires