Discussion :

[justin74]

Bonjour à tous,

Voilà mon problème; je récupère des données dans une listbox à deux colonnes (présente sur une feuille) sous la forme suivante, c'est un panier d'achats.

Nom du produit 1 300,00 €
Nom du produit 2 150,00 €
Nom du produit 3 800,00 €
Nom du produit 4 750,00 €
Etc.................. ............

Je cherche à récupérer dans une textbox présente sur la même feuille la somme des prix. J'utilise le code suivant mais une erreur apparaît et je ne comprend pas pourquoi. Voici le code:

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
Private Sub CommandButton2_Click()
 
Dim i As Integer
Dim Cible As Integer
Dim Somme As Double
 
Cible = ListBox1.ListCount
 
For i = 0 To cible
Somme = Somme + Val(ListBox1.List(i, 1))
Next
 
Me.TextBox7.Value = Total
 
End Sub

Merci d'avance.
Cordialement.
Justin.

[pgz]

Bonsoir.

Si l'index de la liste commence à 0, alors

Code :

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

For i = 0 To cible - 1

Cordialement,

PGZ

[justin74]

Salut PGZ,
Comme à chaque fois c'est à deux doigts de fonctionner mais non.........
En tout cas, merci à toi, ça me fait gagner un temps précieux.
A bientôt.
Justin.

[PMO2017]

Bonjour,

Peut être

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
Private Sub CommandButton2_Click()
 
Dim i As Integer
Dim Cible As Integer
Dim Somme As Double
 
Cible = ListBox1.ListCount
 
For i = 0 To cible - 1
Somme = Somme + Val(ListBox1.List(i, 1))
Next
 
Me.TextBox7.Value = Somme     ' Total ???
 
End Sub

Cordialement.

PMO
Patrick Morange