Discussion :

[jacksparot]

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

[pgz]

Bonsoir.

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

Cordialement,

PGZ

[mercatog]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jacksparot]

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!!