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 : Sélectionner tout - Visualiser dans une fenêtre à part
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