XL 2010 Couleur variante ( Résolu )

[Kael_88]

Le forum,

Merci à @youky(BJ) pour ces lignes.
si double-click sur cellule colonne A, cette dernière devient verte (fait),
par contre si un nouveau double-click sur une celulle deja verte, comment remettre celle-ci en incolore?

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True     '?vite le mode [?dition] li? au double-clic
If Target.Column = 1 Then Target.Interior.ColorIndex = "4"
If Target.Column = 5 Then Cells(Target.Row, 1) = Date
End Sub

Cordialement

 

[youky(BJ)]

Bon voila la suite
Bruno

Private Sub Worksheet_BeforedoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Target.Column = 1 Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = xlNone, "4", xlNone)
If Target.Column = 5 Then Cells(Target.Row, 1) = Date
End Sub

 

[Kael_88]

Le forum, Bruno,

Merci pour ta réactivité, c'est nickel.

Cordialement

 

[Dranreb]

Bonjour.
Je n'ai toujours pas compris ce que vous cherchiez à simplifier dans cette discussion.
Que pensez vous de ma dernière proposition ?