G
Goutedo
Guest
bonjour à tous.
désolé pour ce post un peu long mais il faut que j'explique bien les choses, car en plus je suis un gros débutant donc je ne sais pas vraiment bien expliquer
Alors j'ai un formulaire sur lequel se trouvent 11 ListBox nommées Manut, Manut1 ... .
Chacune de ses listbox a pour référence la même plage "A1:A23".
Le code ci-dessus est celui que j'utilise pour définir une listbox est le suivant (et ca marche bien)
With Sheets("Stocks").Range("A1")
Manut.rowsource = range(.cells,.end(xlDown).address(External:=true)
End With
Une solution serait de recopier 11 fois cette ligne en changeant le nom à chaque fois. Je cherche toutefois à alleger mon code en créant une boucle "for".
La logique voudrait que je définisse donc une variable.
Pourtant je n'arrive pas la définir afin qu'elle soit compatible avec la ligne ci-dessus.
Quelqu'un peut-il m'aider à réaliser cette boucle "FOR"?
Merci à tous ceux qui auront eu la sympathie de lire ce message.
et toute ma reconnaissance à ceux qui m'approcheront de la solution
désolé pour ce post un peu long mais il faut que j'explique bien les choses, car en plus je suis un gros débutant donc je ne sais pas vraiment bien expliquer
Alors j'ai un formulaire sur lequel se trouvent 11 ListBox nommées Manut, Manut1 ... .
Chacune de ses listbox a pour référence la même plage "A1:A23".
Le code ci-dessus est celui que j'utilise pour définir une listbox est le suivant (et ca marche bien)
With Sheets("Stocks").Range("A1")
Manut.rowsource = range(.cells,.end(xlDown).address(External:=true)
End With
Une solution serait de recopier 11 fois cette ligne en changeant le nom à chaque fois. Je cherche toutefois à alleger mon code en créant une boucle "for".
La logique voudrait que je définisse donc une variable.
Pourtant je n'arrive pas la définir afin qu'elle soit compatible avec la ligne ci-dessus.
Quelqu'un peut-il m'aider à réaliser cette boucle "FOR"?
Merci à tous ceux qui auront eu la sympathie de lire ce message.
et toute ma reconnaissance à ceux qui m'approcheront de la solution