croix dans cellule quand clique

[elo6]

Bonjour le forum,
J'avais déjà demandé de l'aide à propos de mettre une croix automatiquement dans une cellule après un clique. Cependant, je n'arrive pas à faire fonctionner la private sub (code ci-après) dans la zone que j'ai encadré sur le fichier joint malgré le fait de l'avoir nommée ZoneDonnees. Pouvez-vous me dire pourquoi?
En vous remerciant d'avance!

Code de la private Sub:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 35 And Not Application.Intersect(Target, Range('ZoneDonnees')) Is Nothing Then
Range(Cells(Target.Row, 4), Cells(Target.Row, 8)) = ''
Target = IIf(Target.Text = 'X', '', 'X')
End If
End Sub [file name=essaicroix.zip size=6769]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essaicroix.zip[/file]

 

[Hervé]

Bonjour elo, le forum

Il faut aussi que ta zone soit colorié en vert pour que ton code fonctionne.(vert clair, le plus clair)

salut

 

[elo6]

Merci ça marche!
Et si ma zone est blanche, comment savoir le 'numéro' de la couleur?

 

[elo6]

Pas la peine, j'ai fait une recherche et j'ai trouvé dans le forum! (mots clé numéro de couleurs) Un fichier Palette est dispo et merci à tous!