Bonjour,
J'ai récupéré un code VBA afin de pouvoir détecter les doublons sur la colonne A, ce code fonctionne très bien mais j'aimerais l'adapter à ma problématique.
Etant néophyte je sollicite votre aide.
Les fonctions à ajouter :
1) Le fait de surligner les doublons sur la colonne A QUE s'il y a en même temps des doublons sur la colonne B.
En formule Excel cela donnerait (en créant une colonne intermédiaire) : =SI(ET(NB.SI(A:A;A1)>1;NB.SI(B:B;B1)>1);"Doublon";"")
2) De créer une boite de dialogue afin que l'utiliseur puisse choisir sa colonne "X" et sa Colonne "Y".
Veuillez trouver ci-dessous le code que j'ai récupéré , qui peut servir de base.
Je vous remercie d'avance pour votre aide.
Sub Doublon()
Dim Plage As Range
Dim Cel As Range
With Worksheets("Feuil1")
'en colonne "A" à partir de A2
Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
'boucle la plage de la feuille "Compte" et cherche chaque valeur
'en correspondance exacte dans la plage de la feuille "Source"
For Each Cel In Plage
If Application.CountIf(Plage, Cel.Value) > 1 Then
Cel.Interior.ColorIndex = 22
End If
Next Cel
End Sub