Additionner des textbox indexer

bonsoir,

j'ai 15 textbox indexer
txt(0) ----> txt(14)
dans ses textbox je met des chiffres
mais je n'arrive pas à additionner ses textbox dans un label pour le total des textbox indexer,je voudrais l'associer à la procédure "change" des textbox indexer pour que le calcul se fasse en direct. :D

merci
@ plus

Code:

---

1 2 3 4 5

Somme%=0 For I%=0 to 14 Somme%=Somme%+Val(Txt(I%).Text) Next I% ' Somme% est la somme des 15 Labels

---

PS : j'ai supposé que c'est des nombres entiers (sans virgule)

bonjour

merci pour ton code ,mais il ne fonctionne pas, car je voudrais le mettre dans l'évènement change des textbox indexer

Code:

---

1 2 3 4 5 6

Private Sub H_Change(Index As Integer) Somme% = 0 For i% = 0 To 14 Somme% = Somme% + val(H(i%).Text) Next i% End Sub

---

merci

Code:

---

1 2 3 4 5 6 7

Private Sub H_Change(Index As Integer) Somme% = 0 For i% = 0 To 14 Somme% = Somme% + val(H(i%).Text) Next i% Label.Caption = Somme% '<-------------------------- End Sub

---

super,merci beaucoup

bonne journée

Citation:

---

Envoyé par petchy

merci pour ton code ,mais il ne fonctionne pas,

---

ben si ... il fonctionne très bien !