Discussion :

[Opticlo]

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 :

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

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 :-)

[Tylert]

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

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

[ARTURO83]

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 :

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

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

[patricktoulon]

Bonjour
encore 2 autre methode VBA

'Methode 1

Code :

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

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 :

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

[Opticlo]

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