Une petite question en ce qui concerne les chekbox dans un frame

alex_x846
Messages postés
12
Date d'inscription
jeudi 7 avril 2005
Statut
Membre
Dernière intervention
13 juillet 2007
- 7 avril 2005 à 21:15
alex_x846
Messages postés
12
Date d'inscription
jeudi 7 avril 2005
Statut
Membre
Dernière intervention
13 juillet 2007
- 7 avril 2005 à 23:09
une petite question en ce qui concerne les chekbox dans un frame
commennt est il possible de compter le nombre de chekbox coché dans un frame?
en effet imaginons 10 chekbox dans un frame, si 4 sont cochés je veux alors lancer une nouvelle feuille, quelle est la solution sachant que les chekbox sont coché aléatoirement?
merci bcp

4 réponses

cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
7 avril 2005 à 21:21
hm si par exemple tu as un group de controle checkboxs(0) à checkboxs(10) tu fais :

dim i as byte
dim count as byte
count = 0
for i = 0 to 10
if checkboxs(i).value then count = count + 1
next i
if count > 3 then form2.show
0
alex_x846
Messages postés
12
Date d'inscription
jeudi 7 avril 2005
Statut
Membre
Dernière intervention
13 juillet 2007
4
7 avril 2005 à 22:49
merci bcp!!
mais en fait moi je voudré que ca compte les chekbox coché en direct!
c'est a dire, je coche, je coche,je coche et là un message s'affiche
tu m'as donné une solution qui me permet d'afficher qqch une fois tous les chelbox traité!!
me suis tu?!!!
merci bcp!
0
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
33
7 avril 2005 à 23:05
si tu as un groupe de controle:

Dim nb As Integer

Private Sub Check1_Click(Index As Integer) If Check1(Index).Value 1 Then nb nb + 1 Else nb = nb - 1
If nb >= 4 Then Form2.Show
End Sub

sinon il faut le faire pour chaque CheckBox

Private Sub Check1_Click() If Check1.Value 1 Then nb nb + 1 Else nb = nb - 1
If nb >= 4 Then Form2.Show
End Sub


Private Sub Check2_Click() If Check2.Value 1 Then nb nb + 1 Else nb = nb - 1
If nb >= 4 Then Form2.Show
End Sub


Private Sub Check3_Click() If Check3.Value 1 Then nb nb + 1 Else nb = nb - 1
If nb >= 4 Then Form2.Show
End Sub


Private Sub Check4_Click() If Check4.Value 1 Then nb nb + 1 Else nb = nb - 1
If nb >= 4 Then Form2.Show
End Sub

Daniel
0
alex_x846
Messages postés
12
Date d'inscription
jeudi 7 avril 2005
Statut
Membre
Dernière intervention
13 juillet 2007
4
7 avril 2005 à 23:09
excuse moi ce que tu mas dis marche tres bien
je te remercie bcp
bonne continuation
@+
0