ListBox avec variable comme numéro

Bonjour,
J'ai 3 ListBox dans une feuille
La variable i peut donc avoir la valeur 1, 2 et 3
On peut écrire par exemple : Me.ListBox1.Visible = True - Aucun problème !
Mais selon la valeur de i donné en amont dans le code je n'arrive pas à écrire par exemple :

Code:

---

Me("ListBox" & i).Visible = True

---

Quelque soit ma façon d'écrire cette ligne (avec Sheets..., ActiveSheet ...) j'ai une erreur :

Citation:

---

erreur d'exécution 438 - Propriété ou méthode non gérée par cette objet

---

Question :
Comment puis-je écrire ma ligne de code pour que, selon la valeur de la variable i, la ListBox recherché soit visible ?
Par avance merci

Bonjour,

Je ne sais pas si c'est la meilleure solution mais tu peux essayer en faisant un select case de i:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Select Case i Case 1 Me.ListBox1.Visible = True Me.ListBox2.Visible = False Me.ListBox3.Visible = False Case 2 Me.ListBox1.Visible = False Me.ListBox2.Visible = True Me.ListBox3.Visible = False Case 3 Me.ListBox1.Visible = False Me.ListBox2.Visible = False Me.ListBox3.Visible = True End Select

---

Bonsoir Westood5
Merci pour cette réponse rapide. Malheureusement, j'y avais pensé à cette solution mais cela va m'obliger à écrire mon code pour chaque cas de la variable i.
Cette fameuse écriture qui me donne des soucis Me("ListBox" & i) je la retrouve dans plusieurs lignes de code en aval. tout le processus dépend de cette écriture.
Je ne voudrais qu'un seul code qui s'adapte en fonction de la variable i. Et "Visible" n'est donné que pour l'exemple et les explications. Si j'arrive grâce à vos aides à écrire cette ligne de code sans avoir d'affichage d'erreur alors je pourrai faire le reste.
Merci quand même d'avoir pris le temps de répondre.

Bonjour,
Alors la ligne de code ci-dessous ne peut fonctionner

Code:

---

Me("ListBox" & i).Visible = True

---

Me représente l'objet feuille dans cet exemple donc il ne peut y avoir une indexation puisque ce n'est pas une collection et Me ne peut être utiliser que dans un module feuille.

La ligne pourrait être par exemple

Code:

---

Me.Shapes.Range(Array("ListBox1")).Visible = True

---

ou encore

Code:

---

Me.OLEObjects("ListBox1").Visible = True

---

Donc avec la variable I par exemple

Code:

---

Me.Shapes.Range(Array("ListBox" & i)).Visible = True

---

Dans un module standard, on remplacera l'objet Me par l'élément de la collection Worksheets correspondant
Exemple

Code:

---

Worksheets("Feuil2").Shapes.Range(Array("ListBox" & i)).Visible = True

---

Ah mince j'ai lu trop vite et je n'a pas vu que c'était dans un feuille non plus...

Sinon, j'ai pensé à un petit truc mais je ne sais pas si c'est optimum et plus long que la solution de Philippe Tulliez.

C'est de passer par un sub intermédiaire.

Voici l'idée:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim lst As ComboBox   Sub Principal()   Dim i As Byte   i = 1   Slection_ListBox i   lst.Visible = False   End Sub   Private Sub Slection_ListBox(ByVal i As Byte)   Select Case i Case 1 Set lst = liste1 Case 2 Set lst = liste2 End Select   End Sub

---

ok merci pour toutes ces infos. Je vais reprendre cela plus tard car là j'en ai plein la tête ... il faut que je reprenne cela à tête reposée. En attendant merci à vous tous.

bonjour,
En fait j'ai complément tout repris à zéro ce matin car les propositions ne fonctionnaient pas. J'avais toujours un message d'erreur. Avec ce nouveau code, je n'ai plus ce genre de problème. J'initialise les ListBox indépendamment et cette autre méthode de code est plus appropriée. Merci à vous pour les pistes données et les diverses infos récoltées. Je mets néanmoins mon fichier en pièce jointe pour celui que cela intéresse. Mais comme vous êtes plus qualifiés que moi je ne sais si cela intéressera quelqu'un. Bonne continuation