[Resolu] Comment faire une boucle sur des listboxs dans une feuille ?

[Paritec]

Bonjour à tous,
alors je cherche à faire une boucle sur des listboxs qui sont sur une feuille et autant dans un userform je le fait tout le temps cela marche avec un exemple ci-dessous :

For i = 1 To 5
        Controls("Listbox" & i).MultiSelect = 1
    Next i

mais avec des listbox sur une feuille là ??? je n'arrive pas à trouver la syntaxe correcte !!!!
dans l'attente de vos réponses
a+
papou🙂

 

[Robert]

Re : Comment faire une boucle sur des listboxs dans une feuille ?

Bonjour Papou, bonjour le forum,

Essaie comme ça :

Sub Macro1()
For x = 1 To 5
    Sheets("Feuil1").Shapes("Listbox" & x).Select
    Selection.Object.MultiSelect = 1
Next x
End Sub

Je n'arrive pas à le faire sans sélectionner...

 

[Paritec]

Re : Comment faire une boucle sur des listboxs dans une feuille ?

Bonjour Robert🙂 le forum
bon le select est un peu gênant mais déjà je peux avancer je te remercie beaucoup
a+
papou🙂