Bonjour,
Dans le cadre d'un projet, j'ai 7 listboxs.
Je souhaite que dans la septieme affiche la somme des 6 précédentes.
Dans le workbook open, j'ai inscrit :
Ensuite, sur la feuille de code correspondante aux textbox, j'ai inscrit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Sheets("choix").TextBox7.Value = "0" Sheets("choix").TextBox8.Value = "0" Sheets("choix").TextBox9.Value = "0" Sheets("choix").TextBox10.Value = "0" Sheets("choix").TextBox11.Value = "0" Sheets("choix").TextBox12.Value = "0" Sheets("choix").TextBox13.Value = "Coût total"
Mon probléme est que je veux que le total de la textbox13 s'affiche dés que la valeur des différentes textboxs sont modifiées. Et ceci même quand je ne touche qu'une textbox et que les autres restent à "l'état 0".
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub TextBox13_Change() Dim X As String X = Val(TextBox7.Value) + Val(TextBox8.Value) + Val(TextBox9.Value) + Val(TextBox10.Value) + Val(TextBox11.Value) + Val(TextBox12.Value) If X <> 0 Then TextBox13.Value = (X) Else TextBox13.Value = "Coût Total" End If End Sub
Quand je modifie les valeurs, l'inscription coût total reste inchngée, et seulement quand je met un point d'arret sur end sub et que je met play, la valeur correcte s'affiche!
Comment est-ce que je peu modifier ce défaut?
Merci beaucoup d'avance
Jack
Partager