VBA : pb somme de listbox sur une textbox colonne 8

[poolinn22]

Bonjour,

j'ai essayé de réaliser une somme d'une colonne de listbox transcrit sur une textbox.

Voici mon code :

Sub somme1()

Dim ValSomme As Double
Dim L As Integer
For L = 0 To listedesencours.ListCount - 1
ValSomme = ValSomme + CDbl(ListBox.Column(8, L))
Next
Me.TextBox1.Value = ValSomme

End sub


rien ne s'affiche...

ci joint le fichier excel,

Merci d'avance,

Pauline

 

[job75]

Re : VBA : pb somme de listbox sur une textbox colonne 8

Bonjour poolinn22,

Le plus simple est de renseigner TextBox1 en même temps que la ListBox se remplit :

TextBox1 = "" 'RAZ
'-----
TextBox1 = Val(TextBox1) + Val(.Range("H" & i))

Fichier joint.

A+

 

[poolinn22]

Re : VBA : pb somme de listbox sur une textbox colonne 8

super merci beaucoup! 🙂