Userform + Calendrier + SpinButton

J'ai un Userform de Suivie D'intervention qui contient deux textbox de date (date et heure de saisie de bon d'intervention et date et heure d'arrêt ) au dessus de ces deux textbox il y a un bouton qui va afficher un userform calendrier ou je vais choisir la date et qui contient un SpinButton d'heure
=> le but dans userform de calendrier est de choisir la date et l'heure qui vont être concaténer et transfert de userform Calendrier au textbox de date de saisie de bon d'intervention dans le userform Fiche_d'intervention sous la forme 05/06/2015 13:00:00
=> Même opération pour le textbox heure d'arrêt dans le userform Fiche_d'intervention
=> lorsque je vais valider les données les deux dates des deux textbox du userform Fiche_d'intervention vont être inséré dans les colonnes I et J avec la forme 05/06/2015 13:00:00 le problème c'est que le format change lors de l'insertion

merci d'avance
et si c'est possible de mettre le max commentaire dans le code pour que je puise comprendre
ci joint le fichier Pièce jointe 179773

Bonjour,

Code:

---

range("A1")=format("05/06/2015 12:48:25","yyyy-mm-dd hh:mm:ss")

---

Merci pour la réponse
le problème c'est que comment concaténer et transfert les deux variables (date et heure) de userform Calendrier au textbox de date de saisie de bon d'intervention dans le userform Fiche_d'intervention pour arriver et de mettre le format de la variable à format(date,"yyyy-mm-dd hh:mm:ss")

Code:

---

range("A1")=format("05/06/2015 " & "12:48:25","yyyy-mm-dd hh:mm:ss")

---

Bonjour

Avec les variables Ladate et LHeure

Code:

---

xx = Format(Ladate & " " & LHeure, "yyyy-mm-dd hh:mm:ss")

---

merci pour la réponse mais avant ca je doit avoir la date et l'heure depuis userform calendrier concaténer ensemble
si tu peux m'aider a avoir l'heure et la date et varier l'heure avec le SpinButton

Pièce jointe 179809

Tu veux incrémenter d'heure en heure ou de 15 minutes en 15 minutes?

ca me va très bien 15 minute et merci beaucoup

Bonjour,
Je te conseille d'utiliser l'objet "Date & Time Picker"

Pièce jointe 180081



Mais Attention ces objets "Calendrier" et "Date & Time Picker" n'existent plus a partir de la version 2010

Il ne reste que LDDATE

Pièce jointe 180082

Enfin j'ai rien trouvé d'autre ...

A+


PS: Je viens de rendre compte que l'adresse de Time & Date Picker n'est pas yahou ... :pastaper:

Bonjour,
regardes le fichier joint!
ouvre mon fichier et le tien,
maintiens le click gauche de la sourie sur le UserForm Calendard et fais le glisser sur ton projet!

Citation:

---

Envoyé par salhix

=> lorsque je vais valider les données les deux dates des deux textbox du userform Fiche_d'intervention vont être inséré dans les colonnes I et J avec la forme 05/06/2015 13:00:00 le problème c'est que le format change lors de l'insertion

---

Remplacer

Code:

---

1 2	'Cells(Num_Ligne, 10).Value = DateValue(TextBox_H_Arret.Value) 'Cells(Num_Ligne, 11).Value = DateValue(TextBox2.Value)

---

par

Code:

---

1 2 3 4 5

Cells(Num_Ligne, 10).NumberFormat = "dd/mm/yyyy hh:mm:ss" Cells(Num_Ligne, 10).Value = CDate(TextBox_H_Arret.Value)   Cells(Num_Ligne, 11).NumberFormat = "dd/mm/yyyy hh:mm:ss" Cells(Num_Ligne, 11).Value = CDate(TextBox2.Value)

---

'-----------------------

et remplacer

Code:

---

1 2 3 4 5

'Remplir la Cellule par Date De Saisie dans la colonne I ' Cells(derligne, 9) = DateValue(Fiche_Intervention.TextBox_Date.Value)   'Remplir la Cellule par Heure D'arrêt dans la colonne J ' Cells(derligne, 10) = DateValue(Fiche_Intervention.TextBox_H_Arret.Value)

---

par

Code:

---

1 2 3 4 5

Cells(derligne, 9).NumberFormat = "dd/mm/yyyy hh:mm:ss" Cells(derligne, 9).Value = CDate(Fiche_Intervention.TextBox_Date.Value)   Cells(derligne, 10).NumberFormat = "dd/mm/yyyy hh:mm:ss" Cells(derligne, 10).Value = CDate(Fiche_Intervention.TextBox_H_Arret.Value)

---