Changer de couleur dans les cellules

Bonjour à tous,

J'ai un projet que j'aimerai apporter un petit plus.

Se sont des cartons de loto quand on clique dessus une cellule celle-ci change de couleur.

J'aimerai que si je clique sur une cellule et que ces cartons possèdent des numéros identiques qu'on ai pas la peine de recliquer sur ce même numéros pour changer de couleur. Donc je pense qu'il faut faire une recherche si il rencontre des numéros identiques ces derniers prennent la couleur appropriée.

Voici le code dans la feuille :

Option Explicit
_________________________________________________________________________________________
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Coul As Byte
If Target.Count > 1 Then Exit Sub
  Select Case Target.Interior.ColorIndex
    Case 3, 15
      Coul = 4  
  End Select
  Target.Interior.ColorIndex = Coul
  End Sub

Que faut-il rajouter à ce code pour arriver au résultat escompté.

Merci de votre aide

Amicalement

Noel

Salut Noël,

Tu es incorrigible ; malgré que je te l’ai dit 3 ou 4 fois, tu ne joins toujours pas de fichier-modèle

J’ai donc imaginé mon propre fichier et y ai placé le code ci-dessous :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Plage As Range, Cellule As Range

If Target.Count > 1 Then Exit Sub

If Target <> "" Then
    ActiveSheet.UsedRange.Select
    For Each Cellule In Selection
        If Cellule = Target Then Cellule.Interior.ColorIndex = 4
    Next
End If

Range("A12").Select

End Sub

Celui-ci se déclenche après un double-clique sur une cellule quelconque. Si tu préfères vraiment qu’il se déclenche lors de chaque sélection de cellule, tu le modifies en conséquence.

Je pense qu'en ayant eu ton fichier sous la main, il aurait été possible de voir comment corriger ton code au lieu de t'en proposer un tout nouveau.

Cordialement.

Bonjour Yvouille,

Je suis désolé le fichier est sur le forum il se nomme "Carton Loto"

Je travaille sous excel 2003 donc je ne peux pas lire les fichiers .xlsm

Je joints le fichier en .rar

@+

Amicalement

Noel

cfn3cfn a écrit :

Je suis désolé le fichier est sur le forum il se nomme "Carton Loto"

Comment veux-tu que je le sache ??

cfn3cfn a écrit :

Je travaille sous excel 2003 donc je ne peux pas lire les fichiers .xlsm

Et moi je ne peux pas ouvrir les fichiers .rar. Peux-tu soit essayer de compresser ton fichier, soit de passer par le site C-Joint http://www.cjoint.com/

En annexe, mon fichier au format 97-2003.

Amicalement.

Bonjour Yvouille,

Voici le lien comme tu me l'as demandé.

http://www.cjoint.com/

J'ai bien reçu ton code pour changer la couleur surtout sur les n° identiques.

Mais j'aimerai au lieu de faire Dbleclick, un simple click.

Souhaitant bonne réception

Amicalement

Noel

Re,

Je m'excuse.

@+

Re,

Yvouille, je viens de trouver la solution pour le changement de couleurs des N° identiques.

Merci à plus.

Amicalement

Noel