hauteur d'une listBox pour montrer l'ensemble des items

Bonjour à tous,

Je ne sais ce que je n'ai pas bien fait mais mon message précédent ne semble pas être passé :(.

Je recommence donc en vous priant de bien vouloir excuser mon insistance au cas où les deux messages passeraient :oops:

Je cherche donc le code possible pour régler la hauteur d'une listbox en fonction du nombre d'éléments à insérer, sachant que ce nombre d'éléments est variable.

Je vous remercie pour votre aide et vous souhaite le même beau soleil qui nous est revenu cet après-midi.

Cordialement,
Maurice GUILLIER

salut

sur quoi est cette listbox ?
de quelle type est-elle ? (une colonne ou plusieurs ?)
le nombre des articles qu'elle doit contenir ne risque-t-il pas d'être suffisamment élevé pour que cette listbox, une fois ainsi "déployée", ne puisse s'afficher entièrement ? (c'est pour cela, précisément, que MicroSoft a choisi un affichage doté d'ascenseur ! ... et tu prends des risques ...)
Etc, etc .... ?
quoi qu'il en soit et en admettant que cette listbox s'appelle listbox2, qu'elle n'ait qu'une colonne et qu'elle soit sur un userform :
essaye ceci :

Code:

---

ListBox2.Height = ListBox2.Font.Size * (ListBox2.ListCount) * 1.25

---

DANs le même sens que Babaothe

Tu devrais utiliser un combobox.

Ainsi à chaque fois que tu ajoute un élément

Code:

---

Combobox1.additem "ALLO"

---

le combobox s'ajuste tout seul.

salut

Bonjour à vous deux,

Tout d'abord, je vous prie d'excuser l'insuffisance des informations données dans ma demande.

Comme l'a deviné babaothe, il s'agit bien d'une listbox sur une colonne et sur un userform. Le nombre d'article, même s'il est variable ne devrait pas dépasser 28.

Je vais donc essayer les deux propositions sur mon userform. Toutefois, pour mieux expliquer ma demande, je récupère les données à présenter dans la listbox à partir d'une colonne feuille excel avec le code suivant. En effet, cette liste d'item est très variable, en nombre et en nom utilisés :

Code:

---

1 2 3 4 5 6

Private Sub UserForm_Initialize() Dim DerCell As String ThisWorkbook.Sheets("Feuil1").Select DerCell = Range("A1").End(xlDown).Address ListBox1.RowSource = "A1:" & DerCell End Sub

---

En tout cas, déjà merci pour le déblocage que vous me permettez ; ensuite, je vous dirais la formule choisie... pour le cas où je réussirais à finaliser. Sinon, je reviens vers vous :lol:

Cordialement,
Maurice