Colorer une cellule après double-click

Bonjour,

Lorsque je fais un double click sur une cellule, j'aimerai que celle-ci se colore en vert (4) et qu'elle reste colorée.
J'ai mis en place le code ci-dessous qui fonctionne bien lors d'un premier double-click, hors si je double-clique une deuxième fois sur la cellule, la couleur s'efface. Que dois-je ajouter pour que cela ne produise pas ?
Merci par avance pour votre aide

Code:

---

1 2 3 4 5 6

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([A11:A28], Target) Is Nothing Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4) End If End Sub

---

bonjour,

en fait il faut enlever des choses ... modifie cette ligne :

Code:

---

Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)

---

qui permet le basculement de la couleur 4 vers xlNone et vice versa .. par un forçage en couleur 4 ( je suppose que c'est le vert ...) quelque soit la couleur courante...

Code:

---

Target.Interior.ColorIndex = 4

---

Merci beaucoup. La solution était simple.

Merci encore :ccool: