Userform : Format de date incompatible avec calculs...
2 réponses
Domi
Bonsoir,
Avec l'aide de MichDenis, j'utilise dans un userform ce petit code pour
connaitre le nombre de jour ouvrés entre 2 dates, elles mêmes calculées...
A = CDate(TextBox1)
B = CDate(TextBox2)
TextBox3.Value = networkdays(A, B, Range("joursferies"))
Cela marche parfaitement bien si les dates calculées le sont de la façon
suivante :
Me.TextBox1.Value = workday(CDate(SelectDate), -15,
Range("joursferies"))
Me.TextBox2.Value = workday(CDate(SelectDate), -25,
Range("joursferies"))
Par contre, cela ne marche plus si les dates calculées le sont avec un
format spécial tel que celui ci
Me.TextBox1.Value = Format(workday(CDate(SelectDate), -15,
Range("joursferies")), "dddd dd mmm yyyy")
Me.TextBox2.Value = Format(workday(CDate(SelectDate), -25,
Range("joursferies")), "dddd dd mmm yyyy")
J'aimerai bien conserver le format spécial, quelqu'un saurait-il me dire
comment calculer le nombre de jours ouvrés entre les 2 dates en conservant
leur format ?
Merci
Domi
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,
Pourquoi t'empêtrer avec la fonction "format()". Cette fonction n'a pas été créé pour calculer mais pour afficher un résultat. Tu exécutes tes calculs en utilisant des variables et tu utilises la fonction "Format" seulement lorsqu'il s'agit d'afficher le résultat dans un textbox ou une cellule.
Salutations!
"Domi" a écrit dans le message de news: Bonsoir, Avec l'aide de MichDenis, j'utilise dans un userform ce petit code pour connaitre le nombre de jour ouvrés entre 2 dates, elles mêmes calculées... A = CDate(TextBox1) B = CDate(TextBox2) TextBox3.Value = networkdays(A, B, Range("joursferies"))
Cela marche parfaitement bien si les dates calculées le sont de la façon suivante : Me.TextBox1.Value = workday(CDate(SelectDate), -15, Range("joursferies")) Me.TextBox2.Value = workday(CDate(SelectDate), -25, Range("joursferies"))
Par contre, cela ne marche plus si les dates calculées le sont avec un format spécial tel que celui ci Me.TextBox1.Value = Format(workday(CDate(SelectDate), -15, Range("joursferies")), "dddd dd mmm yyyy") Me.TextBox2.Value = Format(workday(CDate(SelectDate), -25, Range("joursferies")), "dddd dd mmm yyyy")
J'aimerai bien conserver le format spécial, quelqu'un saurait-il me dire comment calculer le nombre de jours ouvrés entre les 2 dates en conservant leur format ? Merci Domi
Bonjour Domi,
Pourquoi t'empêtrer avec la fonction "format()". Cette fonction n'a pas été créé pour calculer mais pour afficher un résultat. Tu
exécutes tes calculs en utilisant des variables et tu utilises la fonction "Format" seulement lorsqu'il s'agit d'afficher le
résultat dans un textbox ou une cellule.
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news: OchMPkTOFHA.1096@tk2msftngp13.phx.gbl...
Bonsoir,
Avec l'aide de MichDenis, j'utilise dans un userform ce petit code pour
connaitre le nombre de jour ouvrés entre 2 dates, elles mêmes calculées...
A = CDate(TextBox1)
B = CDate(TextBox2)
TextBox3.Value = networkdays(A, B, Range("joursferies"))
Cela marche parfaitement bien si les dates calculées le sont de la façon
suivante :
Me.TextBox1.Value = workday(CDate(SelectDate), -15,
Range("joursferies"))
Me.TextBox2.Value = workday(CDate(SelectDate), -25,
Range("joursferies"))
Par contre, cela ne marche plus si les dates calculées le sont avec un
format spécial tel que celui ci
Me.TextBox1.Value = Format(workday(CDate(SelectDate), -15,
Range("joursferies")), "dddd dd mmm yyyy")
Me.TextBox2.Value = Format(workday(CDate(SelectDate), -25,
Range("joursferies")), "dddd dd mmm yyyy")
J'aimerai bien conserver le format spécial, quelqu'un saurait-il me dire
comment calculer le nombre de jours ouvrés entre les 2 dates en conservant
leur format ?
Merci
Domi
Pourquoi t'empêtrer avec la fonction "format()". Cette fonction n'a pas été créé pour calculer mais pour afficher un résultat. Tu exécutes tes calculs en utilisant des variables et tu utilises la fonction "Format" seulement lorsqu'il s'agit d'afficher le résultat dans un textbox ou une cellule.
Salutations!
"Domi" a écrit dans le message de news: Bonsoir, Avec l'aide de MichDenis, j'utilise dans un userform ce petit code pour connaitre le nombre de jour ouvrés entre 2 dates, elles mêmes calculées... A = CDate(TextBox1) B = CDate(TextBox2) TextBox3.Value = networkdays(A, B, Range("joursferies"))
Cela marche parfaitement bien si les dates calculées le sont de la façon suivante : Me.TextBox1.Value = workday(CDate(SelectDate), -15, Range("joursferies")) Me.TextBox2.Value = workday(CDate(SelectDate), -25, Range("joursferies"))
Par contre, cela ne marche plus si les dates calculées le sont avec un format spécial tel que celui ci Me.TextBox1.Value = Format(workday(CDate(SelectDate), -15, Range("joursferies")), "dddd dd mmm yyyy") Me.TextBox2.Value = Format(workday(CDate(SelectDate), -25, Range("joursferies")), "dddd dd mmm yyyy")
J'aimerai bien conserver le format spécial, quelqu'un saurait-il me dire comment calculer le nombre de jours ouvrés entre les 2 dates en conservant leur format ? Merci Domi
Domi
Dont acte, je vais essayer de suivre tes conseils, je n'utilise pas assez les variables... Je m'y met ! Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
Pourquoi t'empêtrer avec la fonction "format()". Cette fonction n'a pas été créé pour calculer mais pour afficher un résultat. Tu
exécutes tes calculs en utilisant des variables et tu utilises la fonction "Format" seulement lorsqu'il s'agit d'afficher le
résultat dans un textbox ou une cellule.
Salutations!
"Domi" a écrit dans le message de news:
Bonsoir, Avec l'aide de MichDenis, j'utilise dans un userform ce petit code pour connaitre le nombre de jour ouvrés entre 2 dates, elles mêmes calculées... A = CDate(TextBox1) B = CDate(TextBox2) TextBox3.Value = networkdays(A, B, Range("joursferies"))
Cela marche parfaitement bien si les dates calculées le sont de la façon suivante : Me.TextBox1.Value = workday(CDate(SelectDate), -15, Range("joursferies")) Me.TextBox2.Value = workday(CDate(SelectDate), -25, Range("joursferies"))
Par contre, cela ne marche plus si les dates calculées le sont avec un format spécial tel que celui ci Me.TextBox1.Value = Format(workday(CDate(SelectDate), -15, Range("joursferies")), "dddd dd mmm yyyy") Me.TextBox2.Value = Format(workday(CDate(SelectDate), -25, Range("joursferies")), "dddd dd mmm yyyy")
J'aimerai bien conserver le format spécial, quelqu'un saurait-il me dire comment calculer le nombre de jours ouvrés entre les 2 dates en conservant leur format ? Merci Domi
Dont acte, je vais essayer de suivre tes conseils, je n'utilise pas assez
les variables...
Je m'y met !
Merci
Domi
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de
news:uDqxz9TOFHA.3144@tk2msftngp13.phx.gbl...
Bonjour Domi,
Pourquoi t'empêtrer avec la fonction "format()". Cette fonction n'a pas
été créé pour calculer mais pour afficher un résultat. Tu
exécutes tes calculs en utilisant des variables et tu utilises la fonction
"Format" seulement lorsqu'il s'agit d'afficher le
résultat dans un textbox ou une cellule.
Salutations!
"Domi" <scrat83@free.fr> a écrit dans le message de news:
OchMPkTOFHA.1096@tk2msftngp13.phx.gbl...
Bonsoir,
Avec l'aide de MichDenis, j'utilise dans un userform ce petit code pour
connaitre le nombre de jour ouvrés entre 2 dates, elles mêmes calculées...
A = CDate(TextBox1)
B = CDate(TextBox2)
TextBox3.Value = networkdays(A, B, Range("joursferies"))
Cela marche parfaitement bien si les dates calculées le sont de la façon
suivante :
Me.TextBox1.Value = workday(CDate(SelectDate), -15,
Range("joursferies"))
Me.TextBox2.Value = workday(CDate(SelectDate), -25,
Range("joursferies"))
Par contre, cela ne marche plus si les dates calculées le sont avec un
format spécial tel que celui ci
Me.TextBox1.Value = Format(workday(CDate(SelectDate), -15,
Range("joursferies")), "dddd dd mmm yyyy")
Me.TextBox2.Value = Format(workday(CDate(SelectDate), -25,
Range("joursferies")), "dddd dd mmm yyyy")
J'aimerai bien conserver le format spécial, quelqu'un saurait-il me dire
comment calculer le nombre de jours ouvrés entre les 2 dates en conservant
leur format ?
Merci
Domi
Dont acte, je vais essayer de suivre tes conseils, je n'utilise pas assez les variables... Je m'y met ! Merci Domi
"MichDenis" a écrit dans le message de news:
Bonjour Domi,
Pourquoi t'empêtrer avec la fonction "format()". Cette fonction n'a pas été créé pour calculer mais pour afficher un résultat. Tu
exécutes tes calculs en utilisant des variables et tu utilises la fonction "Format" seulement lorsqu'il s'agit d'afficher le
résultat dans un textbox ou une cellule.
Salutations!
"Domi" a écrit dans le message de news:
Bonsoir, Avec l'aide de MichDenis, j'utilise dans un userform ce petit code pour connaitre le nombre de jour ouvrés entre 2 dates, elles mêmes calculées... A = CDate(TextBox1) B = CDate(TextBox2) TextBox3.Value = networkdays(A, B, Range("joursferies"))
Cela marche parfaitement bien si les dates calculées le sont de la façon suivante : Me.TextBox1.Value = workday(CDate(SelectDate), -15, Range("joursferies")) Me.TextBox2.Value = workday(CDate(SelectDate), -25, Range("joursferies"))
Par contre, cela ne marche plus si les dates calculées le sont avec un format spécial tel que celui ci Me.TextBox1.Value = Format(workday(CDate(SelectDate), -15, Range("joursferies")), "dddd dd mmm yyyy") Me.TextBox2.Value = Format(workday(CDate(SelectDate), -25, Range("joursferies")), "dddd dd mmm yyyy")
J'aimerai bien conserver le format spécial, quelqu'un saurait-il me dire comment calculer le nombre de jours ouvrés entre les 2 dates en conservant leur format ? Merci Domi
