Checkbox dans un frame
Résolu
cs_jady
Messages postés
2
Date d'inscription
mercredi 18 décembre 2002
Statut
Membre
Dernière intervention
22 mai 2005
-
22 mai 2005 à 21:45
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 22 mai 2005 à 22:35
Gobillot Messages postés 3140 Date d'inscription vendredi 14 mai 2004 Statut Membre Dernière intervention 11 mars 2019 - 22 mai 2005 à 22:35
3 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
22 mai 2005 à 22:19
22 mai 2005 à 22:19
Bonsoir,
Je suppose que quand tu dis CheckBox vrais, tu veux dire qu'ils sont cochés ?
Private Sub Command1_Click()
Dim indx As Integer, cpt
With Form1
For indx = 0 To .Controls.Count - 1
If (TypeOf .Controls(indx) Is CheckBox) Then
If .Controls(indx).Value = 1 Then
cpt = cpt + 1
End If
Text1 = "Vous avez " & cpt & " CheckBox cochés"
End If
Next indx
End With
End Sub
jpleroisse
Je suppose que quand tu dis CheckBox vrais, tu veux dire qu'ils sont cochés ?
Private Sub Command1_Click()
Dim indx As Integer, cpt
With Form1
For indx = 0 To .Controls.Count - 1
If (TypeOf .Controls(indx) Is CheckBox) Then
If .Controls(indx).Value = 1 Then
cpt = cpt + 1
End If
Text1 = "Vous avez " & cpt & " CheckBox cochés"
End If
Next indx
End With
End Sub
jpleroisse
BozzoDodo
Messages postés
185
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
10 janvier 2008
22 mai 2005 à 22:02
22 mai 2005 à 22:02
On supposera que tes chekbox s'appellent chkCheck et qu'elles ont un index.
Dim i As Long
For i = chkCheck.LBound To chkCheck.UBound
If chkCheck(i).Value Then
Debug.Print i, "true" 'Si la checkbox d'index i est cochée...
EndIf
Next i
Voila! Je ne sais pas si c'est ce que tu voulais mais je n'ai rien compris à ta phrase: "je veut faire le nombre de checkbox" =D
Bonne prog'
Dim i As Long
For i = chkCheck.LBound To chkCheck.UBound
If chkCheck(i).Value Then
Debug.Print i, "true" 'Si la checkbox d'index i est cochée...
EndIf
Next i
Voila! Je ne sais pas si c'est ce que tu voulais mais je n'ai rien compris à ta phrase: "je veut faire le nombre de checkbox" =D
Bonne prog'
Gobillot
Messages postés
3140
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
11 mars 2019
34
22 mai 2005 à 22:35
22 mai 2005 à 22:35
je suppose que tous les CheckBox ne sont pas indicés, ne sont pas tous dans la même Frame.
Private Sub Command1_Click()
Dim obj As Object
Dim n As Integer
On Error GoTo ERREUR
For Each obj In Me.Controls
If TypeName(obj) = "CheckBox" Then
If obj.Container = Frame1 Then
If obj.Value 1 Then n n + 1
End If
End If
10 Next
Text1.Text = n
Exit Sub
ERREUR:
If Err = 450 Then Resume 10
MsgBox Err.Description
End Sub
Daniel
Private Sub Command1_Click()
Dim obj As Object
Dim n As Integer
On Error GoTo ERREUR
For Each obj In Me.Controls
If TypeName(obj) = "CheckBox" Then
If obj.Container = Frame1 Then
If obj.Value 1 Then n n + 1
End If
End If
10 Next
Text1.Text = n
Exit Sub
ERREUR:
If Err = 450 Then Resume 10
MsgBox Err.Description
End Sub
Daniel
