Bonjour à tous,
Je fais appel à vous car je galère avec les listbox ... Cela ne doit pas être bien compliqué mais je n'arrive pas à ajouter 8 colonnes avec un nombre de lignes variable dans une listbox.
J'ai le code suivant mais il me met la méthode range de la classe worskheet à échoué et je ne comprends pas pourquoi !
D'avance merci
Je fais appel à vous car je galère avec les listbox ... Cela ne doit pas être bien compliqué mais je n'arrive pas à ajouter 8 colonnes avec un nombre de lignes variable dans une listbox.
J'ai le code suivant mais il me met la méthode range de la classe worskheet à échoué et je ne comprends pas pourquoi !
VB:
Sub Ouvre_Usf1()
Dim S As Worksheet
Dim R As Range
Dim lastLig&
Dim var
Set S = Sheets("BDD")
lastLig& = S.Range(Cells(50000, 1), Cells(50000, 1)).End(xlUp).Row
Set R = S.Range(Cells(1, 1), Cells(lastLig&, 8))
var = R
UserForm1.ListBox1.List() = var
UserForm1.Show
End Sub
D'avance merci