VBA pour détecter les doublons d'une colonne

[pepsi]

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

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

 

[pepsi]

Re : VBA pour détecter les doublons d'une colonne

eh bien efficace ta modif !
c'est parfait
vraiment merci beaucoup et merci encore à tous d'avoir pris le temps de m'aider

 

[Du manoir]

Bonjour a tous. J'ai un tableau dans une feuille de calcul. Je cherche une macro pour me signaler les doubles dans la première colonne et les supprimer.

 

[Phil69970]

Bonjour Du Manoir, le forum

Avec formule
Mettre en B2:
=SI(NB.SI($A$2:A2;A2)>1;"Doublon";"Pas de doublon,OK")

Et étirez la formule avec double click en bas à droite de la cellule B2

en VBA :

Sheets("NomDeMaFeuille").Range("B2") = "=IF(COUNTIF(R2C1:RC[-1],RC[-1])>1,""Doublon"",""Pas de doublon,OK"")"

Cordialement

 

[qalibo30]

Bonsoir,
thebenoit59, que doit on ajouter à ta macro Doublon() pour qu'il n 'y ai pas de message quand il n 'y a pas de doublons justement?
Bonne soirée à tous.