Discussion :

[hellspawn_ludo]

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 :

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

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.

[Cyrilange]

Peut être en faisant comme ça :

Code :

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

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

[Steff_29_]

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

Code :

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

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!

[hellspawn_ludo]

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

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