toujours avec mes calculs de texbox

[dj.run]

Bonjour à tous et à toutes,

je viens encore une fois vers vous car je cherche, je cherche et je ne trouve pas .

je vous explique :

dans un usf
j'ai 4 textbox qui prennent une valeur numerique (grace à zon) valeur entiere car c'est le resultat de calcul de jours .

je voudrai additionner ces 4 textbox et obtenir le resultat dans un autre textbox .

par exemple ma 1ere textbox nbj1 =12, la 2eme nbj2=2, la 3eme nbj3=2, la 4eme nbj4=2 et je voudrai dans nbjtotal avoir le resultat 18.

j'ai essayé : nbjtotal =nbj1+nbj2+nbj3+nbj4 mais ça me donne 12

j'ai cherché dans le forum, j'ai trouvé un exemple de @+thierry mais je n'y arrive pas .


si quelqu'un ou une a une idée ou une solution, merci d'avance .

dj.run

 

[PhiBou]

Salut dj.run, Forum

Private Sub CommandButton1_Click()
somme = 0
For i = 1 To 4
somme = somme + UserForm1.Controls("TextBox" & i).Value
Next i
TextBox5.Value = somme
End Sub

Bonne après midi

PhiBou

 

[romfret]

Re,


voila l'exemple de phibou mis en forme dans un usf.


@mic@lement, romfret

 

[dj.run]

Bonjour à toutes et à tous,

Merci PhiBou et romfret, je vais essayer d'adapter votre exemple à mon projet et je vous tiendrai au courant, car dans mon usf j'ai plusieurs textbox mais je seulement additionner les 4 nbj (nbj1,nbj2,nbj3,nbj4) .

bon je vais essayer de me débrouiller avec votre exemple et j'espère y arriver .

Encore une fois un grand merci à tous les 2 et à tous ceux qui m'ont aidés .

dj.run

 

[@Christophe@]

Bonjour Dj run et le forum

Cela fait longtemps que nous nous sommes pas croisé sur le forum

Pour ton problème, la macro qu'il ton donnée fera très très bien l'affaire, il te suffit de modifie les noms de tes textbox par nbj1, nbj2,... si c'est pas déjà fait

Ensuite tu modifie la macro par:

Private Sub CommandButton1_Click()
somme = 0
For i = 1 To 4
somme = somme + UserForm1.Controls("nbj" & i).Value
Next i
TextBox5.Value = somme
End Sub

Et voila

Bonne journée

@Christophe@