Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Limite d'une listbox

J

Jimmy

Guest
Bonsoir a tous ,


J'ai un petit probleme au niveau d'une listbox pour laquelle j'aimerais une mise a jour automatique a l'ouverture de mon Userform (Private Sub UserForm_Initialize ) , probleme est qu'a partir du moment où je depasse les 25 items , je ne peux plus passer par la methodes ==> ( aparemment )

DerLigne = Sheets(11).Range("D65536").End(xlUp).Row
Mes items = Sheets(11).Range("D2" & DerLigne).Address
ListBox1.RowSource = "Feuil11!" & Mes items

Quelqu'un pourrais t il m 'aider a ce sujet ?


Un grand merci au Forum !
 
J

Jimmy

Guest
Tout d'abord merci , mais en fait ds ma macro mes items se nomment "Malist" et j'ai fait l'essais avec 25 items et 26 et lors que je met le 26 eme il n'apparait pas .
C'est pourquoi je me posais la question si la methode ".End(xlUp).Row" n'avait pas ses limites ???

Encore merci
Jimmy
 
L

Lord Nelson

Guest
Re Jimmy,

Essaie ceci :

ListBox1.RowSource = "Feuil1!D2" & Sheets("Feuil1").Range("D65536").End(xlUp).Row

Je l'ai testé sur une liste de 100 données sans pb.

A+
Horatio
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…