Colorier doublon sauf l'original

Pierkai

XLDnaute Nouveau
Bonjour à tous,

voilà plusieurs heures que je cherche à colorier dans mon tableau les doublons.
J'ai bien réussi, que ce soit avec la mise en forme ou du VBA mais seul soucis,
j'ai besoin que seul les valeurs en double soit colorier, pas la valeur original.

exemple : 1 2 2 3 3 3

voici le morceau de code que j'ai fait mais celui-ci me colore tout comme ceci 1 2 2 3 3 3 dès qu'il trouve un double.

Code:
[/COLOR][/COLOR]
[COLOR=#ff0000][COLOR=#000000]Sub Doublon()
Dim Plage As Range
    Dim Cel As Range
    With Worksheets("Feuil1")
       Set Plage = Range("D10:G22")
     End With
   For Each Cel In Plage
        If Application.CountIf(Plage, Cel.Value) > 1 Then
        Cel.Interior.ColorIndex = 15
        End If       
    Next Cel
End Sub
Si vous avez ce qu'il me manque dans mon code ou si il y a une astuce dans les mises en forme, je suis preneur..
Merci à tous et bonne soirée.
 
Dernière édition:

Staple1600

XLDnaute Barbatruc
Bonsoir le fil, le fourm

Bonsoir Pierkai et bienvenue sur XLD :), Staple1600;) ,

Enoncé plus qu'imprécis selon @mapomme . Une interprétation dans le fichier joint différente de celle de Staple1600.
@mapomme
C'est gentil mapomme de me faire apparaître dans un fil où je n'avais pas mis les pieds jusqu'à maintenant
Tu m'aurais pas confondu avec CISCO des fois ? ;)

Ou alors tu as abusé de quelque substances psychoactives ? ;)
 

Pierkai

XLDnaute Nouveau
Bonjour,
tout d’abord merci à tous pour votre rapidité et votre boulot !
cependant j'ai deux petits soucis :

@mapomme, j'ai oublié de préciser mais je travaille sur Mac 2011 et ce tableau ne sera utilisé que par des utilisateurs sous mac. Du coup j'avais bien vu cette histoire de Scripting.Dictionary mais je ne trouve pas Microsoft Scripting Runtime sur mac et même si je trouve comment l'installer sur mon poste, je ne peux pas le faire sur les 20 autres..

Du coup je me suis tourné vers la solution @CISCO qui marche très bien mais quand je l'adapte à mon tableau j'ai ceci : 1 2 2 3 3 3 au lieu de ceci 1 2 2 3 3 3 comme dans le tableau de CISCO et ce que je souhaite.
y a t'il une option dans la mise en forme à activer que j'aurais oublié ?

Pour info c'est un tableau tout simple comme celui de mapomme avec plusieurs colonnes et plusieurs lignes.

Encore une fois merci à tous, je sais que c'est du temps de répondre et chercher, je vous en remercie !
 

Pierkai

XLDnaute Nouveau
Bonjour CISCO,

désolé je me suis mal exprimé, ta mise en forme marche très bien sur mac, c'est celle de mapomme qui ne marche pas sur mon mac, mais quand je l'adapte je n'ai plus le même effet que dans ton fichier.

voici ci joint un morceau de tableau, ça sera plus parlant.
Merci.
 

Pièces jointes

  • Classeur1.xlsx
    37.9 KB · Affichages: 43

Discussions similaires

Réponses
1
Affichages
160
Réponses
0
Affichages
136

Statistiques des forums

Discussions
312 097
Messages
2 085 257
Membres
102 844
dernier inscrit
atori2