date

Isa · 18 Février 2005

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 · 18 Février 2005

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 · 18 Février 2005

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 · 18 Février 2005

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 · 18 Février 2005

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 · 18 Février 2005

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

isa · 18 Février 2005

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

date

Isa

Guest

Pièces jointes

Pascal76

Guest

isa

Guest

Papy Novice

Guest

Pascal76

Guest

Papy Novice

Guest

isa

Guest

Discussions similaires