Bonjour,
je voudrais qu'une cellule change de couleur lorsque je clique dessus. Comment faire?
J'ai vu une réponse qui correspondait dans une précédente question. Je voudrais maintenant établir un compteur me permettant de changer la couleur en fonction du nombre de fois que je clique sur une case.
(si je clique une fois la case devient jaune deux fois verte trois fois rouge par exemple)

Détails supplémentaires

en fait je souhait le faire avec une succession de clique mais je n'ai trouvé que la fonction double clicks pour le moment
voilà le code qui marche pour un seul double clique

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Static lastCell As Range
If Not lastCell Is Nothing Then
'lastCell.Interior.ColorIndex = xlNone
End If
If lastCell Is Target Then
End If
If Not Intersect(Target, Range("H5:BO45")) Is Nothing Then
With Target.Interior
.Pattern = xlSolid
.ColorIndex = 6
End With
Set lastCell = Target
Else
Exit Sub
End If
End Sub
Merci de votre aide