anthoYS
XLDnaute Barbatruc
bonjour,
voir PJ.
merci
à+
voir PJ.
Code:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$3" Then Target.Value = Date - 1: Cancel = True
Cancel = True
If Not Application.Intersect(Target, [F33:IV70]) Is Nothing Then Target.Interior.ColorIndex = IIf(Target.Interior.ColorIndex = 4, xlNone, 4)
'target est colorée
End Sub
merci
à+