Addition de TextBox HH:MM

Bonjour.
Je suis totalement novice en VBA. Malgré mes efforts de recherche des derniers jours, je n'arrive pas à trouver la solution à mon problème.
Je dois faire la somme de durées de certaines tâches à réaliser dans une textbox. J'ai un Userform avec des textbox qui sont alimentées par une feuille excel dont les cellules sont formatées HH:MM. Il n'y a donc aucune entrée manuelle dans le userform; le format est alors toujours respecté. J'ai formaté chacune des textbox comme ceci: Me.TextBox1.Value = Format(Me.TextBox1.Value, "hh:mm"). Les valeurs s'affichent correctement. Je veux donc le total dans une textbox formatée de la même façon et dont le calcul se ferait automatiquement même si l'une des textbox est vide. Voici le dernier code utilisé comme essai avec un bouton de commande:

Code:

---

1 2 3 4 5 6 7

Private Sub CommandButton1_Click() Dim x As Double On Error Resume Next x = (CDbl(TextBox1.Value) + CDbl(TextBox2.Value) + CDbl(TextBox3.Value)) TextBox4.Value = x Me.TextBox4.Value = Format(Me.TextBox4.Value, "hh:mm") End Sub

---

Merci à l'avance de votre aide :-)

Une solution qui n'utiliserait pas les fonctionalités d'Excel (Non testée):

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Dim SommeH as integer Dim SommeM as integer   SommeH = 0 SommeM = 0     'le code ci dessous somme la valeur de la 1ere textbox dans notre variable finale 'il faut le repeter pour les autres textbox   SommeM = SommeM + CInt(Right(TextBox1.Value, 2)) If SommeM > 60 Then SommeH = SommeH +1 SommeM = SommeM - 60 end if   SommeH = SommeH + CInt(Left(Textbox2.Value, 2))   'Après avoir sommé les 3 tu colles le résultat dans ta 4eme textbox: TextBox4.Value = CStr(SommeH) & ":" & CStr(SommeM)

---

Tu peux probablement optimiser le code en faisant une boucle for pour repeter la même opération sur les textbox en addressant chaque textbox par un nom construit avec l'indicateur de la boucle: "Textbox" & i.
La dernière ligne de code, je n'en suis pas sur (Les histoires de format c'est pas simple, mais je pense que coller du Str dans ta textbox ca devrait marcher.

Bonjour,

Autre solution, à copier dans le module du formulaire.
Puisque les 3 textbox récupèrent le contenu de cellules, autant faire les calculs à partir du contenu de ces cellules.
Exemple avec les cellules A1 B1 et C1(remplacez par vos cellules)

Code:

---

1 2 3 4 5 6 7 8

Private Sub CommandButton1_Click() Dim x As Double On Error Resume Next x = [A1] + [B1] + [C1] h = Format(Int(x * 24), "00") m = Format((((x * 24) - Int(x * 24)) * 60), "00") TextBox4.Value = h & "h:" & m & "mn" End Sub

---

Cdlt

Bonjour
encore 2 autre methode VBA

'Methode 1

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() 'Additionner des temps avec la fonction application.text 'exemple txt1=12:52 txt2=12:34 txt3 = 12:58 Heure1 = CDate(TextBox1.Text) ' soit 12:52:00 Heure2 = CDate(TextBox2.Text) ' soit 12:34:00 heure3 = CDate(TextBox3.Text) ' soit 12:58:00 TotalHeure = Heure1 + Heure2 + heure3 'soit; un long de 1,6 soit 31/12/1899 14:24:00 au format text 'formatage avec la fonction (((((Application.Text))))) pour un affichage plus compréhensible TextBox4.Value = Application.Text(TotalHeure, "[h]:mm") 'les crochets indiquent que les heures sont susceptibles d'être supérieures à 24 End Sub

---

'Methode 2

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton2_Click() 'Additionner des temps avvec datediff et format Dim heure(1 To 3), newdate, HH 'exemple txt1=12:52 txt2=12:34 txt3 = 12:58 heure(1) = CDate(TextBox1.Text) ' soit 12:52:00 heure(2) = CDate(TextBox2.Text) ' soit 12:34:00 heure(3) = CDate(TextBox3.Text) ' soit 12:58:00 newdate = Date + heure(1) + heure(2) + heure(3) 'on ajoute les heure a date qui au depart pour les heures min sec vaut "00:00:00" HH = DateDiff("d", Date, newdate) * 24 'HH= la multiplication du nombre de jours différents entre date et newdate par 24 'resultat = hh+ les heure de la newdate et les minutes de la newdate TextBox4 = HH + Format(newdate, "hh") & ":" & Format(newdate, "nn") End Sub Private Sub UserForm_Click() End Sub

---

je pense avoir suffisamment commenté les codes
Pièce jointe 492722

;)

Merci à vous tous de m'avoir répondu aussi rapidement. Solutions toutes fonctionnelles. :D:D