XL 2016 Additionné le total des textbox dans userform

[dede869]

Bonjour j'ai un userform qui contiens une liste box avec les nom des équipes, lorsque que je sélectionne une équipe, les noms des 4 joueurs s'affiche dans 4 textbox qui a coté de chaque nom il y a des textbox qui sert a entre des chiffre de la 1e partie, j'aimerais pouvoir visualiser le total des 4 pointage de la premiere partie en bas.

Merci de votre aide

André Fillion

 

[Lone-wolf]

Bonjour André

Dans listbox_click avant End Sub rajoute pour chaque textbox

On Error Resume Next
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = total1
total2 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox24)
TextBox30 = total2

 

[dede869]

Bonjour et merci de ton aide mais ca ne fonctionne pas, rien ne s'incrit dans les textbon de total.

 

[dede869]

Bonjour et merci de ton aide mais ca ne fonctionne pas, rien ne s'incrit dans les textbon de total.

Bonjour André

Dans listbox_click avant End Sub rajoute pour chaque textbox

On Error Resume Next
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = total1
total2 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox24)
TextBox30 = total2

Bonjour André

Dans listbox_click avant End Sub rajoute pour chaque textbox

On Error Resume Next
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = total1
total2 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox24)
TextBox30 = total2

 

[dede869]

Ce ne se calcule pas automatiquement lorsque je met des chiffre dans les textbox et lorsque je quite et je revient ce n'est pas le bon calcule.

 

[Lone-wolf]

Re

C'est normal, il faut supprimer tout les TextBox_Change().Dans la 29 tu as laissé les conditions. Ensuite

On Error Resume Next
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
total2 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox24)
TextBox30 = total2
total3 = Val(TextBox7) + Val(TextBox13) + Val(TextBox19) + Val(TextBox25)
Texbox31 = total3
total4 = Val(TextBox8) + Val(TextBox14) + Val(TextBox20) + Val(TextBox26)
Texbox32 = total4
total5 = Val(TextBox9) + Val(TextBox15) + Val(TextBox21) + Val(TextBox27)
Texbox33 = total5
total6 = Val(TextBox10) + Val(TextBox16) + Val(TextBox22) + Val(TextBox28)
Texbox34 = total6
End If
End Sub

Private Sub TextBox5_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox11_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox17_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox23_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

 

[dede869]

Re

C'est normal, il faut supprimer tout les TextBox_Change().Dans la 29 tu as laissé les conditions. Ensuite

On Error Resume Next
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
total2 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox24)
TextBox30 = total2
total3 = Val(TextBox7) + Val(TextBox13) + Val(TextBox19) + Val(TextBox25)
Texbox31 = total3
total4 = Val(TextBox8) + Val(TextBox14) + Val(TextBox20) + Val(TextBox26)
Texbox32 = total4
total5 = Val(TextBox9) + Val(TextBox15) + Val(TextBox21) + Val(TextBox27)
Texbox33 = total5
total6 = Val(TextBox10) + Val(TextBox16) + Val(TextBox22) + Val(TextBox28)
Texbox34 = total6
End If
End Sub

Private Sub TextBox5_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox11_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox17_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox23_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Ok ça fonctionne,merci de ton aide.