Discussion :

[jppouma]

Bonjour la communauté,
J'ai bien cherché dans les forums, mais je n'ai pas trouvé ma réponse.
J'explique :
J'ai dans une feuille excel des listbox (8 en tout) qui commence toutes par le même préfixe ( en l’occurrence" Liste_OP_").
A l'ouverture de la feuille je souhaite rendre toutes ces listbox invisibles.
Hormis le fait de toutes les passer en revue une par une à l'activation de la feuille et de mettre visible à faux, je me posais la question d'une boucle qui les passe en revue et qui ferait la même chose.
Du style :

Code :

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

1
2
3
For i = 1 to 8
     Me.Liste_OP_ & "nomdemaliste(i)".Visible = False ' avec nomdemaliste qui change pour chaque i (les différents noms pourraient se trouver dans un tableau de valeur par exemple...)
Next i

D'ou ma question : Peut-on remplacer le nom d'un control (listbox, textbox...) par une variable?
Merci pour vos idées et peut-être solutions...
jppouma.

[riaolle]

Bonjour,

Attention, lorqu'on utilise une variable, on ne met pas de " ". Exemple :

Code :

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

1
2
3
4
Dim maVariable As Integer
maVariable = 5
MsgBox maVariable     'renvoie 5
MsgBox "maVariable"  'renvoie maVariable

Donc ta boucle devrait être sous la forme :

Code :

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

1
2
3
For i = 1 to 8
    Me.Liste_OP_ & nomdemaliste(i).Visible = False  
Next i

[antonysansh]

Bonjour,

Pour acceder aux controls d'un UF via leurs noms (propriété Name), il faut utiliser la syntaxe suivante :

Code :

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

UserForm.Controls("NomduControl")

Par exemple :

Code :

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

UserForm1.Controls("ListBox1")

Donc pour agir avec une boucle sur plusieurs controls, je commencerais pas les lister dans une chaine de caractères ensuite convertie en tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Explicit
 
Private Const tabCtrl = "ListBox1//ListBox3"
 
Private Sub CommandButton1_Click()
    Dim i&, t$(): t = Split(tabCtrl, "//")
    For i = LBound(t) To UBound(t)
        Me.Controls(t(i)).Visible = Not Me.Controls(t(i)).Visible
    Next i
End Sub

Cette procédure va afficher ou masquer les ListBox nommées ListBox1 et ListBox3 sur clic du bouton nommé CommandButton1.

[parmi]

Bonjour,

Si les listbox sont sur une feuille (et non pas un Userform), la syntaxe est différente.
Il faudrait aussi savoir de quel type de listbox il s'agit... formulaire ou ActiveX

[jppouma]

Merci à tous pour vos réponses...

Parmi, effectivement mes listbox sont sur une feuille et non pas dans un UserForm.
Et pour le coup les listbox que j'ai créées sont du style formulaire (et j'avoue que la différence entre les 2 formats - formulaire ou ActiveX, m'échappe quel que peu !)
Voila si tu as une idée sur le sujet, je suis preneur.

Antony, j'aurai besoin d’éclaircissements sur, d'une part la déclaration de constante (pourquoi les 2 slash "//"? ), et d'autre part sur les déclarations des variables i& et t$ (la aussi je suis perplexe sur l'écriture de cette déclaration !!!).

Pour tout vous dire je suis loin d'être un expert en VBA. Je travail plutôt sur le développement de bases 4D, et les syntaxes sont loin d'être les mêmes... ce qui explique peut-être cela!!!

Merci en tout cas pour vos aides précieuses.

jppouma

[riaolle]

Bonjour,

déclarations des variables i& et t$ (la aussi je suis perplexe sur l'écriture de cette déclaration !!!).

C'est une façon abrégée de déclarer les variables, les 2 lignes suivantes sont équivalentes :

Code :

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

1
2
Dim i&
Dim i As Long

Pour plus d'infos, voir : http://silkyroad.developpez.com/VBA/LesVariables/

la déclaration de constante (pourquoi les 2 slash "//"?

C'est pour utiliser la fonction Split : https://msdn.microsoft.com/en-us/lib...=vs.90%29.aspx
Antony aurait pu utiliser d'autres signes (un seul / ou une virgule ou...). C'est un repère entre 2 noms de listbox. Ensuite avec la fonction Split, on peut découper la chaine de caractère par rapport à se repère.

Code :

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

1
2
Split("ListBox1//ListBox2", "//")(0)       'renvoie ListBox1
Split("ListBox1//ListBox2", "//")(1)       'renvoie ListBox2