Addition jours ouvrés à une date
Résolu
sissy0810
Messages postés
4
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Addition jours ouvrés à une date
- Nombre de jours entre deux dates excel - Guide
- Compte facebook suspendu 180 jours - Guide
- Addition excel - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise a jour windows 10 - Accueil - Mise à jour
7 réponses
bonjour
ta date en A1, le nbre de jours ouvrés en B1
dans ton code:
ou
nota: peut-être qu'il faut que dans XL l'utilitaire d'analyse soit activé (outils-macros complémentaires)
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)
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
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
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 ? :-)
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 ? :-)
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 ?
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question