XL 2010 Couleur variante ( Résolu )

Kael_88

XLDnaute Occasionnel
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?

VB:
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)

XLDnaute Barbatruc
Bon voila la suite
Bruno
VB:
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
 

Discussions similaires

Statistiques des forums

Discussions
311 730
Messages
2 081 978
Membres
101 854
dernier inscrit
micmag26