Sur un userform j'ai 25 checkbox et 2 textbox. Je voudrais que si
l'usager inscrit un chiffre dans le textbox1, qu'=E0 la sortie on puisse
compter le nombre de checkbox coch=E9s et rapporter ce montant dans le
textbox2. Celui-ci agit comme compteur et ne doit pas d=E9passer le
nombre inscrit dans le textbox1...
Auriez-vous une petite id=E9e comment compter le nombre de checkbox
coch=E9s (true) ?
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
MichDenis
L'événement AfterUpdate se produit après qu'il y ait eu une modification dans le textbox1
'------------------- Private Sub TextBox1_AfterUpdate() Dim S as Integer For Each C In Me.Controls If TypeName(C) = "CheckBox" Then If C = True Then s = s + 1 End If End If Next Me.TextBox2 = s End Sub '-------------------
"Denys" a écrit dans le message de news:
Bonjour à tous,
Sur un userform j'ai 25 checkbox et 2 textbox. Je voudrais que si l'usager inscrit un chiffre dans le textbox1, qu'à la sortie on puisse compter le nombre de checkbox cochés et rapporter ce montant dans le textbox2. Celui-ci agit comme compteur et ne doit pas dépasser le nombre inscrit dans le textbox1...
Auriez-vous une petite idée comment compter le nombre de checkbox cochés (true) ?
Merci pour votre temps
Denys
L'événement AfterUpdate se produit après qu'il
y ait eu une modification dans le textbox1
'-------------------
Private Sub TextBox1_AfterUpdate()
Dim S as Integer
For Each C In Me.Controls
If TypeName(C) = "CheckBox" Then
If C = True Then
s = s + 1
End If
End If
Next
Me.TextBox2 = s
End Sub
'-------------------
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
1163797452.541483.168060@f16g2000cwb.googlegroups.com...
Bonjour à tous,
Sur un userform j'ai 25 checkbox et 2 textbox. Je voudrais que si
l'usager inscrit un chiffre dans le textbox1, qu'à la sortie on puisse
compter le nombre de checkbox cochés et rapporter ce montant dans le
textbox2. Celui-ci agit comme compteur et ne doit pas dépasser le
nombre inscrit dans le textbox1...
Auriez-vous une petite idée comment compter le nombre de checkbox
cochés (true) ?
L'événement AfterUpdate se produit après qu'il y ait eu une modification dans le textbox1
'------------------- Private Sub TextBox1_AfterUpdate() Dim S as Integer For Each C In Me.Controls If TypeName(C) = "CheckBox" Then If C = True Then s = s + 1 End If End If Next Me.TextBox2 = s End Sub '-------------------
"Denys" a écrit dans le message de news:
Bonjour à tous,
Sur un userform j'ai 25 checkbox et 2 textbox. Je voudrais que si l'usager inscrit un chiffre dans le textbox1, qu'à la sortie on puisse compter le nombre de checkbox cochés et rapporter ce montant dans le textbox2. Celui-ci agit comme compteur et ne doit pas dépasser le nombre inscrit dans le textbox1...
Auriez-vous une petite idée comment compter le nombre de checkbox cochés (true) ?
Merci pour votre temps
Denys
Denys
Bonjour Denis,
Tu me sauves la vie (encore) juste avant la fin de semaine...
Merci infiniment
Denys
L'événement AfterUpdate se produit après qu'il y ait eu une modification dans le textbox1
'------------------- Private Sub TextBox1_AfterUpdate() Dim S as Integer For Each C In Me.Controls If TypeName(C) = "CheckBox" Then If C = True Then s = s + 1 End If End If Next Me.TextBox2 = s End Sub '-------------------
"Denys" a écrit dans le message de news:
Bonjour à tous,
Sur un userform j'ai 25 checkbox et 2 textbox. Je voudrais que si l'usager inscrit un chiffre dans le textbox1, qu'à la sortie on puisse compter le nombre de checkbox cochés et rapporter ce montant dans le textbox2. Celui-ci agit comme compteur et ne doit pas dépasser le nombre inscrit dans le textbox1...
Auriez-vous une petite idée comment compter le nombre de checkbox cochés (true) ?
Merci pour votre temps
Denys
Bonjour Denis,
Tu me sauves la vie (encore) juste avant la fin de semaine...
Merci infiniment
Denys
L'événement AfterUpdate se produit après qu'il
y ait eu une modification dans le textbox1
'-------------------
Private Sub TextBox1_AfterUpdate()
Dim S as Integer
For Each C In Me.Controls
If TypeName(C) = "CheckBox" Then
If C = True Then
s = s + 1
End If
End If
Next
Me.TextBox2 = s
End Sub
'-------------------
"Denys" <denys.perreault@rbc.com> a écrit dans le message de news:
1163797452.541483.168060@f16g2000cwb.googlegroups.com...
Bonjour à tous,
Sur un userform j'ai 25 checkbox et 2 textbox. Je voudrais que si
l'usager inscrit un chiffre dans le textbox1, qu'à la sortie on puisse
compter le nombre de checkbox cochés et rapporter ce montant dans le
textbox2. Celui-ci agit comme compteur et ne doit pas dépasser le
nombre inscrit dans le textbox1...
Auriez-vous une petite idée comment compter le nombre de checkbox
cochés (true) ?
Tu me sauves la vie (encore) juste avant la fin de semaine...
Merci infiniment
Denys
L'événement AfterUpdate se produit après qu'il y ait eu une modification dans le textbox1
'------------------- Private Sub TextBox1_AfterUpdate() Dim S as Integer For Each C In Me.Controls If TypeName(C) = "CheckBox" Then If C = True Then s = s + 1 End If End If Next Me.TextBox2 = s End Sub '-------------------
"Denys" a écrit dans le message de news:
Bonjour à tous,
Sur un userform j'ai 25 checkbox et 2 textbox. Je voudrais que si l'usager inscrit un chiffre dans le textbox1, qu'à la sortie on puisse compter le nombre de checkbox cochés et rapporter ce montant dans le textbox2. Celui-ci agit comme compteur et ne doit pas dépasser le nombre inscrit dans le textbox1...
Auriez-vous une petite idée comment compter le nombre de checkbox cochés (true) ?
