Bonjour à tous,

Je cherche une manière pour rechercher des doublons entre une colonne A et B et les écrire dans une colonne C. De cette manière, je pourrais voir dans mon fichier quel n° de produit est commandé ou non. J'ai fait un code mais le problème c'est qu'il compare uniquement ligne par ligne et moi je souhaiterai que ce code compare toutes les cellules de la colonne A avec toutes les cellules de la colonne B.

Voici le code:

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
Sub Macro()
 
Dim Plage As Range, C As Range
Dim i As Long
Dim Msg As String
 
Set Plage = Application.InputBox("Sélectionnez la plage.", Type:=8) ' créer une Box qui demande d'insérer la plage à analyse
 
For Each C In Plage.Columns(1).Cells ' pour chaque plage de cellule C dans la plage de cellule "Plage"
    If (C <> C.Offset(0, 1)) Then ' si la cellule correspond à la cellule de la colonne à coté
        i = i + 1 'compte
    End If
Next
 
If i = 0 Then
    Msg = " Toutes les valeurs sont Ok par deux"
    Msg = "Il y a des valeurs différentes sur " & i & "lignes!"
End If
Z = MsgBox(Msg, vbInformation) ' créer un message entouré d'une case d'information
 
 
End Sub
Je tiens aussi à préciser que j'aimerai que la macro me sorte les n° de produits et pas qu'il me les compte.

Merci de m'aider