Discussion :

[youlig]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Marc-L]

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 …

[youlig]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[youlig]

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é.

[Marc-L]

Avec un peu en retard, une autre approche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)