XL 2016 Comparaison de deux colonnes

  • Initiateur de la discussion Initiateur de la discussion BPM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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.
 
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 .
 
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
 
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
149
Réponses
2
Affichages
157
Réponses
8
Affichages
102
Retour