Discussion :

[GBardou]

Bonjour,

je souhaite utiliser la fonction SET pour référencer 5 CheckBox à travers une boucle FOR.
Est-il possible d'utiliser une boucle pour identifier des objets d'un UserForm ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function AssignerValeur(bValeur as Boolean)
'------------------------------------------
Dim mCheckBox As CheckBox
Dim Index As Integer
 
    For Index = 1 To 5
        'CheckBox1, CheckBox2,CheckBox3,CheckBox4,CheckBox5
        Set mCheckBox = ????
        mCheckBox.Value = bValeur
        mCheckBox = Nothing
    Next Index
End Function

[mercatog]

Code :

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

1
2
3
For i = 1 to 5
     Me.Controls("CheckBox" & i).Value=bValue
Next i

[GBardou]

La réponse est plus simple que ce que j'avais imaginé.

Merci