Reperage doublon

[renaud]

Bonjour,


j aimerais savoir comment faire une macro qui colore (en orange par exemple) les cellules qui ont la meme valeur.
Je pense que l idee de cette macro est que pour chaque ligne n (0<n<100) de la colonne j, excel balaye de la ligne 1 a n-1 et colorise toutes les cellules qui ont la meme valeur. Une couleur suffit car la colonne J sera triée de manière croissante au préalable.


Merci

renaud

 

[Hervé]

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é

 

[renaud]

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

 

[Hervé]

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é

 

[renaud]

Super merci beaucoup


Renaud