Addition jours ouvrés à une date

Résolu/Fermé
sissy0810 Messages postés 4 Date d'inscription mercredi 6 janvier 2010 Statut Membre Dernière intervention 6 janvier 2010 - 6 janv. 2010 à 11:14
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 6 janv. 2010 à 13:51
Bonjour,

J'ai un petit soucis en visual basic pour exel 2003

Je dois ajouter à une date qui souve en A1 un nombre de jours ouvrés pour avoir une date finale. J'avoue que j'ai du mal à trouver avec les jours ouvrés. Quelqu'un pourrait il m'aider SVP?

Merci d'avance

7 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
6 janv. 2010 à 12:16
bonjour

ta date en A1, le nbre de jours ouvrés en B1

dans ton code:
date_fin= [workday(A1,B1)]


ou

nbre = 50
dep = CLng(Range("A1"))
date_fin2 = Evaluate("workday(" & dep & "," & nbre & ")")
MsgBox Format(date_fin2, "dd/mm/yy")


nota: peut-être qu'il faut que dans XL l'utilitaire d'analyse soit activé (outils-macros complémentaires)
1
sissy0810 Messages postés 4 Date d'inscription mercredi 6 janvier 2010 Statut Membre Dernière intervention 6 janvier 2010
6 janv. 2010 à 13:35
Merci pour ta réponse mais il semble que je n'ai pas du faire ce qu'il faut car en résultat il me donne le 24/01/2054.
Pour plus de simplicité, je vous copie le programme que j'avais fait :

DateDébut = 0
nbrejours = 0
DateFin = 0

Sheets("temps formation").Select

DateDébut = Range("B2")
nbrejours = Range("D2").Value


DateFin = [workday(D2,B2)]

Cells(2, 3).Value = DateFin

Une autre question pour avoir le nombre de jours je divise mon nombre d'heures par 7 donc je vais avoir un nombre décimale de temps en temps. Cela posera-t il un problème? Si oui comment faire?

merci pour votre aide
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
6 janv. 2010 à 13:42
n'aurais tu pas inversé les paramêmtres?
tu as écris
DateFin = [workday(D2,B2)]
au lieu de
DateFin = [workday(B2,D2)]
...

pour avoir le nombre de jours je divise mon nombre d'heures par 7
???? C'est sur quelle planète ? :-)
0
tompols Messages postés 1273 Date d'inscription jeudi 29 juillet 2004 Statut Contributeur Dernière intervention 25 novembre 2013 435
6 janv. 2010 à 13:46
Hello
michel_m, 7 est le nombre d'heures par journée de formation (7h = 1j de formation ; 14h= 2j etc) ;)
du coup, va falloir gerer des demi journées ou on arrondi à la journée ?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
sissy0810 Messages postés 4 Date d'inscription mercredi 6 janvier 2010 Statut Membre Dernière intervention 6 janvier 2010
6 janv. 2010 à 13:48
Arrondir à la journée sera suffisant c'est juste une aide.

Merci bien
0
sissy0810 Messages postés 4 Date d'inscription mercredi 6 janvier 2010 Statut Membre Dernière intervention 6 janvier 2010
6 janv. 2010 à 13:50
Je viens de finir d'essayer et cela marche super.

Merci beaucoup pour votre aide.
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
6 janv. 2010 à 13:51
Excusez moi, je n'avais pas ma boule de Cristal !

Je vous laisse
0