Mettre la date d’hier par double clic sauf en cas de WE et JF

[anthoYS]

bonjour,

voir PJ.

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
à+

 

[kjin]

Re : Mettre la date d’hier par double clic sauf en cas de WE et JF

Bonjour,
Les jours fériés en ouzbékistan ?!
A+
kjin

 

[anthoYS]

Re : Mettre la date d’hier par double clic sauf en cas de WE et JF

re,



Non comme tout comme toi je suis français, il me semble logique de prendre en compte les jours fériés en France. Pardon de ne pas l'avoir précisé.



à+