Discussion :

[petchy]

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.

merci
@ plus

[DAUDET78]

Code :

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

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)

[petchy]

bonjour

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

Code :

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

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

[ProgElecT]

Code :

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

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

[petchy]

super,merci beaucoup

bonne journée

[DAUDET78]

merci pour ton code ,mais il ne fonctionne pas,

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