heures avec vba

[David59]

Bonjour le forum

j'ai des problème avec les heures et vba

1er PB comment bloquer les chiffres numérique et valider les heures avec vba
2eme PB reprendre une heures avec un textbox afficher en heure supérieur à 24H

ou je peux trouver des exemples avec des heures et vba pour moi apprendre
merci d'avance
david@+

 

[fhoest]

Re : heures avec vba

bonjour,
voici le code
Private Sub CommandButton1_Click()
Dim val As String
val = Mid(TextBox1.Value, 3, 1)
If val = "," Then
MsgBox "caractere non valide " & " , " & " remplacer par " & " : """
TextBox1.Text = ""
Exit Sub
Else:
Sheets("feuil1").Range("a1") = Format(TextBox1.Value, "HH:MM")
End If
End Sub

fhoest

 

[Pierrot93]

Re : heures avec vba

Bonjour David, Fhoest

Attention, "val" est une fonction vba, il est préférable d'éviter de l'utiliser comme nom de variable.

bonne journée
@+

 

[fhoest]

Re : heures avec vba

ok j'avais pas vu
c'est parce que je n'avais pas d'autre idée au moment de l'ecriture du du code
merci,
fhoest.

 

[David59]

Re : heures avec vba

Bonjour le forum, fhoest et Pierrot93

Merci fhoest t'a solution et parfait, j'ai juste changé "val" comme nous la conseiller Pierrot93 merci à vous.

Avez vous une idée pour mon autre problème j'ai textbox qui reprend un nombre d'heure

Private Sub TextBox2_Change()
TextBox2.Value = Format(TextBox2.Value, "HH:MM")
End Sub

Private Sub UserForm_Initialize()
TextBox2.Value = Sheets("feuil1").Range("a2").Value
End Sub

Mais quand la valeur et supérieur à 24 heures ça ne fonction plus.
Ex: 25:00 dans Excel il affiche 1H00 dans le textbox.


Merci d'avance
Bonne journée
@+ David

 

[fhoest]

Re : heures avec vba

bonjour,
si j'ai bien compris ce que tu as besoins
dans userform initialize()
TextBox2.Value = Format(Sheets("feuil1").Range("a2").Value, "hh:mm")
bonne journee

 

[David59]

Re : heures avec vba

Oui fhoest tu as bien compris 🙂

mais le problème reste le même les formules tranche par 24h
ex. 26:00 il affiche 2:00 dans la textbox
et moi j'ai besoin qui affiche 26:00 dans le textbox 😕

merci @+ david

 

[fhoest]

Re : heures avec vba

bonjour a tous
essai ce code
Dim x As Double
x = Sheets("feuil1").Range("a2").Value * 24
TextBox2.Value = x & ":" & (Format(x, "mm"))

 

[fhoest]

Re : heures avec vba

Euh pardon plutot ça:
Dim x As Double
Dim y As Double
y = Sheets("feuil1").Range("a2").Value - Int(Sheets("feuil1").Range("a2").Value)
x = Sheets("feuil1").Range("a2").Value * 24
TextBox2.Value = Int(x) & ":" & Int(y * 60)
voila A+

 

[fhoest]

Re : heures avec vba

oui merci Tatiak
mais j'ai toujours tendance a faire compliqué et c'est juste pourquoi compliquer quand ca peut etre simple
merci du conseil...
fhoest.

 

[David59]

Re : heures avec vba

Bonjour le forum 🙄

Merci à fhoest, tatiak, Jean-Marcel et Pierrot93
Vous avez résolu mon problème 😱
Merci beaucoup
@+
David 🙂