[XL-2003] couleur d'une cellule d'une colonne selon conditions

[bartsho]

Bonjour

1/ je souhaite créer (dans un TCD) une macro qui me permet de colorer automatiquement une cellule si la valeur de cette cellule se retrouve dans une autre ligne de cette colonne (en fait doublons)
2/ et filtrer les doublons
Merci

[pirot]

Bonjour,
pour surligner les cellules doublons:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub surligner_doublons()
colonne = "E" 'la colonne où se trouvent les données
lg_deb = 9  'ligne début
lg_fin = 28 
' ou bien pour chercher la dernière cellule
' lg_fin = Cells(65000, colonne).End(xlUp).Row
 
For c = lg_deb To lg_fin - 1
    For d = c + 1 To lg_fin
        If Cells(c, colonne) = Cells(d, colonne) Then
            Cells(d, colonne).Interior.ColorIndex = 6
        End If
    Next d
Next c
End Sub

pour filtrer les doublons, tu peux utiliser données/filtre élaboré
cocher sans doublons (ou en macros, enregistrer et adapter)
@+
pirot

[bartsho]

merci j'ai trouvé un solution pour couleur par une macro
Par contre pour filtrer les doublons je veux en fait n'avoir que les lignes avec les doublons et non pas l'extraction sans doublons...
Merci d'avance

[pirot]

Bonjour,
si je comprends bien,
puisque tu as coloré les cellules doublons,
tu veux masquer les lignes dont les cellules n'ont pas la bonne couleur?

dans ce cas, tu peux un peu modifier la boucle:

Code :

1
2
3
4
5
6
7
8
9
For c = lg_deb To lg_fin - 1
For d = c + 1 To lg_fin
premier=Cells(c, colonne)
If premier = Cells(d, colonne) Then
Cells(d, colonne).Interior.ColorIndex = 6
Cells(c,colonne).entirerow.hidden
End If
Next d
Next c

ou, plus élégant, (dans le premier cas, on msque autant de fois qu'il y a de doublons!)
faire une boucle après avoir coloré: (si colorinex vaut 6 par exemple pour les doublons)

Code :

1
2
3
4
5
6
7
For c = lg_deb To lg_fin
with cells(c,colonne)
if .Interior.ColorIndex <> 6 then
.entirerow.hidden
endif
endwith
next

à moins que je n'ai pas bien compris ce que tu veux faire?
@+
pirot