XL 2010 VBA - Incrémentation date sans week-end

tchi456

XLDnaute Occasionnel
Bonjour,

J'ai ce code qui fonctionne très bien pour pouvoir incrémenter une date. Je souhaiterais l'adapter pour que l'incrémentation ne prenne pas en compte les jours du week-end.

Est-ce que c'est réalisable?

VB:
    'Pour incrémenter la date ou insérer la date du jour par double clics
   If Not Intersect(Target, Range("B:B")) Is Nothing And Target.Row > 1 Then
        Cancel = True
        If Target = "" And Target.Offset(-1, 0) <> "" Then
            Target = Target.Offset(-1, 0) + 1
        ElseIf Target = "" And Target.Offset(-1, 0) = "" Then
            Target = Format(Now, "dd.mm.yyyy")
        Else
            Target = ""
        End If
    End If

Mes meilleures salutations,

Thierry
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Tchi,
A la place de :
Code:
Target = Format(Now, "dd.mm.yyyy")
testez :
Code:
Select Case Weekday(Now)
     Case 6: target = Format(Now + 3, "dddd dd.mm.yyyy")      ' Vendredi, +3 pour lundi
     Case 7: target = Format(Now + 2, "dddd dd.mm.yyyy")      ' Samedi, +2 pour lundi
     Case Else: target = Format(Now + 1, "dddd dd.mm.yyyy")   ' Sinon aujourd'hui+1
End Select
Le dddd est juste pour le test, pour vérifier le nom du jour. Si c'est ok supprimez le et mettez votre propre format.
 

Discussions similaires