Affichage Automatique sans cliquer sur TextBOX7

[Ilino]

Bonjour Forum

Private Sub TextBox7_Change()
TextBox7 = CDbl(TextBox1) + CDbl(TextBox2) + CDbl(TextBox3) + CDbl(TextBox4) + CDbl(TextBox5) + CDbl(TextBox6)
End Sub

comment faire pour afficher les résultat dans TextBox 7 automatiquement ??
a+

 

[job75]

Re : Affichage Automatique sans cliquer sur TextBOX7

Bonjour Ilino,

Private Sub TextBox1_Change(): Somme: End Sub
Private Sub TextBox2_Change(): Somme: End Sub
Private Sub TextBox3_Change(): Somme: End Sub
Private Sub TextBox4_Change(): Somme: End Sub
Private Sub TextBox5_Change(): Somme: End Sub
Private Sub TextBox6_Change(): Somme: End Sub

Sub Somme()
TextBox7 = Val(Replace(TextBox1, ",", ".")) + Val(Replace(TextBox2, ",", ".")) _
  + Val(Replace(TextBox3, ",", ".")) + Val(Replace(TextBox4, ",", ".")) _
  + Val(Replace(TextBox5, ",", ".")) + Val(Replace(TextBox6, ",", "."))
End Sub

A+

 

[Ilino]

Re : Affichage Automatique sans cliquer sur TextBOX7

Bonjour Ilino,

Private Sub TextBox1_Change(): Somme: End Sub
Private Sub TextBox2_Change(): Somme: End Sub
Private Sub TextBox3_Change(): Somme: End Sub
Private Sub TextBox4_Change(): Somme: End Sub
Private Sub TextBox5_Change(): Somme: End Sub
Private Sub TextBox6_Change(): Somme: End Sub

A+

Bonjour Job
que signifie ce code ci dessus ?
a+

 

[Ilino]

Re : Affichage Automatique sans cliquer sur TextBOX7

Re
si j'ai bien compris j'ajouterai cette fonction " somme' dans chaque Private Sub TextBox1_Change() ,,?
A+

 

[Ilino]

Re : Affichage Automatique sans cliquer sur TextBOX7

Bonjour JOB
PBLM RESOLUT
A+

 

[job75]

Re : Affichage Automatique sans cliquer sur TextBOX7

Re,

S'il y a beaucoup de TextBoxes, on peut écrire autrement la macro Somme.

1) Dans une feuille de calcul :

Sub Somme()
Dim i%, s#
For i = 1 To 6 'n° des TextBoxes à additionner
  s = s + Val(Replace(Me.OLEObjects("TextBox" & i).Object, ",", "."))
Next
TextBox7 = s
End Sub

2) Dans un UserForm :

Sub Somme()
Dim i%, s#
For i = 1 To 6 'n° des TextBoxes à additionner
  s = s + Val(Replace(Controls("TextBox" & i), ",", "."))
Next
TextBox7 = s
End Sub

A+

 

[Ilino]

Re : Affichage Automatique sans cliquer sur TextBOX7

Re
merci and GRAZIE
A+😎