calcule somme des textbox dans un label

[hich24]

salut tout le monde j'est besoin d'aide si il vous plait
mon probléme est que j'ai 18 textbox nomé : textbox18 , textbox19...,textbox34
et je souhaite affiché leur somme dans un label losque je clique sur un botton
j'est essayé avec ce code

Code vb :

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton4_Click()
Dim p As Byte
Dim total As Double
 'Si on arrive là, c'est que les 4 controles Text sont bien numériques
If Val(TextBox18(p)) = "" Then
Else
For p = 18 To 34
total = total + Val(TextBox18(p))
Next p
Label24 = total
End If
End Sub

mais ca marche pas .
je suis un tout petit debutant et je demande votre aide merci d'avance pour tout initiative ,au revoire

je travaille sur l'editeur de excel 2003 / win xp

[Aspic]

Bah tu fais :

Code :

1
2
Dim res as Integer
res = Cint(Textbox1.Text) + ... + Cint(TextBox30.Text)

C'est pas propre mais avoir 18 textbox sur une form non plus

Tu peux aussi passer par une boucle mais c'est plus compliqué...

[hich24]

merci pour votre aide
mais j'ai du changer integer en double
est ajouter label = res
aussi j'ai une petit demande : puige faire une boucle pour ne pas avoir a taper tout la chaine des textbox (du genre :for t=18 to t=34)

merci merci

[tomlev]

Oui, mais pour ça il faudrait que tu mettes tes textbox dans un tableau.
Ensuite tu n'as plus qu'à parcourir le tableau

[hich24]

mais je ne sais pas comment fair de tableau sous vba ,et s'que sa vas alourdir le programme ?

[tomlev]

Envoyé par hich24

mais je ne sais pas comment fair de tableau sous vba ,et s'que sa vas alourdir le programme ?

Euh, tu es sous VBA ?? Ici c'est le forum Visual Basic .NET, pas VBA... va plutôt voir ici:
http://www.developpez.net/forums/f289/logiciels/microsoft-office/general-vba/