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 :

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"
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
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
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".
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