Format heures dans Textbox....

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide sur ces deux points ;

1) Je n'arrive pas à appliquer le format [hh:]mm sur les Texbox et je voudrais dans l'une des texbox faire le total des heures de 4 autres Texbox...

2) comment récupérer le choix d'OptionButton d'une Frame...

Suis nul en VBA...Lol

Merci pour le temps que vous voudrez bien m'accorder.

Bien amicalement,
Christian

 

[job75]

Re : Format heures dans Textbox....

Bonjour Christian0258,

1) Le format [hh]:mm n'est pas reconnu par VBA, c'est en effet une de ses lacunes.

Pour y parvenir il faut traiter la valeur (numérique) de départ (v) :

TextBox1 = Int(CDec(24 * v)) & ":" & Format(Minute(v), "00")

2) Pour trouver facilement l'OptionButton activé dans un UserForm, il faut que leurs noms se suivent, par exemple de OptionButton1 à OptionButton4 :

For i = 1 To 4
  If Controls("OptionButton" & i) Then
    MsgBox i 'ou => Controls("OptionButton" & i).Caption
  End If
Next

Edit : pour le 1) je n'avais pas bien lu :

Dim v As Double
On Error Resume Next
v = CDate(TextBox1) + CDate(TextBox2) + CDate(TextBox3) + CDate(TextBox4)
TextBox5 = Int(CDec(24 * v)) & ":" & Format(Minute(v), "00")

A+

 

[Guest]

Re : Format heures dans Textbox....

Bonjour Christian
Hi Job75🙂

Puisque c'est fait voici un fichier, avec une autre technique.
J'ai changé les noms des textbox et paramétrer les changements pour les deux premiers (heure début heure fin) à charge pour toi de le faire pour les deux autres.

A+

 

[job75]

Re : Format heures dans Textbox....

Salut Hasco 🙂

J'avais dû oublier de mettre mes lunettes : même pas vu qu'il y avait un fichier joint.

A+

 

[Christian0258]

Re : Format heures dans Textbox....

Re, bonsoir le forum, job75 , Hasco,

Merci à vous pour votre travail, merci pour aide si précieuse.

Hasco, j'ai essayé de bidouiller mais comme je n'y connais pas grand chose en VBA, je n'y suis pas arrivé.
Auriez-vous la gentillesse de finir les deux autres Texbox ?.

Merci encore,
Bien à vous,
Christian

 

[Bebere]

Re : Format heures dans Textbox....

bonjour Christian,Job,Hasco
et une 3ème,pour faire bon poids,bonne mesure
à bientôt

 

[Christian0258]

Re : Format heures dans Textbox....

Re, le forum,
job75, Hasco, Bebere,

Merci à vous pour vos propositions.

Dis-moi, Bebere, c'est nickel, peux-tu faire en sorte que lorsque l'on tape des données dans les *TextBox ça passe automatiquement à la suivante
*(de 1 à 5)

Merci beaucoup

Bien à vous,
Christian

 

[Guest]

Re : Format heures dans Textbox....

Re,

peux-tu faire en sorte que lorsque l'on tape des données dans les *TextBox ça passe automatiquement à la suivante

Il me semble que dans le fichier que j'ai joint, la solution est faite pour le premier et deuxième textbox horaires.

A+

 

[Bebere]

Re : Format heures dans Textbox....

Christian
tu ajoutes dans textbox2 après total TextBox3.SetFocus,etc
tu as tabindex appui sur la touche tab déplace le curseur
voir fenêtre propriétés des textbox
à bientôt

 

[Christian0258]

Re : Format heures dans Textbox....

Re, le forum, Hasco,

Effectivement, Hasco tu m'as montrer le chemin, mais je cafouille, j'ai enfin réussi à recopier et adapter le code pour les deux autres TextBox.

Il me semble qu'il reste un problème sur le report du choix OptionButton. En effet ça ne place pas le choix dans la bonne colonne ?

P.S : as-tu une astuce pour différencier 24:00 et 00:00 dans le cas d'un horaire : 21:00 24:00 00:00 21:00

Merci pour tout
Bien à toi

Christian

 

[JCGL]

Re : Format heures dans Textbox....

Bonjour à tous,
Re Hasco 🙂 ,
Salut Christian 🙂,

Ges : notre ami Christian est aussi un "cuistot" hospitalier...

A++ les amis
A+ à tous

 

[Guest]

Re : Format heures dans Textbox....

bonjour Christian,
Hello JC🙂🙂

@Christian, soit tu choisis de définir minuit comme 00:00 soit comme 24:00 mais pas les deux. Après c'est une histoire de calcul.

24:00 heure n'existe pas d'ailleurs. De 23:59:59 jour j on passe à 00:00:00 jour j+1

Dans le fichier ci-joint j'ai choisi 00:00 pour correspondre au langage naturel DE 21heures à minuit ou de minuit à 3 heures.

Vois si cela convient.
Peut-être qu'une mesure de contrôle de la présence du code est à faire avant validation.

A+