Détailler mes doublons

[DOYE]

Bonjour,

J'ai une base de donnée en fichier excel contenant beaucoup d'info mais aussi certain doublons sur la colonne A&

J'aimerais colorier les doublons de façon à pouvoir faire un tri correct. La colonne A est trier dans l'ordre croissant. Les doublons sont donc côte à côte.

Si vous pouviez détailler la macro je découvre le VBS et ç me ferait un bon support ;o)

Merci.

 

[Gérard DEZAMIS]

Bonjour DOYE

en utilisant la Mise en forme conditionnelle cela devrait convenir mais je n'arrive pas aux mêmes résultats que toi .

Bizarre Bizarre
Attendons la suite
@+
GD

 

[Mathieu]

Bonjour Doye, Gérard,

moi j'aurai fait comme ca:

' On commence a la premiere ligne
ligne = 1

' Tant que le contenu de la case n'est pas vide (donc tant qu'on est pas a la fin de la colonne) on continu de lire les lignes
While Range("A" & ligne).Value <> ""

' Si la valeur de la case est egale a la valeur de la case suivante on colorie
' la case courante et la suivante en rouge (couleur #3)
If Range("A" & ligne).Value = Range("A" & ligne + 1).Value Then
Range("A" & ligne).Interior.ColorIndex = 3
Range("A" & ligne + 1).Interior.ColorIndex = 3
End If
' On passe a la ligne suivante
ligne = ligne + 1
Wend


J'espere avoir comprit le probleme et pas repondre a coté de la plaque comme souvent 😀

Bon courage,
Mathieu.

 

[Mathieu]

Re,
plus simple, j'envoie carrement le fichier en pj !! (j' avais pas pensé)

Mathieu.

 

[Monique]

Bonjour,

Pour la formule de la mise en forme conditionnelle,
en sélectionnant à partir de A2 :
=NB.SI($A$1:$A1;$A2)>0
Il n'y a pas besoin de tri préalable.

Avec le pinceau, on étend la mise en forme, si on veut,
et ça donne en C12 :
=NB.SI($A$1:$A11;$A12)>0

 

[DOYE]

Merci à tous