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

tchi456 · 16 Mars 2022

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

Efgé · 16 Mars 2022

Bonjour @tchi456

VB:

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

Cordialement

Efgé · 16 Mars 2022

Bonjour @tchi456

VB:

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

Cordialement

sylvanu · 16 Mars 2022

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.

Efgé · 16 Mars 2022

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 · 16 Mars 2022

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

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

tchi456

XLDnaute Occasionnel

Efgé

Efgé

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Efgé

XLDnaute Barbatruc

tchi456

XLDnaute Occasionnel

Discussions similaires