Somme listbox

[Stéphanie82]

Bonjour
j'ai un petit soucie, peut t-on m'aider à le résoudre s'il vous plait.
j'adapte un code trouvé sur le forum qui permet de Faire la SOMME d'une colonne d'un LISTBOX et mettre résultat dans un TEXTBOX.
voici mon code :

Dim ValSomme As Double
Dim L As Integer

For L = 0 To ListBox.ListCount - 1 
ValSomme = ValSomme + CDbl(ListBox.List(L, 5))
Next

Me.TextBox1.Value = ValSomme

Le message d'erreur :
Erreur d'exécution '13':
Incompatibilité de type

 

[cbea]

Re : Somme listbox

Bonjour Stéphanie82,

Voici une solution.
Remplacer :

ValSomme = ValSomme + CDbl(ListBox.List(L, 5))

par

ValSomme = ValSomme + CDbl(ListBox.Column(5,L))

 

[Cousinhub]

Re : Somme listbox

Bonjour
salut cbea

es-tu sûre que les valeurs à additionner sont dans la 6 ème colonne de ta listbox?

 

[Stéphanie82]

Re : Somme listbox

salut
bhbh et cbea
Merci beaucoup pour vos réponses rapides.

Je viens de trouver le pourquoi du comment ^^
en fait c'est parceque la cellule est VIDE.

la macro ne la considère pas comme un ZERO

c'est bon à savoir
merci encore pour votre aide.

 

[supercrapaud]

Re : Somme listbox

Bonsoir à tou

J'ai essayé et repris le code suivant :
Dim ValSomme As Double
Dim L As Integer
For L = 0 To ListBox5.ListCount - 1
ValSomme = ValSomme + CDbl(ListBox5.Column(1, L))
Next
Me.TextBox1.Value = ValSomme

et j'ai le message d'erreur suivant
erreur d'exécution '94' :
utilisation incorrecte de Null

coment débuggé cela SVP ? Merci.