Userform : Champs calculés avec des dates, pb de syntaxe...
2 réponses
Domi
Bonjour à tous
Je voudrais faire 2 types de calculs sur des dates dans un userform :
1°) Comment dans un textbox DateCalc, connaître la date = Date qui figure
dans le textbox DateIni + valeur numérique qui figure dans le textbox Nbj
Ou comment remplacer mon "4" par Nbj ?
2°) problème inverse : comment connaître dans un textbox le nombres de jours
ouvrés qui séparent 2 dates saisies dans 2 autres textbox , en tenant compte
d'une liste de jours fériés "joursferies" ?
Pour info, j'utilise actuellement ce code pour connaître dans dateFab3 une
date = dateExped - 3 jours ouvrés
Me.dateFab3.Value = Format(workday(CDate(dateExped), -3,
Range("joursferies")), "dddd dd mmm yyyy")
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichDenis
Bonjour Domi,
A ) tu dois t'assurer que les dates saisies par l'usager correspond bien à ce que tu veux. Pour ce faire, tu peux utiliser le contrôle Calandar ou DtPicker ou encore avoir recours à 3 textbox pour insérer les jours / mois / années.
B ) En supposant que TextBox2 est utilisé pour entrer le nombre de jours pour incrémenter ta date En supposant que Textbox1 a été validé par une procédure qui t'assure de la validité de la date saisie par l'usager
C ) Pour pouvoir utiliser la fonction =NB.JOURS.OUVRES() en vba, tu dois ajouter la référence suivante à ton classeur : Fenêtre VBE(visual basic editor) , barre des menus / outils / references / atpvbaen.xls
D ) Après tu peux utiliser la fonction NetWorkdays() avec les mêmes arguments de la fonction de la feuille NB.JOURS.OUVRES()
Salutations!
"Domi" a écrit dans le message de news: Bonjour à tous Je voudrais faire 2 types de calculs sur des dates dans un userform : 1°) Comment dans un textbox DateCalc, connaître la date = Date qui figure dans le textbox DateIni + valeur numérique qui figure dans le textbox Nbj Ou comment remplacer mon "4" par Nbj ?
2°) problème inverse : comment connaître dans un textbox le nombres de jours ouvrés qui séparent 2 dates saisies dans 2 autres textbox , en tenant compte d'une liste de jours fériés "joursferies" ?
Pour info, j'utilise actuellement ce code pour connaître dans dateFab3 une date = dateExped - 3 jours ouvrés Me.dateFab3.Value = Format(workday(CDate(dateExped), -3, Range("joursferies")), "dddd dd mmm yyyy")
Je tourne en rond... Merci pour votre aide. Domi
Bonjour Domi,
A ) tu dois t'assurer que les dates saisies par l'usager correspond bien à ce que tu veux. Pour ce faire, tu peux utiliser le
contrôle Calandar ou DtPicker ou encore avoir recours à 3 textbox pour insérer les jours / mois / années.
B ) En supposant que TextBox2 est utilisé pour entrer le nombre de jours pour incrémenter ta date
En supposant que Textbox1 a été validé par une procédure qui t'assure de la validité de la date saisie par l'usager
C ) Pour pouvoir utiliser la fonction =NB.JOURS.OUVRES() en vba, tu dois ajouter la référence suivante à ton classeur :
Fenêtre VBE(visual basic editor) , barre des menus / outils / references / atpvbaen.xls
D ) Après tu peux utiliser la fonction NetWorkdays() avec les mêmes arguments de la fonction de la feuille NB.JOURS.OUVRES()
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news: uCi3dhQOFHA.3388@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Je voudrais faire 2 types de calculs sur des dates dans un userform :
1°) Comment dans un textbox DateCalc, connaître la date = Date qui figure
dans le textbox DateIni + valeur numérique qui figure dans le textbox Nbj
Ou comment remplacer mon "4" par Nbj ?
2°) problème inverse : comment connaître dans un textbox le nombres de jours
ouvrés qui séparent 2 dates saisies dans 2 autres textbox , en tenant compte
d'une liste de jours fériés "joursferies" ?
Pour info, j'utilise actuellement ce code pour connaître dans dateFab3 une
date = dateExped - 3 jours ouvrés
Me.dateFab3.Value = Format(workday(CDate(dateExped), -3,
Range("joursferies")), "dddd dd mmm yyyy")
A ) tu dois t'assurer que les dates saisies par l'usager correspond bien à ce que tu veux. Pour ce faire, tu peux utiliser le contrôle Calandar ou DtPicker ou encore avoir recours à 3 textbox pour insérer les jours / mois / années.
B ) En supposant que TextBox2 est utilisé pour entrer le nombre de jours pour incrémenter ta date En supposant que Textbox1 a été validé par une procédure qui t'assure de la validité de la date saisie par l'usager
C ) Pour pouvoir utiliser la fonction =NB.JOURS.OUVRES() en vba, tu dois ajouter la référence suivante à ton classeur : Fenêtre VBE(visual basic editor) , barre des menus / outils / references / atpvbaen.xls
D ) Après tu peux utiliser la fonction NetWorkdays() avec les mêmes arguments de la fonction de la feuille NB.JOURS.OUVRES()
Salutations!
"Domi" a écrit dans le message de news: Bonjour à tous Je voudrais faire 2 types de calculs sur des dates dans un userform : 1°) Comment dans un textbox DateCalc, connaître la date = Date qui figure dans le textbox DateIni + valeur numérique qui figure dans le textbox Nbj Ou comment remplacer mon "4" par Nbj ?
2°) problème inverse : comment connaître dans un textbox le nombres de jours ouvrés qui séparent 2 dates saisies dans 2 autres textbox , en tenant compte d'une liste de jours fériés "joursferies" ?
Pour info, j'utilise actuellement ce code pour connaître dans dateFab3 une date = dateExped - 3 jours ouvrés Me.dateFab3.Value = Format(workday(CDate(dateExped), -3, Range("joursferies")), "dddd dd mmm yyyy")
Je tourne en rond... Merci pour votre aide. Domi
Domi
Merci, cela correspond parfaitement à mon attente, je n'aurais pas trouvé ça seul ! J'ai un petit souci avec le 2°) mais cela est du au format des dates... je vais reposer une question sur le forum à ce sujet... Encore merci Domi
"MichDenis" a écrit dans le message de news:%
Bonjour Domi,
A ) tu dois t'assurer que les dates saisies par l'usager correspond bien à ce que tu veux. Pour ce faire, tu peux utiliser le
contrôle Calandar ou DtPicker ou encore avoir recours à 3 textbox pour insérer les jours / mois / années.
B ) En supposant que TextBox2 est utilisé pour entrer le nombre de jours pour incrémenter ta date
En supposant que Textbox1 a été validé par une procédure qui t'assure de la validité de la date saisie par l'usager
D ) Après tu peux utiliser la fonction NetWorkdays() avec les mêmes arguments de la fonction de la feuille NB.JOURS.OUVRES()
Salutations!
"Domi" a écrit dans le message de news:
Bonjour à tous Je voudrais faire 2 types de calculs sur des dates dans un userform : 1°) Comment dans un textbox DateCalc, connaître la date = Date qui figure dans le textbox DateIni + valeur numérique qui figure dans le textbox Nbj Ou comment remplacer mon "4" par Nbj ?
2°) problème inverse : comment connaître dans un textbox le nombres de jours
ouvrés qui séparent 2 dates saisies dans 2 autres textbox , en tenant compte
d'une liste de jours fériés "joursferies" ?
Pour info, j'utilise actuellement ce code pour connaître dans dateFab3 une date = dateExped - 3 jours ouvrés Me.dateFab3.Value = Format(workday(CDate(dateExped), -3, Range("joursferies")), "dddd dd mmm yyyy")
Je tourne en rond... Merci pour votre aide. Domi
Merci, cela correspond parfaitement à mon attente, je n'aurais pas trouvé ça
seul !
J'ai un petit souci avec le 2°) mais cela est du au format des dates... je
vais reposer une question sur le forum à ce sujet...
Encore merci
Domi
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23YRc4eROFHA.3960@TK2MSFTNGP12.phx.gbl...
Bonjour Domi,
A ) tu dois t'assurer que les dates saisies par l'usager correspond bien à
ce que tu veux. Pour ce faire, tu peux utiliser le
contrôle Calandar ou DtPicker ou encore avoir recours à 3 textbox pour
insérer les jours / mois / années.
B ) En supposant que TextBox2 est utilisé pour entrer le nombre de jours
pour incrémenter ta date
En supposant que Textbox1 a été validé par une procédure qui
t'assure de la validité de la date saisie par l'usager
D ) Après tu peux utiliser la fonction NetWorkdays() avec les mêmes
arguments de la fonction de la feuille NB.JOURS.OUVRES()
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news:
uCi3dhQOFHA.3388@TK2MSFTNGP10.phx.gbl...
Bonjour à tous
Je voudrais faire 2 types de calculs sur des dates dans un userform :
1°) Comment dans un textbox DateCalc, connaître la date = Date qui figure
dans le textbox DateIni + valeur numérique qui figure dans le textbox Nbj
Ou comment remplacer mon "4" par Nbj ?
2°) problème inverse : comment connaître dans un textbox le nombres de
jours
ouvrés qui séparent 2 dates saisies dans 2 autres textbox , en tenant
compte
d'une liste de jours fériés "joursferies" ?
Pour info, j'utilise actuellement ce code pour connaître dans dateFab3 une
date = dateExped - 3 jours ouvrés
Me.dateFab3.Value = Format(workday(CDate(dateExped), -3,
Range("joursferies")), "dddd dd mmm yyyy")
Merci, cela correspond parfaitement à mon attente, je n'aurais pas trouvé ça seul ! J'ai un petit souci avec le 2°) mais cela est du au format des dates... je vais reposer une question sur le forum à ce sujet... Encore merci Domi
"MichDenis" a écrit dans le message de news:%
Bonjour Domi,
A ) tu dois t'assurer que les dates saisies par l'usager correspond bien à ce que tu veux. Pour ce faire, tu peux utiliser le
contrôle Calandar ou DtPicker ou encore avoir recours à 3 textbox pour insérer les jours / mois / années.
B ) En supposant que TextBox2 est utilisé pour entrer le nombre de jours pour incrémenter ta date
En supposant que Textbox1 a été validé par une procédure qui t'assure de la validité de la date saisie par l'usager
D ) Après tu peux utiliser la fonction NetWorkdays() avec les mêmes arguments de la fonction de la feuille NB.JOURS.OUVRES()
Salutations!
"Domi" a écrit dans le message de news:
Bonjour à tous Je voudrais faire 2 types de calculs sur des dates dans un userform : 1°) Comment dans un textbox DateCalc, connaître la date = Date qui figure dans le textbox DateIni + valeur numérique qui figure dans le textbox Nbj Ou comment remplacer mon "4" par Nbj ?
2°) problème inverse : comment connaître dans un textbox le nombres de jours
ouvrés qui séparent 2 dates saisies dans 2 autres textbox , en tenant compte
d'une liste de jours fériés "joursferies" ?
Pour info, j'utilise actuellement ce code pour connaître dans dateFab3 une date = dateExped - 3 jours ouvrés Me.dateFab3.Value = Format(workday(CDate(dateExped), -3, Range("joursferies")), "dddd dd mmm yyyy")