Comment forcer un format date dans une TextBox

[marmotte18]

Bonjour,

Je voudrais imposer à TextBox1 le format date qui permet de dépasser les 24 heures pour effectuer des calculs.

J'ai essayé :

TextBox1 = Format(TextBox1, "[h]:mm")

et cela ne semble pas fonctionner, d'autant que je voudrais récupérer les heures et les minutes de cette TextBox.

Msgbox Hour(TextBox1) me renvoit une incompatibilité de type quand je dépasse les 24 heures

Msgbox Minute(TextBox1) idem

Merci par avance à ceux qui voudraient bien m'aider.

 

[PIEDEPLOMB33]

Re : Comment forcer un format date dans une TextBox

Bonjour Marmotte

Je ne vois pas comment on peut dépasser 24 heures. Dans ces conditions on passe au jour suivant.

Peut tu expliquer d'avantage ?

@

 

[marmotte18]

Re : Comment forcer un format date dans une TextBox

Bonjour PIEDEPLOMB33,

Un trajet entre 2 villes éloignées peut très bien durer plus de 24 heures. J'ai donc envie de saisir via ma Textbox la durée de ce trajet.

exemple :

32:17

 

[pierrejean]

Re : Comment forcer un format date dans une TextBox

bonjour a tous

En supposant que j'aie bien compris (problème de saisie plutot que format a afficher)

 

[marmotte18]

Re : Comment forcer un format date dans une TextBox

Bonjour tout le monde,

Merci pierrejean pour ta proposition mais avec elle, je ne peux pas saisir 135:44 pour 135 heures et 44 minutes.

Je souhaiterais également, sans passer par une feuille Excel, récupérer les heures saisies dans ma TextBox (soit 135) et les minutes saisies dans cette même TextBox (soit 44).

Je suis confronté à la limitation de la fonction "hour" qui ne peut pas dépasser 24.

 

[JNP]

Re : Comment forcer un format date dans une TextBox

Bonjour Marmotte18, Piedeplomb33, Pierrejean ,
A défaut de forcer le format date et heure, tu peux passer par du texte.

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim I As Integer
Dim Contenu As String
Contenu = CStr(TextBox1.Value)
For I = 1 To Len(Contenu)
    If Mid(Contenu, I, 1) = ":" Then
        TextBox1.Value = Left(Contenu, (I - 1)) & ":" & Right(Contenu, (Len(Contenu)) - I)
        Exit Sub
    End If
Next I
End Sub

Et pour récupérer tes heures et tes minutes, tu utilises la même boucle pour l'extraction.
Bonne journée

 

[job75]

Re : Comment forcer un format date dans une TextBox

Bonjour à tous,

Si par exemple la cellule A1 est au format [h]mm, la macro suivante (ou une autre) affichera dans la TextBox la valeur affichée dans cette cellule :

Private Sub UserForm_Initialize()
TextBox1 = Range("A1").[COLOR="Red"]Text[/COLOR]
End Sub

A+

 

[kjin]

Re : Comment forcer un format date dans une TextBox

Bonjour,
Comprends pas trop !
Si tu saisie 28:30 dans ta TextBox1

Cells(1, 1) = Format(TextBox1, "[h]:mm:ss")

tout simplement, non ?
A+
kjin

 

[pierrejean]

Re : Comment forcer un format date dans une TextBox

Re

Salut Job
Salut JNP

La mise en place automatique des : otée et les heures et minutes specifiées pour usage en Vba

 

[marmotte18]

Re : Comment forcer un format date dans une TextBox

Bonsoir JNP,

Effectivement, il existe des moyens de contournement et ta méthode en est une ce dont je te remercie.

Je trouve seulement étonnant que VBA n'ait pas prévu une fonction de type "hour" qui fonctionnerait au-dessus de 24 heures.

Un autre moyen de contournement est de prendre 2 TextBox au lieu d'une seule :

• la première pour la saisie des heures (nombre)
• la deuxième pour la saisie des minutes (nombre)

 

[marmotte18]

Re : Comment forcer un format date dans une TextBox

Bonsoir Job75,

Merci de te pencher sur mon problème. Mon souci essentiel est de ne pas utiliser de feuille Excel mais seulement le TextBox.

 

[marmotte18]

Re : Comment forcer un format date dans une TextBox

Bonsoir Kjin,

Merci pour ta réponse. Tu vois, je cherche seulement à utiliser ma TextBox sans passer par une feuille Excel.

Existe-t-il un moyen pour gérer des heures qui vont au delà de 24 heures dans une TextBox sans passer par des moyens de contournement ?

 

[marmotte18]

Re : Comment forcer un format date dans une TextBox

Bonsoir pierrejean,

Ta formule avec "split" me séduit ! Voilà une méthode qui n'utilise pas la feuille Excel !

Merci et félicitations

 

[JNP]

Re : Comment forcer un format date dans une TextBox

Bonjour le forum ,
Split, une fonction que je ne connaissais pas et qui m'aurait simplifié la vie une paire de fois... M'enfin, je me la mets de côté, elle me servira certainement ! C'est marrant, j'avais suivi plusieurs fils sur la déconcaténation, et il ne me semble pas qu'elle avait été proposée.
Merci Pierre-Jean, et pour la peine, je t'offre un "Banana Split" virtuel .
Très bonne journée à tous