Comment faire la somme d'une listbox

[H@nnoun]

Bonjour le forum

j'ai un USF avec une listbox LstTemps et un textbox TextBox15

voici le code que j'utilse copie d'un modele trouve sur le forum et adapte a mes besoins



Sub Temps1()
Dim plage As Range
Dim PlageFiltree As Range
Dim Item As Variant
Dim L As Integer
LstTemps.Clear

L = Sheets("Donnees").Range("A65536").End(xlUp).Row
If L < 2 Then GoTo Zap
'LISTBOX LstTemps
Set plage = Sheets("Donnees").Range("I2", [I65536].End(xlUp))
Set PlageFiltree = plage.SpecialCells(xlCellTypeVisible)

For Each Item In PlageFiltree
LstTemps.AddItem Item
Next Item

' ceci ne marche pas -------------------------------------------------------
TextBox15 = ActiveCell.FormulaR1C1 = "=SUBTOTAL(9;i32:i38)"
'-----------------------------------------------------------------------------------
Exit Sub
Zap:
LstTemps.AddItem Sheets("Donnees").Range("I2")

End Sub


Apres avoir filtre mes donnees j'obtient dans la listbox une serie de nombres 2-3-4 -5

je voudrai lire dans le textbox15 la somme des nombres obtenu de la listbox
soit 14

Merci pour votre aide
H@nnoun

 

[Pascal76]

Bonjour

Sans tester essaies ceci

Sub Temps1()
Dim plage As Range
Dim PlageFiltree As Range
Dim Item As Variant
Dim L As Integer
LstTemps.Clear

L = Sheets("Donnees").Range("A65536").End(xlUp).Row
If L < 2 Then GoTo Zap
'LISTBOX LstTemps
Set plage = Sheets("Donnees").Range("I2", [I65536].End(xlUp))
Set PlageFiltree = plage.SpecialCells(xlCellTypeVisible)
MonTotal=0

For Each Item In PlageFiltree
LstTemps.AddItem Item
MonTotal=MonTotal+ Item
Next Item


TextBox15.Value= MonTotal

Exit Sub
Zap:
LstTemps.AddItem Sheets("Donnees").Range("I2")

End Sub

Pascal

 

[H@nnoun]

Re Bonjour le forum ,Pascal76

Pascal76 merci pour ta reponse j'ai ajoute à la liste des Dim

Dim MonTotal As Double

et remplace la ligne
TextBox15.Value= MonTotal

par la ligne
TextBox15.Value = Format((MonTotal), "###0.00")


pour avoir le resultat dans le textbox avec 2 decimales

encore Merci pour ton aide ca marche comme je veux

@@+
H@nnoun