RowSource par "Cells"

[IFFIC]

Bonsoir à tous

J'ai besoin de définir la ligne de (x) dans l'exemple ci-dessous
puisque j'alimente une ListBox style "Option" avec une quantité
de lignes très variable!

Private Sub UserForm_Initialize()
UserForm1.ListBox1.ColumnWidths = "370;40;30"
-----------------------------------------------
UserForm1.ListBox1.RowSource = "a2:c(x)"
--------------------------------------------
Donc à remplacer par un truc du genre:
--------------------------------------------------
= Worksheets("LISTE").Range(Cells(2, 1), Cells(x, 3))
----------------------------------------------------
End Sub

J'ai tenté vachement de trucs inavouables, en vain.
Un petit coup de main serait le bien-venu.

Merci d'avance pour votre aide.

IFFIC

 

[Bebere]

Re : RowSource par "Cells"

bonjour Iffic
essaye le code suivant

Dim Plage as string
Plage=Worksheets("LISTE").Range(Cells(2, 1), Cells(cells(65536,1).end(xlup).row, 3)).Address
UserForm1.ListBox1.RowSource = "LISTE!" & Plage

à bientôt

 

[IFFIC]

Re : RowSource par "Cells"

Bonsoir Bebere

Merci beaucoup

Je n'étais vraiment pas dans le bon chemin.

C'est super, cela tourne un max même avec + de 7500 lignes

Bonne soirée à toi.

Bonne soirée aussi; à ceux qui passeront par là.

IFFIC