Userform remplissant une cellule au format Heure
Bonjour à tous,
J'ai un petit soucis, et j'espère qu'un de vous pourra m'aider à le résoudre.
Je joint un fichier dans lequel j'ai essayé d'expliquer mon problème, si vous ne comprenez pas ce que j'aimerais faire avec les explications que je vais vous donner en dessous, ouvrez le, vous comprendrez mieux.
Quand je tape le mot "Train" dans une colonne (ici colonne "Q"), une userform s'ouvre et me demande de remplir l'heure de départ et l'heure d'arrivée de mon train.
Cette action rempli les colonne "R" et "T" sur la même ligne que le mot "train".
Le format de la cellule est bien au format heure (hh:mm) mais le texte rentré ne l'est pas.
pour preuve quand je converti l'heure au format standard, il devrait y avoir un chiffre, 0,012345... etc.
Je pense que le problème se trouve dans le code de l'Useform,
Pourriez vous m'aider pour faire en sorte que les valeurs que je rentre dans l'userform soient bien misent au format heure.
Si vous avez besoin de plus d'explications, n'hésitez pas à m'en demander.
Merci d'avance.
Bien cordialement.
Tristan
Bonsoir
De cette façon peut etre:
Option Explicit
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
Private Sub TextBox1_AfterUpdate()
Selection.Offset(-1, 1) = CDate(TextBox1.Value)
End Sub
Private Sub TextBox2_AfterUpdate()
Selection.Offset(-1, 3) = CDate(TextBox2)
Selection.Offset(-1, 4) = CDate(TextBox2) - CDate(TextBox1)
End SubAvec des cellules au format Heure
super,
ça m'a l'air parfait.
Merci Beaucoup.
Tristan