XL 2016 Comparaison de deux colonnes

BPM

XLDnaute Nouveau
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.
 

BPM

XLDnaute Nouveau
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 913
Membres
101 837
dernier inscrit
Ugo