Discussion :

[mauriceguillier]

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

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

[babaothe]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Bugzy1963]

DANs le même sens que Babaothe

Tu devrais utiliser un combobox.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Combobox1.additem "ALLO"

le combobox s'ajuste tout seul.

salut

[mauriceguillier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Cordialement,
Maurice