Report Heure dans UserForm

[Bobby]

Re tout le monde !!!

Alors voila pour aujourd hui 😛

J 'ai un tableau avec des temps sous forme : 0:20 ; 20:12 ; 55:00

Dans mon premier userform je recupere ce tps non pas en .Value, mais en .Text ds un TextBox1, comme ca j'ai affiché 0:20

Je voudrais à present dans un second UserForm recupérer les valeurs des heures ds un 1er TxtBox (ici = 0) puis les minutes ds un second txtbox (ici = 20)

Suis je clair ??? Ptet un peu embrouillé mon explication, non???

Donc je recapitule:

Tableau = 0:20
UF1.TxtBox1.Text = 0:20
UF2 je voudrais TxtBox1 = 0 & TextBox2 = 20

Voila

Merci d avance :huh: :S :whistle:

 

[Eric C]

Bonjour le forum
Bonjour Bobby

J'ai sélectionné la cellule A1 et lui ai appliqué le format 'Texte'. J'y ai entré une valeur complète '00:20' sans les guillemets.
2 USF - Le 1er avec 1 TextBox avec pour code :

Private Sub UserForm_Initialize()
TextBox1.Text = Range('A1')
End Sub

- Le 2ème USF avec 2 TextBoxs avec ce code :

Private Sub UserForm_Initialize()
TextBox1.Value = Left(UserForm1.TextBox1.Text, 2)
TextBox2.Value = Right(UserForm1.TextBox1.Text, 2)
End Sub

Voilà, le problème est que tu dois saisir sous un format Texte afin d'avoir les heures en 00, 01, 02 etc ou il faudrait utiliser une fonction Like (Je pense avoir vu cela récemment). D'autres passeront certainement. 😉

 

[Bobby]

Lut Eric

Merci pour ta reponse, je vais essayer ca et je te dis...

a+