Comment faire faire automatiquement une action à une listbox?

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:

---

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:

---

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

Bonsoir.

L'évènement à exploiter n'est pas TextBox13_Change, mais tous les évènements "Change" des autres TextBoxes : les 7 à 12.

Cordialement,

PGZ

Tu crée une macro somme et tu l'appelle dans chaque changement dans tes textbox

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Som() Dim X As Double   X = Val(TextBox1.Value) + Val(TextBox2.Value) '+........... If X <> 0 Then 'bien sûr tu n'as pas de valeurs négatives! TextBox13.Value = X Else TextBox13.Value = "Coût Total" End If End Sub Private Sub TextBox1_Change() Som End Sub Private Sub TextBox2_Change() Som End Sub '....ET LES AUTRES

---

Comment est-il possible d'enregistrer la macro?
(désolé, je ne suis qu'un trés grand débutant)

Jack

Ok, désolé, j'ai teouvé et ça marche à merveille ta méthode!!

Merci beaucoup!!