SERIE.JOUR.OUVRE dans userform

[Lu K]

Bonjour à tous,

Il y a longtemps, je voulais incorporer la formule "serie.jour.ouvre" contenu dans mes feuilles excel directement dans le label, textbox... d'un userform. Sans aucun succés !
Aujourd'hui voila que le besoin reviens ?

Je dois calculer par rapport au au week end, jours férié, RTT et vacances.

Quelqu'un peut m'aider ?


Merci d'avance.

 

[JNP]

Re : SERIE.JOUR.OUVRE dans userform

Bonjour Lu K 🙂,
Tu peux essayer

Label1 = Application.WorksheetFunction.WorkDay(TextBox1, CInt(TextBox2), Range("A1:A10"))

par exemple 🙄...
Bonne journée 😎

 

[Lu K]

Re : SERIE.JOUR.OUVRE dans userform

Bonjour JNP,

Merci pour t'as réponse, qui apparement fonctionne.

Juste quelques petits problèmes : Dans le label il m'indique "40610". Si je transfert dans une cellule plutot qu'un label il m'inverse les mois et les jours !

 

[JNP]

Re : SERIE.JOUR.OUVRE dans userform

Re 🙂,

Label1 = Format(40610, "dd/mm/yyyy")

Bon courage 😎

 

[Lu K]

Re : SERIE.JOUR.OUVRE dans userform

Re JNP,

rien y fait, il m'inverse toutjours les mois et les jours.

Private Sub CommandButton1_Click()
Label1 = Application.WorksheetFunction.WorkDay(TextBox1, CInt(TextBox2), Range("A1:A10"))
'Label1 = Format(40610, "dd/mm/yyyy")Là ça va mais la date reste bloqué !!!
'Label1.Caption = Format(Date, "dd/mm/yyyy") Là il inverse
Range("b4") = Application.WorksheetFunction.WorkDay(TextBox1, CInt(TextBox2), Range("A1:A10")) et l à c'est la même chose, il inverse !

End Sub

 

[JNP]

Re : SERIE.JOUR.OUVRE dans userform

Re 🙂,
Pour que la date soit dans le bon sens dans ta cellule

Range("A1").FormulaLocal = (Format(Now() - 24, "dd/mm/2011"))

par exemple.
Par contre, WorkDay renvoie un nombre de jour, pas une date 😕 ??? Marant que la fonction de feuille ne donne pas le même résultat via VBA qu'en feuille 🙄...
Bon courage 😎