Discussion :

[NEC14]

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

[SfJ5Rpw8]

bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Target.Interior.ColorIndex =  4

[NEC14]

Merci beaucoup. La solution était simple.

Merci encore