Microsoft 365 Ajout dans listbox jusqu'à la dernière ligne

  • Initiateur de la discussion Initiateur de la discussion Koko74
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Koko74

XLDnaute Nouveau
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 !

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 🙂
 
Solution
Bonjour,

ListBox1.List attend un tableau de valeur ( au sens array) et non un tableau au sens range

a priori :

VB:
.../...
Set S = Sheets("BDD")
lastLig& = S.Range(Cells(50000, 1), Cells(50000, 1)).End(xlUp).Row
  UserForm1.ListBox1.List = S.Range(Cells(1, 1), Cells(lastLig&, 8)).Value
UserForm1.Show

A+
Bonjour,

ListBox1.List attend un tableau de valeur ( au sens array) et non un tableau au sens range

a priori :

VB:
.../...
Set S = Sheets("BDD")
lastLig& = S.Range(Cells(50000, 1), Cells(50000, 1)).End(xlUp).Row
  UserForm1.ListBox1.List = S.Range(Cells(1, 1), Cells(lastLig&, 8)).Value
UserForm1.Show

A+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
4
Affichages
177
Réponses
10
Affichages
799
Réponses
3
Affichages
665
Retour