Colorier doublon sauf l'original

[Pierkai]

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.

[/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.

 

[CISCO]

Bonsoir

Cf. en pièce jointe.

@plus

 

[mapomme]

Bonsoir Pierkai et bienvenue sur XLD , @CISCO ,

Énoncé plus qu'imprécis selon @mapomme . Une interprétation dans le fichier joint différente de celle de CISCO.

 

[Staple1600]

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 ?

 

[mapomme]

@Staple1600

Tu m'aurais pas confondu avec CISCO des fois ?

Ou alors tu as abusé de quelque substances psychoactives ?

les deux mon capitaine

J'ai corrigé...

 

[Pierkai]

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 !

 

[CISCO]

Bonjour

Est-ce que tu peux mettre un extrait de ton fichier en pièce jointe ? C'est étonnant que ma proposition ne fonctionne pas sur Mac ! Un $ mal placé ?

@ plus

 

[mapomme]

Re @Pierkai

Voir la procédure Test02 qui n'utilise pas de "dictionary".

 

[Pierkai]

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.

 

[Pierkai]

Re @mapomme

parfait c'est exactement ça !
Merci beaucoup en tout cas pour votre taf et votre rapidité.
Bonne journée.