Est-il possible d'appeler un contr=F4le en utilisant une=20
variable ?
Je m'explique :
j'ai une liste de ListBox :
lbCanal1
lbCanal2
lbCanal3
...
Je souhaiterai remplir ces contr=F4les en utilisant une=20
variable enti=E8re i et une boucle For pour m'=E9viter d'avoir=20
=E0 remplir les contr=F4les 1 par 1.
A priori =E7a ne parche pas car lors de la compil, une=20
erreur est g=E9n=E9r=E9e (le nom du contr=F4le n'existant pas sous=20
la forme "lbCanal&i").
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 Une façon de procéder : Dim ctr As Control For Each ctr in userform1.controls If typeof ctr is msforms.Listbox then 'là tu fais ce que tu veux sur tes contrôles - incluant un test sur son nom si nécessaire : ctr.Name End if Next ctr
Cordialement
"le_g0eland" a écrit dans le message de news:bd1e01c47a07$b1fe9db0$ Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ...
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
Bonjour
Une façon de procéder :
Dim ctr As Control
For Each ctr in userform1.controls
If typeof ctr is msforms.Listbox then
'là tu fais ce que tu veux sur tes contrôles - incluant un test sur son nom
si nécessaire : ctr.Name
End if
Next ctr
Cordialement
"le_g0eland" <le_g0eland@yahoo.fr> a écrit dans le message de
news:bd1e01c47a07$b1fe9db0$a601280a@phx.gbl...
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une
variable ?
Je m'explique :
j'ai une liste de ListBox :
lbCanal1
lbCanal2
lbCanal3
...
Je souhaiterai remplir ces contrôles en utilisant une
variable entière i et une boucle For pour m'éviter d'avoir
à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une
erreur est générée (le nom du contrôle n'existant pas sous
la forme "lbCanal&i").
Bonjour Une façon de procéder : Dim ctr As Control For Each ctr in userform1.controls If typeof ctr is msforms.Listbox then 'là tu fais ce que tu veux sur tes contrôles - incluant un test sur son nom si nécessaire : ctr.Name End if Next ctr
Cordialement
"le_g0eland" a écrit dans le message de news:bd1e01c47a07$b1fe9db0$ Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ...
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
michdenis
Bonjour le_g0eland,
Il y a aussi :
'-------------------------------------- Dim A as integer Dim LaList As MSForms.Label 'En supposant que tes contrôles "lbCanal" sont des "label"
For a = 1 to 3 Set LaList = Controls(lbCanal & cstr(a))
With LaList .Tout le code que tu veux produire à l'aide ' de l'objet LaList End With
Next
Set LaList = Nothing '--------------------------------------
Salutations!
"le_g0eland" a écrit dans le message de news:bd1e01c47a07$b1fe9db0$ Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ...
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
Bonjour le_g0eland,
Il y a aussi :
'--------------------------------------
Dim A as integer
Dim LaList As MSForms.Label
'En supposant que tes contrôles "lbCanal" sont des "label"
For a = 1 to 3
Set LaList = Controls(lbCanal & cstr(a))
With LaList
.Tout le code que tu veux produire à l'aide
' de l'objet LaList
End With
Next
Set LaList = Nothing
'--------------------------------------
Salutations!
"le_g0eland" <le_g0eland@yahoo.fr> a écrit dans le message de news:bd1e01c47a07$b1fe9db0$a601280a@phx.gbl...
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une
variable ?
Je m'explique :
j'ai une liste de ListBox :
lbCanal1
lbCanal2
lbCanal3
...
Je souhaiterai remplir ces contrôles en utilisant une
variable entière i et une boucle For pour m'éviter d'avoir
à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une
erreur est générée (le nom du contrôle n'existant pas sous
la forme "lbCanal&i").
'-------------------------------------- Dim A as integer Dim LaList As MSForms.Label 'En supposant que tes contrôles "lbCanal" sont des "label"
For a = 1 to 3 Set LaList = Controls(lbCanal & cstr(a))
With LaList .Tout le code que tu veux produire à l'aide ' de l'objet LaList End With
Next
Set LaList = Nothing '--------------------------------------
Salutations!
"le_g0eland" a écrit dans le message de news:bd1e01c47a07$b1fe9db0$ Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ...
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
le_g0eland
Merci pour la suggestion mais en adaptant l'exemple à mon code (voir ci-dessous) la compilation détecte une erreur : lbLargeur est une variable non définie (puisqu'en fait il existe lbLargeur 1, lbLargeur 2, ... mais pas lbLargeur )
'-------------------------------- Dim A As Integer Dim LaList As MSForms.ListBox
For A = 1 To 3 Set LaList = Controls(lbLargeur & CStr(A))
With LaList .Value = LongueurStandard End With
Next
Set LaList = Nothing '--------------------------------
-----Message d'origine----- Bonjour le_g0eland,
Il y a aussi :
'-------------------------------------- Dim A as integer Dim LaList As MSForms.Label 'En supposant que tes contrôles "lbCanal" sont des "label"
For a = 1 to 3 Set LaList = Controls(lbCanal & cstr(a))
With LaList .Tout le code que tu veux produire à l'aide ' de l'objet LaList End With
Next
Set LaList = Nothing '--------------------------------------
Salutations!
"le_g0eland" a écrit dans le message de news:bd1e01c47a07$b1fe9db0$
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ....
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
.
Merci pour la suggestion mais en adaptant l'exemple à mon
code (voir ci-dessous) la compilation détecte une erreur :
lbLargeur est une variable non définie (puisqu'en fait il
existe lbLargeur 1, lbLargeur 2, ... mais pas lbLargeur )
'--------------------------------
Dim A As Integer
Dim LaList As MSForms.ListBox
For A = 1 To 3
Set LaList = Controls(lbLargeur & CStr(A))
With LaList
.Value = LongueurStandard
End With
Next
Set LaList = Nothing
'--------------------------------
-----Message d'origine-----
Bonjour le_g0eland,
Il y a aussi :
'--------------------------------------
Dim A as integer
Dim LaList As MSForms.Label
'En supposant que tes contrôles "lbCanal" sont
des "label"
For a = 1 to 3
Set LaList = Controls(lbCanal & cstr(a))
With LaList
.Tout le code que tu veux produire à l'aide
' de l'objet LaList
End With
Next
Set LaList = Nothing
'--------------------------------------
Salutations!
"le_g0eland" <le_g0eland@yahoo.fr> a écrit dans le
message de news:bd1e01c47a07$b1fe9db0$a601280a@phx.gbl...
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une
variable ?
Je m'explique :
j'ai une liste de ListBox :
lbCanal1
lbCanal2
lbCanal3
....
Je souhaiterai remplir ces contrôles en utilisant une
variable entière i et une boucle For pour m'éviter d'avoir
à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une
erreur est générée (le nom du contrôle n'existant pas sous
la forme "lbCanal&i").
Merci pour la suggestion mais en adaptant l'exemple à mon code (voir ci-dessous) la compilation détecte une erreur : lbLargeur est une variable non définie (puisqu'en fait il existe lbLargeur 1, lbLargeur 2, ... mais pas lbLargeur )
'-------------------------------- Dim A As Integer Dim LaList As MSForms.ListBox
For A = 1 To 3 Set LaList = Controls(lbLargeur & CStr(A))
With LaList .Value = LongueurStandard End With
Next
Set LaList = Nothing '--------------------------------
-----Message d'origine----- Bonjour le_g0eland,
Il y a aussi :
'-------------------------------------- Dim A as integer Dim LaList As MSForms.Label 'En supposant que tes contrôles "lbCanal" sont des "label"
For a = 1 to 3 Set LaList = Controls(lbCanal & cstr(a))
With LaList .Tout le code que tu veux produire à l'aide ' de l'objet LaList End With
Next
Set LaList = Nothing '--------------------------------------
Salutations!
"le_g0eland" a écrit dans le message de news:bd1e01c47a07$b1fe9db0$
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ....
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
.
le_g0eland
merci pour la suggestion de code. ça marche bien ... à part que je n'arrive pas à modifier le contenu des contrôles : il s'agit de ListBox, Command button et TextBox.
Apparemment, il n'y a pas de propriété "value" pour ctr.
le g0eland
-----Message d'origine----- Bonjour Une façon de procéder : Dim ctr As Control For Each ctr in userform1.controls If typeof ctr is msforms.Listbox then 'là tu fais ce que tu veux sur tes contrôles - incluant un test sur son nom
si nécessaire : ctr.Name End if Next ctr
Cordialement
"le_g0eland" a écrit dans le message de
news:bd1e01c47a07$b1fe9db0$ Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ....
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
.
merci pour la suggestion de code.
ça marche bien ... à part que je n'arrive pas à modifier
le contenu des contrôles : il s'agit de ListBox, Command
button et TextBox.
Apparemment, il n'y a pas de propriété "value" pour ctr.
le g0eland
-----Message d'origine-----
Bonjour
Une façon de procéder :
Dim ctr As Control
For Each ctr in userform1.controls
If typeof ctr is msforms.Listbox then
'là tu fais ce que tu veux sur tes contrôles - incluant
un test sur son nom
si nécessaire : ctr.Name
End if
Next ctr
Cordialement
"le_g0eland" <le_g0eland@yahoo.fr> a écrit dans le
message de
news:bd1e01c47a07$b1fe9db0$a601280a@phx.gbl...
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une
variable ?
Je m'explique :
j'ai une liste de ListBox :
lbCanal1
lbCanal2
lbCanal3
....
Je souhaiterai remplir ces contrôles en utilisant une
variable entière i et une boucle For pour m'éviter d'avoir
à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une
erreur est générée (le nom du contrôle n'existant pas sous
la forme "lbCanal&i").
merci pour la suggestion de code. ça marche bien ... à part que je n'arrive pas à modifier le contenu des contrôles : il s'agit de ListBox, Command button et TextBox.
Apparemment, il n'y a pas de propriété "value" pour ctr.
le g0eland
-----Message d'origine----- Bonjour Une façon de procéder : Dim ctr As Control For Each ctr in userform1.controls If typeof ctr is msforms.Listbox then 'là tu fais ce que tu veux sur tes contrôles - incluant un test sur son nom
si nécessaire : ctr.Name End if Next ctr
Cordialement
"le_g0eland" a écrit dans le message de
news:bd1e01c47a07$b1fe9db0$ Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ....
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
.
papou
Modifie la ligne Dim ctr As Control en Dim ctr
Et ensuite adapte la ligne If TypeOf ctr Is MSForms.ComboBox en fonction du type de contrôle à traiter
Cordialement Pascal
"le_g0eland" a écrit dans le message de news:c2b401c47a2b$ffaa26a0$
merci pour la suggestion de code. ça marche bien ... à part que je n'arrive pas à modifier le contenu des contrôles : il s'agit de ListBox, Command button et TextBox.
Apparemment, il n'y a pas de propriété "value" pour ctr.
le g0eland
-----Message d'origine----- Bonjour Une façon de procéder : Dim ctr As Control For Each ctr in userform1.controls If typeof ctr is msforms.Listbox then 'là tu fais ce que tu veux sur tes contrôles - incluant un test sur son nom
si nécessaire : ctr.Name End if Next ctr
Cordialement
"le_g0eland" a écrit dans le message de
news:bd1e01c47a07$b1fe9db0$ Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ....
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
.
Modifie la ligne Dim ctr As Control en
Dim ctr
Et ensuite adapte la ligne
If TypeOf ctr Is MSForms.ComboBox
en fonction du type de contrôle à traiter
Cordialement
Pascal
"le_g0eland" <anonymous@discussions.microsoft.com> a écrit dans le message
de news:c2b401c47a2b$ffaa26a0$a401280a@phx.gbl...
merci pour la suggestion de code.
ça marche bien ... à part que je n'arrive pas à modifier
le contenu des contrôles : il s'agit de ListBox, Command
button et TextBox.
Apparemment, il n'y a pas de propriété "value" pour ctr.
le g0eland
-----Message d'origine-----
Bonjour
Une façon de procéder :
Dim ctr As Control
For Each ctr in userform1.controls
If typeof ctr is msforms.Listbox then
'là tu fais ce que tu veux sur tes contrôles - incluant
un test sur son nom
si nécessaire : ctr.Name
End if
Next ctr
Cordialement
"le_g0eland" <le_g0eland@yahoo.fr> a écrit dans le
message de
news:bd1e01c47a07$b1fe9db0$a601280a@phx.gbl...
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une
variable ?
Je m'explique :
j'ai une liste de ListBox :
lbCanal1
lbCanal2
lbCanal3
....
Je souhaiterai remplir ces contrôles en utilisant une
variable entière i et une boucle For pour m'éviter d'avoir
à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une
erreur est générée (le nom du contrôle n'existant pas sous
la forme "lbCanal&i").
Et ensuite adapte la ligne If TypeOf ctr Is MSForms.ComboBox en fonction du type de contrôle à traiter
Cordialement Pascal
"le_g0eland" a écrit dans le message de news:c2b401c47a2b$ffaa26a0$
merci pour la suggestion de code. ça marche bien ... à part que je n'arrive pas à modifier le contenu des contrôles : il s'agit de ListBox, Command button et TextBox.
Apparemment, il n'y a pas de propriété "value" pour ctr.
le g0eland
-----Message d'origine----- Bonjour Une façon de procéder : Dim ctr As Control For Each ctr in userform1.controls If typeof ctr is msforms.Listbox then 'là tu fais ce que tu veux sur tes contrôles - incluant un test sur son nom
si nécessaire : ctr.Name End if Next ctr
Cordialement
"le_g0eland" a écrit dans le message de
news:bd1e01c47a07$b1fe9db0$ Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ....
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
.
michdenis
Désolé, j'ai omis les guillemets
Set LaList = Controls("lbLargeur" & CStr(A))
Salutations!
"le_g0eland" a écrit dans le message de news:c2aa01c47a2b$8f68a9c0$
Merci pour la suggestion mais en adaptant l'exemple à mon code (voir ci-dessous) la compilation détecte une erreur : lbLargeur est une variable non définie (puisqu'en fait il existe lbLargeur 1, lbLargeur 2, ... mais pas lbLargeur )
'-------------------------------- Dim A As Integer Dim LaList As MSForms.ListBox
For A = 1 To 3 Set LaList = Controls(lbLargeur & CStr(A))
With LaList .Value = LongueurStandard End With
Next
Set LaList = Nothing '--------------------------------
-----Message d'origine----- Bonjour le_g0eland,
Il y a aussi :
'-------------------------------------- Dim A as integer Dim LaList As MSForms.Label 'En supposant que tes contrôles "lbCanal" sont des "label"
For a = 1 to 3 Set LaList = Controls(lbCanal & cstr(a))
With LaList .Tout le code que tu veux produire à l'aide ' de l'objet LaList End With
Next
Set LaList = Nothing '--------------------------------------
Salutations!
"le_g0eland" a écrit dans le message de news:bd1e01c47a07$b1fe9db0$
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ....
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
V Le g0eland
.
Désolé, j'ai omis les guillemets
Set LaList = Controls("lbLargeur" & CStr(A))
Salutations!
"le_g0eland" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:c2aa01c47a2b$8f68a9c0$a401280a@phx.gbl...
Merci pour la suggestion mais en adaptant l'exemple à mon
code (voir ci-dessous) la compilation détecte une erreur :
lbLargeur est une variable non définie (puisqu'en fait il
existe lbLargeur 1, lbLargeur 2, ... mais pas lbLargeur )
'--------------------------------
Dim A As Integer
Dim LaList As MSForms.ListBox
For A = 1 To 3
Set LaList = Controls(lbLargeur & CStr(A))
With LaList
.Value = LongueurStandard
End With
Next
Set LaList = Nothing
'--------------------------------
-----Message d'origine-----
Bonjour le_g0eland,
Il y a aussi :
'--------------------------------------
Dim A as integer
Dim LaList As MSForms.Label
'En supposant que tes contrôles "lbCanal" sont
des "label"
For a = 1 to 3
Set LaList = Controls(lbCanal & cstr(a))
With LaList
.Tout le code que tu veux produire à l'aide
' de l'objet LaList
End With
Next
Set LaList = Nothing
'--------------------------------------
Salutations!
"le_g0eland" <le_g0eland@yahoo.fr> a écrit dans le
message de news:bd1e01c47a07$b1fe9db0$a601280a@phx.gbl...
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une
variable ?
Je m'explique :
j'ai une liste de ListBox :
lbCanal1
lbCanal2
lbCanal3
....
Je souhaiterai remplir ces contrôles en utilisant une
variable entière i et une boucle For pour m'éviter d'avoir
à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une
erreur est générée (le nom du contrôle n'existant pas sous
la forme "lbCanal&i").
"le_g0eland" a écrit dans le message de news:c2aa01c47a2b$8f68a9c0$
Merci pour la suggestion mais en adaptant l'exemple à mon code (voir ci-dessous) la compilation détecte une erreur : lbLargeur est une variable non définie (puisqu'en fait il existe lbLargeur 1, lbLargeur 2, ... mais pas lbLargeur )
'-------------------------------- Dim A As Integer Dim LaList As MSForms.ListBox
For A = 1 To 3 Set LaList = Controls(lbLargeur & CStr(A))
With LaList .Value = LongueurStandard End With
Next
Set LaList = Nothing '--------------------------------
-----Message d'origine----- Bonjour le_g0eland,
Il y a aussi :
'-------------------------------------- Dim A as integer Dim LaList As MSForms.Label 'En supposant que tes contrôles "lbCanal" sont des "label"
For a = 1 to 3 Set LaList = Controls(lbCanal & cstr(a))
With LaList .Tout le code que tu veux produire à l'aide ' de l'objet LaList End With
Next
Set LaList = Nothing '--------------------------------------
Salutations!
"le_g0eland" a écrit dans le message de news:bd1e01c47a07$b1fe9db0$
Salut à tous,
Est-il possible d'appeler un contrôle en utilisant une variable ?
Je m'explique : j'ai une liste de ListBox : lbCanal1 lbCanal2 lbCanal3 ....
Je souhaiterai remplir ces contrôles en utilisant une variable entière i et une boucle For pour m'éviter d'avoir à remplir les contrôles 1 par 1.
A priori ça ne parche pas car lors de la compil, une erreur est générée (le nom du contrôle n'existant pas sous la forme "lbCanal&i").
