Calculer la somme des minutes d'une colonne (list box) dans

Bonjour a tous,

Je transfert mes données de lisbox vers des texbox (en boucle) avec le code ci-dessous,le code fonctionne bien sauf que désormais pour mon troisième text box je veux faire la somme des minutes (hh:mm) figurant dans ma list box mais ca fonctionne toujours pas .

J'ai rajouté" Format((Tot3), "HH:MM") " mais toujours rien, le texbox affiche (00:00)

Si quelqu'un a une idée Svp.

Merci d'avance & bonne journée

Sub Calculer(Num As Integer)

Dim I As Integer

Dim TB1 As Integer

Dim Tot1 As Integer

Dim Tot2 As Integer

Dim Tot3 As Date 'Integer

TB1 = (3 * Int((Num - 1) / 3)) + 401

' TB2 = (3 * Int((Num - 1) / 3)) + 403

UserForm1.Controls("TextBox" & TB1) = ""

UserForm1.Controls("TextBox" & 1 + TB1) = ""

UserForm1.Controls("TextBox" & 2 + TB1) = ""

With UserForm1.Controls("ListBox" & 2 + (Int((Num - 1) / 3)))

For I = 0 To .ListCount - 1

Tot1 = Tot1 + Val(.List(I))

Tot2 = Tot2 + Val(.List(I, 2))

Tot3 = Tot3 + Val(.List(I, 3))

Next I

UserForm1.Controls("TextBox" & TB1) = .ListCount

UserForm1.Controls("TextBox" & 1 + TB1) = Tot2

UserForm1.Controls("TextBox" & 2 + TB1) = Format((Tot3), "HH:MM") 'cette ligne ne fonctionne pas

End With

End Sub

Bonjour

Et en joignant ton fichier, cela sera plus facile si quelqu'un veut t'aider

Re-bonjour Banzai64 ,

Content de savoir que vous êtes toujours la , c'est votre code d'ailleurs(grâce a vous j'ai pu élaboré ce projet il y a 3 ans) que j'ai essayé de le modifié ;Voila une photo qui illustre mon souci ; si c'est pas suffisant il faut que supprime les Eléments confidentielles et je posterais le fichier.

Cordialement

Bonjour

P....n déjà 3 ans, désolé mais c'est trop loin pour moi (1 journée c'est un grand maximum - J'ai un formatage de mon Disque dur tous les jours )

Mais à la vue de l'image

essayes

'.
'.
Tot2 = Tot2 + Val(.List(I, 2))
Tot3 = Tot3 + CDate(.List(I, 3)) 
'.
'.

Bingo! MErci beaucoup Banzai64

Avec toutes tes braves interventions sur le site je comprends que tu fais le ménage tous les jours dans tes pc, ce pas mon cas (1 fois tous les 3 ou 4 ans ....)

Je traverse ta belle région toute a l heure pour voir la famille ce soir.

Bonne journée et a bientôt...