Discussion :

[TchiotPols]

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 :

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

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

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

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

[Westood5]

Bonjour,

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

Code :

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

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

[TchiotPols]

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.

[Philippe Tulliez]

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

Code :

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

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 :

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

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

ou encore

Code :

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

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

Donc avec la variable I par exemple

Code :

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

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 :

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

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

[Westood5]

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 :

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

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

[TchiotPols]

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.

[TchiotPols]

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