OVH Cloud OVH Cloud

Jours.Ouvrés en VBA

4 réponses
Avatar
Michel.Girard
Bonjour
UN grand merci à Jacquouille et Daniel pour l'aide apportée concernant cette
fonction
Je désire avoir cette fonction en VBA
Sur un Userform,
J'ai un textbox1 date de départ, un textbox2 date d'arrivée.
après validation, la différence de jours part dans la feuille de calcul, via
Activecell =????????????
Merci beaucoup
Michel

4 réponses

Avatar
papou
Bonjour
Par exemple :
Evaluate("NB.JOURS.OUVRES(b1, c1, JFeries)")
Si pas de prise en compte des fériés tu peux voir aussi du côté de DateDiff
:
MsgBox DateDiff("d", [b1], [c1])
Cordialement
Pascal


"Michel.Girard" a écrit dans le message de
news: %
Bonjour
UN grand merci à Jacquouille et Daniel pour l'aide apportée concernant
cette fonction
Je désire avoir cette fonction en VBA
Sur un Userform,
J'ai un textbox1 date de départ, un textbox2 date d'arrivée.
après validation, la différence de jours part dans la feuille de calcul,
via
Activecell =????????????
Merci beaucoup
Michel






Avatar
Michel.Girard
Bonsoir Papou
Merci, mais avec mes textbox, je n'arrive pas à adapter
Michel

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Par exemple :
Evaluate("NB.JOURS.OUVRES(b1, c1, JFeries)")
Si pas de prise en compte des fériés tu peux voir aussi du côté de
DateDiff :
MsgBox DateDiff("d", [b1], [c1])
Cordialement
Pascal


"Michel.Girard" a écrit dans le message
de news: %
Bonjour
UN grand merci à Jacquouille et Daniel pour l'aide apportée concernant
cette fonction
Je désire avoir cette fonction en VBA
Sur un Userform,
J'ai un textbox1 date de départ, un textbox2 date d'arrivée.
après validation, la différence de jours part dans la feuille de calcul,
via
Activecell =????????????
Merci beaucoup
Michel










Avatar
papou
Bonjour
Il s'agit peut-être d'un problème de reconnaissance de date ?
Regarde du côté de CDate donc avec quelque chose comme ça :
Date1 = CDate(textbox1)
Date2 = CDate(textbox2)
Cordialement
Pascal


"Michel.Girard" a écrit dans le message de
news: %
Bonsoir Papou
Merci, mais avec mes textbox, je n'arrive pas à adapter
Michel

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Par exemple :
Evaluate("NB.JOURS.OUVRES(b1, c1, JFeries)")
Si pas de prise en compte des fériés tu peux voir aussi du côté de
DateDiff :
MsgBox DateDiff("d", [b1], [c1])
Cordialement
Pascal


"Michel.Girard" a écrit dans le message
de news: %
Bonjour
UN grand merci à Jacquouille et Daniel pour l'aide apportée concernant
cette fonction
Je désire avoir cette fonction en VBA
Sur un Userform,
J'ai un textbox1 date de départ, un textbox2 date d'arrivée.
après validation, la différence de jours part dans la feuille de calcul,
via
Activecell =????????????
Merci beaucoup
Michel














Avatar
Michel.Girard
Merci beaucoup Papou
Michel

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Il s'agit peut-être d'un problème de reconnaissance de date ?
Regarde du côté de CDate donc avec quelque chose comme ça :
Date1 = CDate(textbox1)
Date2 = CDate(textbox2)
Cordialement
Pascal


"Michel.Girard" a écrit dans le message
de news: %
Bonsoir Papou
Merci, mais avec mes textbox, je n'arrive pas à adapter
Michel

"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour
Par exemple :
Evaluate("NB.JOURS.OUVRES(b1, c1, JFeries)")
Si pas de prise en compte des fériés tu peux voir aussi du côté de
DateDiff :
MsgBox DateDiff("d", [b1], [c1])
Cordialement
Pascal


"Michel.Girard" a écrit dans le message
de news: %
Bonjour
UN grand merci à Jacquouille et Daniel pour l'aide apportée concernant
cette fonction
Je désire avoir cette fonction en VBA
Sur un Userform,
J'ai un textbox1 date de départ, un textbox2 date d'arrivée.
après validation, la différence de jours part dans la feuille de
calcul, via
Activecell =????????????
Merci beaucoup
Michel