repérarge de doublon dans une liste

[gerard55]

Bonjour à tous
j'ai une macro qui repère des mots en double. Mais, je voudrais qu'elle m'identifie dans la colonne de gauche les mots en double. Elle identifie bien le 2ème mais pas le premier écrit.
Merci pour vos suggestion
A+

 

[Jiheme]

Re : repérarge de doublon dans une liste

Bonjour Gérard, re à tous

Avec une simple MFC sur la plage A5:A23

et cette formule :

=NB.SI($A$5:$A$23;A5)>1

Dans "la formule est" te mets en couleur les doublons.

A+

 

[gerard55]

Re : repérarge de doublon dans une liste

Merci Jiheme
Mais, le format conditionnel ne répond pas à mon besoin. Je ne peux pas faire de tri derrière. Je préfère que doublon soit écrit dans la colonne à côté
a+

 

[jeanpierre]

Re : repérarge de doublon dans une liste

Bonjour gerard55, Jiheme,

Alors en B5 : =SI(NB.SI($A$5:$A$23;A5)>1;"doublon";"")

A tirer vers le bas.

Bon après-midi.

Jean-Pierre

 

[Claudy]

Re : repérarge de doublon dans une liste

Bonjour...à tous..
Ci joint une petite contribution de ma part...
Bonne journée

 

[ROGER2327]

Re : repérarge de doublon dans une liste

Bonjour à tous

Une autre proposition dans ce classeur.​

ROGER2327

 

[gerard55]

Re : repérarge de doublon dans une liste

Merci à tous pour toutes ces réponses
a+

 

[gerard55]

Re : repérarge de doublon dans une liste

Bonjour...à tous..
Ci joint une petite contribution de ma part..
Bonne journée

La solution de Claudy est intéressante. Mais il y a 2 inconvénients:
1 - quand il y a des blancs (cellule vide) il marque aussi "doublons"
2 - il faudrait que la colonne soit effacée à chaque opération car si l'on modifie un nom, il n'efface pas "doublon" donc la mise à jour est fausse
Merci encore
a+

 

[Claudy]

Re : repérarge de doublon dans une liste

Rebonjour ou bonsoir....
Ci desssous ma copie corrigée
Bonne soirée,
Claudy

 

[gerard55]

Re : repérarge de doublon dans une liste

merci beaucoup cette fois c'est ok
a+

 

[ROGER2327]

Re : repérarge de doublon dans une liste

Bonsoir à tous

J'ai remarqué que le code de Claudy considère que gg, GG sont des doublons. Dans le code que j'ai fourni, gg, GG ne sont pas considérés comme des doublons. Voici le code modifié qui permet de les confondre :

[COLOR="DarkSlateGray"]Private Sub Worksheet_Change(ByVal Target As Range)
Dim L As Long, C As Long, D As Long, pl As Range, cel As Range, v, k As Long, i As Long
   Application.ScreenUpdating = False
   Application.EnableEvents = False
   L = 3 [COLOR="SeaGreen"]'N° de la première ligne à traiter.[/COLOR]
   C = 1 [COLOR="SeaGreen"]'N° de colonne à traiter.[/COLOR]
   D = 2 [COLOR="SeaGreen"]'N° de colonne à écrire.[/COLOR]
   Set pl = Me.Cells(L, C).Resize(Application.Max(2, Me.Cells(Me.Rows.Count, C).End(xlUp).Row + 1 - L), C)
   With pl
      If Not Intersect(.Cells, Target) Is Nothing Then
         Target.Offset(0, D - C).Value = Empty
         For Each cel In .Cells
[COLOR="SeaGreen"]'            v = cel.Value 'sensible à la casse.[/COLOR]
            [COLOR="Sienna"][B]v = UCase(cel.Value)[/B][/COLOR]
            k = cel.Row
            Me.Cells(k, D).Value = Empty
            For i = L To .Rows.Count + L - 1
[COLOR="SeaGreen"]'               If k <> i And v = Me.Cells(i, C) And Not IsEmpty(v) Then 'sensible à la casse.[/COLOR]
               [COLOR="Sienna"][B]If k <> i And v = UCase(Me.Cells(i, C)) And v <> "" Then[/B][/COLOR]
                  Me.Cells(k, D).Value = "doublon"
                  Me.Cells(i, D).Value = "doublon"
                  Exit For
               End If
            Next i
         Next cel
      End If
   End With
   Application.EnableEvents = True
   Application.ScreenUpdating = True
End Sub[/COLOR]

ROGER2327