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

XL 2013 taille de la liste du combobox limitée à 10 lignes

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 !

Jojo973

XLDnaute Occasionnel
Supporter XLD
Bonjour à tous,
j'alimente un combobox avec le code suivant :

Code:
With Sheets("BDD1")
    Plage = .Range("A2:A" & .Range("A65536").End(xlUp).Row).Address
End With
ComboBox1.RowSource = "BDD1!" & Plage

Merci au passage à Pierre Jean pour le perfectionnement du code.

Mais seulement 10 Items apparaissent dans la liste

J'ai laissé "listrow" dans les propriétés, à 8 et testé plusieurs valeurs mais rien n'a changé.

J'ai aussi essayé de mettre le code en "dur"
Code:
With Sheets("BDD1")
    Plage = .Range("A2:A20").Address
End With
ComboBox1.RowSource = "BDD1!" & Plage

Mais rien non plus.

Si vous avez une idée, elle sera la bienvenue.
😎
 
Re : taille de la liste du combobox limitée à 10 lignes

Bonjour cyrikou, le forum,
Il faut modifier le nombre de lignes de la propriété « ListRows ». Voir exemple ci-joint (UserForm1 – Combobox1 - ListRows à 20).
Cordialement,
Bernard
 

Pièces jointes

Re : taille de la liste du combobox limitée à 10 lignes

Merci pour la réponse et le fichier, cela fonctionne bien, mais pas dans mon fichier de travail, je ne sais vraiment pas pourquoi😕😕
 
Re : taille de la liste du combobox limitée à 10 lignes

Finalement j'utilise additem et là plus de soucis 😉

voici le code pour ceux que cela peut interesser :

Code:
Dim ligne As Long
Me.ComboBox1.RowSource = "" 
ligne = 2
While Sheets("BDD1").Cells(ligne, 33) <> ""
Me.ComboBox1.AddItem (Sheets("BDD1").Cells(ligne, 33))
ligne = ligne + 1
Wend
 
- 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

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