Calcul de la valeur de plusieurs textbox

[philmaure]

Bonjour à tous,

Je souhaiterai obliger le format de saisie dans des textbox puis les additionner dans un textbox total (voir fichier joint).

Comme je souhaite additionner des heures et minutes, il faut convertir la somme des minutes supérieur à 60 en heure.

Merci pour vos solutions.
Cdlt
philippe

 

[Hulk]

Re : Calcul de la valeur de plusieurs textbox

Hello philmaure, l'requin 🙂

Une autre solution en forçant l'utilisateur à un format heure (hh:mm:ss) et pour le résultat en passant par la feuille.

Bonne fin de week !

 

[philmaure]

Re : Calcul de la valeur de plusieurs textbox

Pour l'instant je n'ai pas accès au controle supplémentaire Time and picker. Je vais m'occuper de cela.
Hulk ta solution est comme d'habitude top.

Merci à vous deux.
bonne fin de journée
Philippe

 

[PMO2]

Re : Calcul de la valeur de plusieurs textbox

Bonjour,

J'ai supprimé la TextBox du total pour la remplacer par un Label3, l'utilisateur n'ayant pas à intervenir sur ce contrôle.

Copiez le code suivant dans la fenêtre de code du UserForm

Private Sub t1_AfterUpdate()
Call ValeurTextBox(t1)
Call Total
End Sub
Private Sub t2_AfterUpdate()
Call ValeurTextBox(t2)
Call Total
End Sub
Private Sub t3_AfterUpdate()
Call ValeurTextBox(t3)
Call Total
End Sub
Private Sub t4_AfterUpdate()
Call ValeurTextBox(t4)
Call Total
End Sub

Private Sub ValeurTextBox(ByRef TB As IMdcText)
If InStr(1, TB, ":") = 0 Or Not IsDate(TB) Then
  MsgBox "Veuillez saisir l'heure au format 00:00"
  TB = ""
  Exit Sub
End If
TB = Format(TB, "hh:mm")
End Sub

Private Sub Total()
Dim D As Date
Dim Jour&
If t1 <> "" Then D = D + CDate(t1)
If t2 <> "" Then D = D + CDate(t2)
If t3 <> "" Then D = D + CDate(t3)
If t4 <> "" Then D = D + CDate(t4)
If CDbl(D) < 1 Then
  Me.Label3 = Format(CStr(D), "hh:mm")
Else
  Jour& = Application.WorksheetFunction.RoundDown(CDbl(D), 0)
  Me.Label3 = Jour& & "j - " & Format(CStr(D), "hh:mm")
End If
End Sub

Cordialement.

PMO
Patrick Morange

 

[laetitia90]

Re : Calcul de la valeur de plusieurs textbox

bonjour tous... en m'inspirant du code de l'ami Hulk 😉
utilisation d'une cellule pour faire simple