date

[Isa]

bonjour a tous

Dans une application de planning suite a une action de validation de la journée de travail je passe a la date du lendemain automatiquement avec ce code

jour = Range("C1").Value

Range("C1").Value = jour + 1


mais je souhaite faire une petite amélioration si je valide un vendredi avoir le lundi et non le samedi j'ai bien essaye le code ci dessous mais ça ne marche pas

jour = Range("C1").Value
If Range("C1") = vbFriday Then
Range("C1").Value = jour + 3
Else
Range("C1").Value = jour + 1
End If
End Sub


merci a tous et bonne journée
isa

 

[Pascal76]

Bonjour

essaies ceci

If Weekday(Range("C1"), vbMonday) = 5 Then
Range("C1") = Range("C1") + 3
Else
Range("C1") = Range("C1") + 1
End If

Pascal

 

[isa]

merci pascal pour la reponse aussi rapide ça marche c'est ce que je souhaitait ,etant debutant je ne comprends pas trop vb monday

en 2 mots si tu peux m'expliquer

encore merci @+

 

[Papy Novice]

Bonjour isa,

je ne comprends pas trop vb monday

Tu fais un double clic sur vbmonday , puis tu appuies sur F1 et tu obtients :
= lundi

 

[Pascal76]

Re

Si tu n'ecris pas Weekday(Range("C1"), vbMonday) mais simplement Weekday(Range("C1")) tu as les jours comptés à partir du dimanche; donc ton vendredi =6

Par souci de relire rapidement je préfère rajouter le vbMonday qui permet de d'avoir les jours comme on les utilise usuellemtn (lundi=1, mardi=2, ...)

Bonne journée

Pascal

 

[Papy Novice]

Merci Pascal pour la précision donnée.
Bon Week-end à toit et à tous ceux du forum.
Jean

 

[isa]

merci pascal
voila je comprends mieux
bon weekend à toi et tout le forum