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

Efgé

XLDnaute Barbatruc

• 16 Mars 2022

• #2

Bonjour @tchi456

VB:

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

Cordialement

 

Vote positif 0 Vote négatif

Solution

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 16 Mars 2022

• #3

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.

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 16 Mars 2022

• #4

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

 

Vote positif 0 Vote négatif

T

tchi456

XLDnaute Occasionnel

• 16 Mars 2022

• #5

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

 

Vote positif 0 Vote négatif