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

[cyrikou]

Bonjour à tous,
j'alimente un combobox avec le code suivant :

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"

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.

 

[bbb38]

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

 

[cyrikou]

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

 

[cyrikou]

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 :

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