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

[tchi456]

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?

    '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

 

[Efgé]

Bonjour @tchi456

If Target = "" And Target.Offset(-1, 0) <> "" Then
            Target = Application.WorkDay(Target.Offset(-1, 0), 1)

Cordialement

 

[sylvanu]

Bonjour Tchi,
A la place de :

Target = Format(Now, "dd.mm.yyyy")

testez :

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.

 

[Efgé]

Re, Bonjour @sylvanu
Je pense que la macro incrémente d'un jour par rapport à la cellule au-dessus (Target.Offset(-1, 0) + 1) et non par rapport à "Aujourd'hui" 😉
Cordialement

 

[tchi456]

Bonjour Efgé et Sylvanu,

Merci pour vos proposition.
Efgé c'est exactement ce que je souhaitais; votre code fonctionne parfaitement bien.

Mes meilleures salutations et bonne fin de journée!

Thierry