Additon textbox vba

Résolu/Fermé

titoune - 3 avril 2008 à 22:27
titoune - 4 avril 2008 à 09:24

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

A voir également:

Additon textbox vba
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA
Récupérer valeur cellule vba ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

amigo
3 avril 2008 à 23:15

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

titoune
4 avril 2008 à 09:24

Merci beaucoup amigo
je ne mettais pas le code au bon endroit donc ça ne pouvait pas marcher lol
merci

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

[VBA] format de date dans textbox

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Erreur d'exécution 13 Incompatibilité de type

Discussions similaires

Newsletters