Addition d'heures dans userform

Bonjour à Tous,

Je cherche à additionner 2 heures au format hh:mm dans un userform mais je bloque (la gestion des heures heures c'est vraiment galère !!!).

Voici le bout de code que j'ai écrit mais qui ne me réalise pas l'addition (cala m'affiche 00:00) ???

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub ComboBox7_AfterUpdate()   Dim duree1 As Long     duree1 = DateAdd("n", ComboBox5.Value, ComboBox7.Value)   TextBox20.Text = Format(Fix(duree1 / 60), "00") & ":" & Format(duree1 Mod 60, "00") End Sub

---

merci d'avance à ceux qui pourront éclairer ma lanterne sur ma ou mes erreurs.

Bonjour.

Déjà, "n" dans DateAdd indique un ajout de minutes dans une date.
Or un combobox n'est pas une date mais du texte et, qui plus est, il s'agirait d'un calcul d'heures …

Questions : ces heures sont dans la même journée ? Seules des heures sont saisies dans ces comboboxes ou bien y figurent aussi des dates ?
Un exemple de saisie dans ces comboboxes dégagerait l'horizon …

Bonjour,

En fait, dans le combobox, j'ai un menu déroulant avec des valeurs du type 00:30, 01:00, 01:30....jusqu'à 50:30. Pour moi, il s'agit de durées (il n'y a pas de dates de saisies.

Code:

---

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

Private Sub UserForm_Initialize() Dim i As Byte, j As Byte   'je boucle sur les heures For i = 0 To 50 'je boucle sur les minutes par tranche de 30mn For j = 0 To 30 Step 30 'j'initialize ma combo Me.ComboBox5.AddItem Format(i, "00") & ":" & Format(j, "00") Me.ComboBox7.AddItem Format(i, "00") & ":" & Format(j, "00")   Next j Next i End Sub

---

En fait, je souhaiterais faire les additions de ces durées dans le textBox20.
En espérant avoir été plus clair ?

Merci d'avance

Bonjour,

Dans ce cas, le plus simple c'est d'extraire les heures et minutes, de les additionner et ensuite de concaténer le tout avec bien sûr un contrôle sur le total des minutes (si minutes > 59 minutes = 0 et heures = heures + 1) mais attention, si le résultat affiché dans le textbox doit être traiter par des fonction Excel. "51:30" donne 2,146 soit 2 jours 3 heures et 30 minutes :

Code:

---

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

Private Sub ComboBox7_Click()   Dim Heures As Integer Dim Minutes As Integer   Heures = Split(ComboBox5.Value, ":")(0) Heures = Heures + Split(ComboBox7.Value, ":")(0)   Minutes = Split(ComboBox5.Value, ":")(1) Minutes = Minutes + Split(ComboBox7.Value, ":")(1)   If Minutes > 59 Then   Minutes = 0 Heures = Heures + 1   End If   TextBox20.Text = Format(Heures, "00") & ":" & Format(Minutes, "00")   End Sub

---

Hervé.

Bonjour Hervé,

Très astucieux comme fonction. Je ne connaissais pas cette fonction split (car comme tu as pu le voir, je suis autodidacte) mais après documentation, cela à l'air vraiment intéréssant.

Merci beaucoup de m'avoir dépanné.

Avec un peu en retard, une autre approche :

Code:

---

1 2 3 4 5 6 7 8 9

Function AddTime(ParamArray PA()) As String For Each T In PA H = Split(T, ":") D = D + H(0) \ 24 + CDbl(TimeValue(H(0) Mod 24 & ":" & H(1))) Next H = Fix(D) T = CDate(D - H) AddTime = 24 * H + Hour(T) & ":" & Format(Minute(T), "00") End Function

---

Et donc dans le code d'origine :

TextBox20.Text = AddTime(ComboBox5.Value, ComboBox7.Value)