qui sont les doublons ?

Salut Daniel,
Un exemple de marquage de doublons. Les lignes sont colorées en bleu pour
l'origine et rouge pour le doublon.
Si ta plage à des champs vides, il te faut indiquer la dernière colonne pour
avoir toute la ligne colorée. Adapte :

Sub DoublonColorés()
Dim Plage As Range
Dim I As Integer, J As Integer
Dim K As Integer, L As Integer
'si la plage a des champs vides,
'définir la dernière colonne.
'exemple, colonne F :
'Set Plage = .Range(.[A1], _
'.[F65536].End(xlUp))

With Worksheets("Feuil1")
Set Plage = .Range(.[A1], _
.[A65536].End(xlUp).End(xlToRight))
End With

With Plage
'"For I = 2" évite la ligne d'entête sinon mettre 1
For I = 2 To .Rows.Count - 1
For J = .Rows.Count To I + 1 Step -1
For K = 1 To .Rows(I).Cells.Count
If .Rows(I).Cells(K) = _
.Rows(J).Cells(K) Then
L = L + 1
End If
Next K
If L = .Rows(1).Cells.Count Then
With .Rows(I) 'bleu
.Interior.ColorIndex = 33
End With
With .Rows(J) 'rouge
.Interior.ColorIndex = 3
End With
End If
L = 0
Next J
Next I
End With
Set Plage = Nothing
End Sub

Hervé.

"Daniel" <danielos@withoutspamclub-internet.fr> a écrit dans le message
news: 3F2987EE.90705@withoutspamclub-internet.fr...

Bonjour,

A partir d'une liste de valeurs dans une colonne, j'ai bien vu qu'avec
les filtres élaborés, on pouvait trié pour ne pas avoir de doublons.
mais comment puis-je faire pour savoir quels étaient ces doublons ?
Merci

Daniel

si la colonne est c:c, tu peux
- sélectionner la colonne
- format / mise en forme conditionnelle
- la formule est : =NB.SI(C:C;C1)>1
- formats / motif / bleu
- OK / OK

les doublons de la colonne C apparaissent sur fond bleu

J@C
http://jacxl.free.fr/



"Daniel" <danielos@withoutspamclub-internet.fr> a écrit dans le message de
news: 3F2987EE.90705@withoutspamclub-internet.fr...

Bonjour,

A partir d'une liste de valeurs dans une colonne, j'ai bien vu qu'avec
les filtres élaborés, on pouvait trié pour ne pas avoir de doublons.
mais comment puis-je faire pour savoir quels étaient ces doublons ?
Merci

Daniel