Reperage doublon

Bonsoir

Si tes données sont triées :

Public Sub vev()
Dim c As Range
For Each c In Range("j1:j" & Range("j65536").End(xlUp).Row)
If c.Offset(1, 0) = c Then c.Interior.ColorIndex = 6: c.Offset(1, 0).Interior.ColorIndex = 6
Next c
End Sub

Si elle ne le sont pas :

Public Sub vev2()
Dim c As Range
For Each c In Range("j1:j" & Range("j65536").End(xlUp).Row)
If Application.WorksheetFunction.CountIf(Range("j1:j" & Range("j65536").End(xlUp).Row), c.Value) > 1 Then
c.Interior.ColorIndex = 6
End If
Next c
End Sub


Salut
Hervé

Super, cela marche très bien, merci beaucoup.


Comment faire pour que je puisse savoir si la valeur est deja presente dans la colonne J des que je rentre une nouvelle valeur (de telle sorte que je n ai pas besoin de lancer la macro a chaque fois pour savoir -peut etre en utilisant le format conditionnel des cellules...


Merci


renaud

Bonjour

Ce code placer dans le module de la feuille adéquate, interdit la saisie dans doublons dans la colonne j :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Not Application.Intersect(Target, Columns(10)) Is Nothing Then
For Each c In Range("j1:j" & Range("j65536").End(xlUp).Row)
If Application.WorksheetFunction.CountIf(Range("j1:j" & Range("j65536").End(xlUp).Row), c.Value) > 1 Then
MsgBox "Ce mot est déjà présent": Target.ClearContents: Exit Sub
End If
Next c
End If
End Sub

On doit pouvoir le faire avec un format conditionnel, pour ceci je te laisse rechercher dans le forum, je ne sais pas faire.

Salut
Hervé

Super merci beaucoup


Renaud