Variable objet

Bonjour

Si ton but est de cocher un ensemble de checkbox, il y a très simple.
Il te suffit de boucler sur les contrôles de ton userform avec quelque chose
comme ça :

Dim ctrchk As Control
For Each ctrchk In Me.Controls
If ctrchk.Name Like "ARB*" Then ctrchk.Value = True
Next ctrchk

Cordialement
Pascal

"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de news:
ejVOpLd1IHA.6096@TK2MSFTNGP06.phx.gbl...

Bonjour, toujours moi avec mes explications imprécises !
J'aimerais savoir s'il est possible de passer un objet d'un userform en
variable
Public Variable as Object
Ex : Me.ARB1 en Me.variable
Variable = "ARB" & x '(x=1) soit ARB1
Me.Variable = true (Varible ou ARB1 est un CheckBox de mon Userform)
Message : "Membre de méthode ou de données introuvable"
Je ne sais pas si je suis clair
Merci d'avance
--
Cordialement
jpmonnier-no-spam@neuf.fr

Re
Sinon, une façon de faire qui se rapproche de ce que tu veux, à l'origine
fonction proposée par John Fuss il me semble :
Public Function NomControle(Usf As UserForm, strControle As String) As
Object
Set NomControle = Usf.Controls(strControle)
End Function

Puis, par exemple (à adapter) :
Private Sub UserForm_Initialize()
For x = 1 to 5
NomControle(UserForm1, "ARB" & x).Value = True
Next x
End Sub

Cordialement
Pascal

"JPMonnier" <jpmonnier-nospam@neuf.fr> a écrit dans le message de news:
ejVOpLd1IHA.6096@TK2MSFTNGP06.phx.gbl...

Bonjour, toujours moi avec mes explications imprécises !
J'aimerais savoir s'il est possible de passer un objet d'un userform en
variable
Public Variable as Object
Ex : Me.ARB1 en Me.variable
Variable = "ARB" & x '(x=1) soit ARB1
Me.Variable = true (Varible ou ARB1 est un CheckBox de mon Userform)
Message : "Membre de méthode ou de données introuvable"
Je ne sais pas si je suis clair
Merci d'avance
--
Cordialement
jpmonnier-no-spam@neuf.fr

Bonjour.

x = 1
Variable = "CheckBox" & x
Me.Controls(Variable).Value = True

Mishell

"JPMonnier" <jpmonnier-nospam@neuf.fr> wrote in message
news:ejVOpLd1IHA.6096@TK2MSFTNGP06.phx.gbl...

Bonjour, toujours moi avec mes explications imprécises !
J'aimerais savoir s'il est possible de passer un objet d'un userform en
variable
Public Variable as Object
Ex : Me.ARB1 en Me.variable
Variable = "ARB" & x '(x=1) soit ARB1
Me.Variable = true (Varible ou ARB1 est un CheckBox de mon Userform)
Message : "Membre de méthode ou de données introuvable"
Je ne sais pas si je suis clair
Merci d'avance
--
Cordialement
jpmonnier-no-spam@neuf.fr

Merci Pascal et Mishell
Réponses Nickels
la 2ème de Pascal
et celle de Mishell
Quelle efficacité !
Merci beaucoup
--
Cordialement
jpmonnier-no-spam@neuf.fr
"Mishell" <Mishell@dell.qc> a écrit dans le message de
news:e6LqVjd1IHA.5564@TK2MSFTNGP06.phx.gbl...

Bonjour.

x = 1
Variable = "CheckBox" & x
Me.Controls(Variable).Value = True

Mishell

"JPMonnier" <jpmonnier-nospam@neuf.fr> wrote in message
news:ejVOpLd1IHA.6096@TK2MSFTNGP06.phx.gbl...

Bonjour, toujours moi avec mes explications imprécises !
J'aimerais savoir s'il est possible de passer un objet d'un userform en
variable
Public Variable as Object
Ex : Me.ARB1 en Me.variable
Variable = "ARB" & x '(x=1) soit ARB1
Me.Variable = true (Varible ou ARB1 est un CheckBox de mon Userform)
Message : "Membre de méthode ou de données introuvable"
Je ne sais pas si je suis clair
Merci d'avance
--
Cordialement
jpmonnier-no-spam@neuf.fr