Discussion :

[fullmetalknet]

Bonjour,

je souhaiterais calculer des heures dans une listbox
les valeurs de la listbox sont incrementées par des textbox
je souhaiterais que le total soit dans une textbox

ca bloque toujours ici: CDbl(.List(L))

je n'arrive pas a le faire voici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub macro()
 
Dim Val_Somme As Double
 Dim L As Integer
With Me.ListBox2
For L = 0 To .ListCount - 1 'ListCount nombre des lignes moins 1 _
car la premiere ligne est la ligne 0
  Val_Somme = Val_Somme + CDbl(.List(L))
Next
End With
Me.TextBox6.Value = Val_Somme
 
End Sub

[ucfoutu]

...

les valeurs de la listbox sont incrementées par des textbox
...

Oui ?
et une question (bête ?) qu'est saisi (et sous quel format) dans tes textboxes ? (on doit le deviner ?)

[fullmetalknet]

Désolé
étant novice dans la matiere je ne sais pas trop les infos que je dois donner!!

sinon le format que je rentre dans les textbox est "hh:mm"

[ucfoutu]

Bon...
Je suppose que tu sais déjà relever les valeurs (une par une) de ta listbox (dans le cas contraire, c'est par cette question, fort différente, que tu aurais dû commencer, bien sûr ...)
Les articles d'une listbox sont en format string.
Ton problème est donc pour moi, à ce stade, celui de calculer la durée totale, exprimée en heures et minutes, de deux "heures/durées" sous format string.
Voilà donc un exemple (pârmi plusieurs possibles) de comment faire ;

Code :

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

1
2
3
4
5
6
7
8
Dim h1 As String, h2 As String, heures As Integer, minutes As Integer, depasse As Integer
 h1 = "01:30"
 h2 = "04:50"
 minutes = Minute(TimeValue(h1)) + Minute(TimeValue(h2))
 depasse = minutes \ 60
 minutes = minutes Mod 60
 heures = Hour(TimeValue(h1)) + Hour(TimeValue(h2))
 MsgBox heures + depasse & " heures " & minutes & " minutes"

EDIT : Note bien ce que j'ai mis plus haut entre guillemets ( "heures/durées" ).
Cela sous-tend que ce que tu entres dans tes textbox est bien une heure valide et non une "durée". Ainsi donc, ne marcherait pas en rentrant "25:36" dans une textbox ... (Le traitement serait bien évidemment possible, dans un tel cas, mais totalement différent)

[fullmetalknet]

comme je te les dis tout a l'heure je suis novice

je sais pas ou mettre le code que tu ma donner!

si je comprend bien h1 et h2 serait les textbox?

en faite mon but c'est de calculer le nombre d'heure total des techniciens sur une intervention

[ucfoutu]

Cà, je l'ai bien compris...
h1 et h2 ne seraient dans cet exemple que 2 valeurs, par exemple, extraites de ta listbox (puisque tu dis avoir rempli une listbox à partir de textboxes !)
où est donc ton problème, maintenant ? A ce stade, il ne me parait même plus être au niveau du développement informatique à proprement parler ... !
Que te manque-t-il donc ?
Lire le contenu de l'article d'indice i dans une listbox ? ===>>> Listbox1.list(i)
Faire une boucle de type

Code :

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

1
2
3
For i = 0 to Listbox1.listcount - 1
....
Next

?
Incrémenter, selon le calcul que je t'ai montré, les variables heures et minutes, à chaque tour de boucle ? (tu plaisantes peut-être, j'espère)
Tout (et je ne marche plus... ! Le développement est comme la gymnastique : un entraînement qui commence par l'effort personnel... un peu, au moins ) ?

Je t'ai donné les éléments essentiels ===>> A toi de jouer un peu. Reviens au besoin avec ton essai infructueux de code, en nous exposant où tu coinces !