Discussion :

[salhix]

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 Rapport.xlsm

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[salhix]

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")

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Docmarti]

Bonjour

Avec les variables Ladate et LHeure

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[salhix]

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

[Docmarti]

=> 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)