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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
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" a écrit dans le message de news:
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
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
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" a écrit dans le message de news:
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
papou
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" a écrit dans le message de news:
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
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
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" a écrit dans le message de news:
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
Mishell
Bonjour.
x = 1 Variable = "CheckBox" & x Me.Controls(Variable).Value = True
Mishell
"JPMonnier" wrote in message news:
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
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
x = 1 Variable = "CheckBox" & x Me.Controls(Variable).Value = True
Mishell
"JPMonnier" wrote in message news:
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
Merci Pascal et Mishell Réponses Nickels la 2ème de Pascal et celle de Mishell Quelle efficacité ! Merci beaucoup -- Cordialement
"Mishell" a écrit dans le message de news:
Bonjour.
x = 1 Variable = "CheckBox" & x Me.Controls(Variable).Value = True
Mishell
"JPMonnier" wrote in message news:
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
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
Merci Pascal et Mishell Réponses Nickels la 2ème de Pascal et celle de Mishell Quelle efficacité ! Merci beaucoup -- Cordialement
"Mishell" a écrit dans le message de news:
Bonjour.
x = 1 Variable = "CheckBox" & x Me.Controls(Variable).Value = True
Mishell
"JPMonnier" wrote in message news:
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