Addition la valeur de différent CheckBox dans 1 TextBox1 par CommandButton
2 réponses
julienh
Bonjour,
je voudrais additionner la valeur de différentes "CheckBox" dans un "TextBox" par une "CommandButton"
voila une partie de mon code actuel :
Première partie : (se répète 40 fois car je possède 40CheckBox différents avec des valeur différentes sauf pour la valeur Else ou je veux toujours 0)
Private Sub CheckBox138_Click()
If CheckBox138.Value = True Then
CheckBox138.Value = 4
Else
CheckBox138.Value = 0
End If
End Sub
Puis la seconde partie :
Private Sub CommandButton1_Click()
TextBox1.Value = (CheckBox1110.Value +........... + CheckBox138.Value + CheckBox139.Value)
End Sub
Pour information lorsque aucune case n'est cochée, j'ai bien le résultat 0. Dès que j'en coche une, je n'ai plus rien.
Merci de vos précieux conseilles.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
DanielCo
Bonjour, Un checkbox peut prendre la valeur Vrai ou Faux (ou parfois Null). Tu ne peux pas lui entrer une valeur numérique. Si les noms des checkboxes se suivent (ici de 1 à 40) : Private Sub CommandButton1_Click() For i = 1 To 40 Var = Var + Me.Controls("CheckBox" & i).Value * -4 Next i Me.TextBox1.Text = Var End Sub Cordialement. Daniel
Bonjour,
je voudrais additionner la valeur de différentes "CheckBox" dans un "TextBox" par une "CommandButton"
voila une partie de mon code actuel :
Première partie : (se répète 40 fois car je possède 40CheckBox différents avec des valeur différentes sauf pour la valeur Else ou je veux toujours 0)
Private Sub CheckBox138_Click()
If CheckBox138.Value = True Then CheckBox138.Value = 4 Else CheckBox138.Value = 0 End If End Sub
Puis la seconde partie :
Private Sub CommandButton1_Click() TextBox1.Value = (CheckBox1110.Value +........... + CheckBox138.Value + CheckBox139.Value) End Sub
Pour information lorsque aucune case n'est cochée, j'ai bien le résultat 0. Dès que j'en coche une, je n'ai plus rien. Merci de vos précieux conseilles.
Bonjour,
Un checkbox peut prendre la valeur Vrai ou Faux (ou parfois Null). Tu
ne peux pas lui entrer une valeur numérique. Si les noms des checkboxes
se suivent (ici de 1 à 40) :
Private Sub CommandButton1_Click()
For i = 1 To 40
Var = Var + Me.Controls("CheckBox" & i).Value * -4
Next i
Me.TextBox1.Text = Var
End Sub
Cordialement.
Daniel
Bonjour,
je voudrais additionner la valeur de différentes "CheckBox" dans un "TextBox"
par une "CommandButton"
voila une partie de mon code actuel :
Première partie : (se répète 40 fois car je possède 40CheckBox différents
avec des valeur différentes sauf pour la valeur Else ou je veux toujours 0)
Private Sub CheckBox138_Click()
If CheckBox138.Value = True Then
CheckBox138.Value = 4
Else
CheckBox138.Value = 0
End If
End Sub
Puis la seconde partie :
Private Sub CommandButton1_Click()
TextBox1.Value = (CheckBox1110.Value +........... + CheckBox138.Value +
CheckBox139.Value)
End Sub
Pour information lorsque aucune case n'est cochée, j'ai bien le résultat 0.
Dès que j'en coche une, je n'ai plus rien.
Merci de vos précieux conseilles.
Bonjour, Un checkbox peut prendre la valeur Vrai ou Faux (ou parfois Null). Tu ne peux pas lui entrer une valeur numérique. Si les noms des checkboxes se suivent (ici de 1 à 40) : Private Sub CommandButton1_Click() For i = 1 To 40 Var = Var + Me.Controls("CheckBox" & i).Value * -4 Next i Me.TextBox1.Text = Var End Sub Cordialement. Daniel
Bonjour,
je voudrais additionner la valeur de différentes "CheckBox" dans un "TextBox" par une "CommandButton"
voila une partie de mon code actuel :
Première partie : (se répète 40 fois car je possède 40CheckBox différents avec des valeur différentes sauf pour la valeur Else ou je veux toujours 0)
Private Sub CheckBox138_Click()
If CheckBox138.Value = True Then CheckBox138.Value = 4 Else CheckBox138.Value = 0 End If End Sub
Puis la seconde partie :
Private Sub CommandButton1_Click() TextBox1.Value = (CheckBox1110.Value +........... + CheckBox138.Value + CheckBox139.Value) End Sub
Pour information lorsque aucune case n'est cochée, j'ai bien le résultat 0. Dès que j'en coche une, je n'ai plus rien. Merci de vos précieux conseilles.
MichD
Bonjour,
Pour additionner des textbox, tu dois utiliser une fonction de conversion d'Excel Cdbl() ou CLng() qui transforme le contenu du Textbox en numérique.
Exemple :
if IsNumeric(Me.textbox1) and If isNumeric(Me.textbox2) then Clng(Me.Textbox1) + Clng(Me.Textbox2) end if
Les fonctions de conversion et isnumeric() requièrent les paramètres définis dans le panneau de configuration de Windows comme dans le cas du séparateur décimal.
Pour faire plus court, tu peux utiliser seulement ceci : Me.TextBox3 = Val(Me.TextBox1) + Val(Me.TextBox2)
Val() requiert obligatoirement le point comme séparateur décimal si le textbox en contient.
Pour additionner des textbox, tu dois utiliser une fonction
de conversion d'Excel Cdbl() ou CLng() qui transforme le
contenu du Textbox en numérique.
Exemple :
if IsNumeric(Me.textbox1) and If isNumeric(Me.textbox2) then
Clng(Me.Textbox1) + Clng(Me.Textbox2)
end if
Les fonctions de conversion et isnumeric() requièrent les paramètres
définis dans le panneau de configuration de Windows comme dans
le cas du séparateur décimal.
Pour faire plus court, tu peux utiliser seulement ceci :
Me.TextBox3 = Val(Me.TextBox1) + Val(Me.TextBox2)
Val() requiert obligatoirement le point comme séparateur décimal
si le textbox en contient.
Pour additionner des textbox, tu dois utiliser une fonction de conversion d'Excel Cdbl() ou CLng() qui transforme le contenu du Textbox en numérique.
Exemple :
if IsNumeric(Me.textbox1) and If isNumeric(Me.textbox2) then Clng(Me.Textbox1) + Clng(Me.Textbox2) end if
Les fonctions de conversion et isnumeric() requièrent les paramètres définis dans le panneau de configuration de Windows comme dans le cas du séparateur décimal.
Pour faire plus court, tu peux utiliser seulement ceci : Me.TextBox3 = Val(Me.TextBox1) + Val(Me.TextBox2)
Val() requiert obligatoirement le point comme séparateur décimal si le textbox en contient.
