Discussion :

[drakkar_agfa]

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é

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

Voici mon algo... simple!

Merci de m'aider!

[edelweisseric]

Bonjour à tous
Bonjour drakkar_agfa

Une piste, tu n'as peut être pas 1000 CheckBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim i As Integer
For i = 1 To 999
    If Me.Controls("CheckBox" & i) = True Then MsgBox "Coché"
Next

Eric

[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.

[edelweisseric]

Re

En fouillant dans mes exemples :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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!)