pepsi
XLDnaute Occasionnel
Bonjour le forum
j'ai récupéré un code qui permet de détecter les doublons d'une colonne
le problème c'est qu 'il considère le 0 comme un doublon, et j'aimerai éviter cela
comment puis je modifie le code?
merci d'avance
j'ai récupéré un code qui permet de détecter les doublons d'une colonne
le problème c'est qu 'il considère le 0 comme un doublon, et j'aimerai éviter cela
comment puis je modifie le code?
merci d'avance
Code:
Sub Doublon()
Dim Plage As Range
Dim Cel As Range
With Worksheets("Feuil1")
'en colonne "A" à partir de A2
Set Plage = .Range(.Cells(2, 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
MsgBox "Attention, la valeur '" & Cel.Value & "' est en doublon," _
& " veuillez éliminer manuellement le double situé en '" & Cel.Address(0, 0) _
& "' avant de pouvoir exporter les données !"
Cel.Interior.ColorIndex = 3
End If
Next Cel
End Sub