additon textbox vba Résolu/Fermé

Question

Bonjour,
débutante en programmation j'ai un problème pour additionner plusieurs textbox.
J'ai rechercher sur différent forum mais je n'arrive pas a le faire

Private Sub CheckBox8mannequin_Click()
    If CheckBox8mannequin = True Then
    TextBox8mannequin = 120
    Else: TextBox8mannequin = ""
    End If
End Sub

Private Sub CheckBox9pendentif_Click()
    If CheckBox9pendentif = True Then
    TextBox9pendentif = 100
    Else: TextBox9pendentif = ""
    End If
End Sub

voila un exemple de ce que je voudrais additionner dans une autre textbox
merci de votre aide

amigo · Answer

Bonjour,

Si la textBox qui doit recevoir le resultat s'appelle TextBoxResultat

Private Sub CheckBox8mannequin_Click()
If CheckBox8mannequin = True Then
        TextBox8mannequin.Text = "120"
Else
        TextBox8mannequin.Text = ""
End If
TextBoxResultat.Text=Str(Val(TextBox8mannequin.Text)+Val(TextBox9pendentif.Text))
End Sub

Private Sub CheckBox9pendentif_Click()
If CheckBox9pendentif = True Then
        TextBox9pendentif.Text = "100"
Else
        TextBox9pendentif.Text = ""
End If
TextBoxResultat.Text=Str(Val(TextBox8mannequin.Text)+Val(TextBox9pendentif.Text))
End Sub 

A+.

Additon textbox vba

1 réponse

Discussions similaires