Comment grouper des textbox

Bonjour,

J'ai créer 8 textbox sur ma form : montant1,montant2...montant8.

J'aimerais lorsque je clique sur mon bouton "bt_calculer" qu'il m'affiche dans un msgbox la somme des 8 textbox.

J'arrive à la faire en faisant : montant1+montant2...montant8 mais j'aimerais faire comme je faisais avec vb6, c'est-à-dire en groupant les textbox afin d'obtenir le résultat en utilisant ce genre de code :

Code:

---

1 2 3 4 5 6 7 8 9

dim i as integer dim total as decimal   for i=1 to 8 total+=montant(i).text next   msgbox ("Le total est de : " & total)

---

Merci pour votre aide.

Peut être en faisant comme ça :

Code:

---

1 2 3 4 5 6 7 8

For Each tb As Control In Me.Controls If tb.GetType Is GetType(TextBox) Then If IsNumeric(tb.Text) Then total+=cDec(tb.text) End If End If Next

---

Débutatnt en VB2005, j'ai eu le même soucis de groupement et je fais comme ca :

Code:

---

1 2 3 4 5 6 7 8 9

dim i as integer dim total as decimal   for i=1 to 8 total+=controls("montant"+cstr(i)).text next   msgbox ("Le total est de : " & total)

---

Ce n'est peut-être pas très élégant mais ça se rapproche du VB6! :oops:

Merci à tous les 2 pour vos réponses qui fonctionnent à merveille. :P

Je n'ai plus qu'à en choisir une.

;)