[E-03] Parcourir les checkbox

Version imprimable

29/01/2009, 15h38
drakkar_agfa

[E-03] Parcourir les checkbox

Bonjour à tous!

J'aimerais savoir comment faire pour parcourir tous les checkbox d'un USF.

Je sais que je devrais utiliser la technique du For Each mais... avec les collections et tout je ne suis pas encore familier.
J'ai fait des recherches sur le forum (je crois qu'une personne avait demandé quelque chose de similaire, avec les txtbox.... je crois) mais je trouve rien.

En résumé

Citation:

Pour tout checkbox dans USF
checkbox décoché
next checkbox

Voici mon algo... simple!

Merci de m'aider!
29/01/2009, 15h50
edelweisseric
Bonjour à tous
Bonjour drakkar_agfa

Une piste, tu n'as peut être pas 1000 CheckBox ;)
Code:

1 2 3 4 Dim i As Integer For i = 1 To 999 If Me.Controls("CheckBox" & i) = True Then MsgBox "Coché" Next
Eric
29/01/2009, 15h55
drakkar_agfa

C'est une bonne idée de remplacement.

Je vais utiliser cette méthode en attendant, mais j'aimerais quand même connaitre l'autre (For Each).

Merci.

Re

En fouillant dans mes exemples :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub CommandButton1_Click()
Dim C As Control, Nb As Byte, x As Byte, Var As String
 
'comptage des Checkbox insérés sur le UserForm
For Each C In Me.Controls
    If TypeOf C Is MSForms.CheckBox Then Nb = Nb + 1
Next C
 
'bouclage sur les CheckBox
For x = 1 To Nb
    If Me.Controls("CheckBox" & x) = True Then
    'si la Checkbox est validée, mémorisation de la valeur du label correspondant
    Var = Var & Me.Controls("Label" & x).Caption & Chr(10)
    End If
Next x
 
MsgBox "les CheckBox validées sont :" & Chr(10) & Var
 
End Sub

de notre maître Fring

Eric

29/01/2009, 17h01
drakkar_agfa

Bonjour,

Merci bien! C'est exactement ce qu'il me fallait.
Maintenant je peux jouer avec tout ca!

Marci!!! (avec un A et l'accent québécois mArci!)