UserForm Définir ListBox

Bonjour,
Je commence à travailler avec UserForm1.
Dans cette fenêtre, j'ai plusieurs textBox mais aussi une ListeBox1.

Bien qu'ayant regarder "le cours" de developpez sur les UserForm je n'y arrive pas.

Pour l'instant j'ai comme code

Citation:

---

Sub Test()

UserForm1.Show

End Sub

---

J'aimerai définir des données à ma ListBox1.J'ai vu qu'il fallait utiliser ListBox1.RowSource = "Feuil1!A3:A10" mais bien que mettant ce code après la ligne de code UserForm1.Show, celà ne marche pas.

Pourriez vous m'aider en me disant comment je dois faire pour afficher dans ma ListBox1 les données A3 à A10 de ma feuille 1 s'il vous plait. (un exemple bien détaillé me serait bien utile).


Cdlt

Il fallait la faire dans Usrform1_Initialize()
regarde du côte des évènements de ton userform

Ah c'est bon merci.
ça marche nikel :ccool:

Est-ce que tu sais comment faire pour que dans la listBox il affiche les valeurs mais sans les espaces ? (je m'explique : la ListboX récupère des prénoms mais lorsque je lance la macro, les noms s'affichent bien mais il y a beaucoup de vide derrière chaque prénom, j'ai donc une mini scroll bar sous ma listBox qui est strictement inutile.J'aimerai que celle ci disparaisse...)


Cdlt

Les espaces éventuels sont repris de ta source de données, donc de ta feuille (tu peux agir sur la source)
sinon tu peux augmenter la largeur de ta listebox

Dans ma feuille, la colonne qui gère les noms est au minimum pour qu'on voit le nom juste en entier.

Pourtant dans la ListBox je vois largement le nom + des espaces (avec une scroll bar)

Tu es sur que sur ta colonne il y a juste les noms ou nom+ des espaces. Pourtant tu peux avoir des espaces après tes noms; le fait de diminuer la largeur de ta colonne, ne supprime pas les espaces éventuels après chaque nom
à vérifier

Merci pour ta réponse.
J'ai bien vérifié et il n'y a pas d'espace derrière les noms :?

N'existe-t-il pas une manip à faire pour bloquer la largeur de la ListBox et qu'elle n'affiche pas de scrollbar en dessous ?


Cdlt

Personne ne connait la manip ?

Je me demande si ne faut pas modifier les caractéristiques de la Listbox.

mais c'est là. les propriétés de ta listbox (sauf que tu parlais d'espaces après chaque nom)

Citation:

---

les noms s'affichent bien mais il y a beaucoup de vide derrière chaque prénom

---

. tu règles les propriété de ta listbox

D'accord.Dsl pour le quiproquo.

Sais-tu qu'elle est la propriété exacte à modifier dans ma listbox ?


Cdlt

bonjour le fil le forum
as tu essaye en definisant la largeur de la colonne "ColumnWidths = "60""
j' ai mis 60 tu fais des essais avec un autre nombre!!!

un exemple tu mets tout dans initialize

Code:

---

1 2 3 4 5 6 7

Private Sub UserForm_Initialize() With ListBox1 .ColumnCount = 1 .ColumnWidths = "60" .RowSource = "Feuil1!A3:A10" End With End Sub

---

personnellement j'utilise pas rowsource aucune "souplesse" je prefere listbox.list

Bonjour,
Merci de te joindre à la conversation.
J'ai tenté celà et en modifiant la valeur mais celà ne change rien.
Bien que le mot fasse par exemple 7 caractères j'ai une scroll bar horizentale qui s'affiche sous ma listbox alors que les 7 caractères rentrent largement en longeur.
Donc la scrollbar ne sert à rien, sauf à afficher du vide qui est strictement inutile.

La scrollbar horizontale apparait même si tu agrandit la largeur de ta listbox?
qu'as tu dans ta ListBox1.RowSource?
je crois bien que ta ListBox1.RowSource comporte d'autre colonnes vides mais je peux me tromper

re bonjour tous..
je viens de faire des essais sous excel 2003 & 2007
en reduisant la largeur de la listbox. la scroolbar horizontale apparait seulement des qu'on voit plus les 2 derniers caracteres de la chaine la plus longue!!!
comme le dit mon ami mercatog combien de colonnes ????
fait un essai sur un fichier vierge sans toucher au proprietées de la listbox seulement en vba avec le code que je t'ais donne ca prend 5 minutes voir si pb... idem

Re,
J'ai bien qu'une seule colonne.
Le problème apparait tjs ....
Ci joint un fichier excel "bidon" pour vous montrer mon problème.

à toi, tu n'as pa lu ma première réponse

Citation:

---

sinon tu peux augmenter la largeur de ta listebox

---

ou la réponse de Latitia (que je salue de passage)

Citation:

---

en reduisant la largeur de la listbox. la scroolbar horizontale apparait seulement des qu'on voit plus les 2 derniers caracteres de la chaine la plus longue!!!

---

Bjr
je viens de voir ton fichier mais si tu change dans initialize comme l'as dit laetitia a titre d'exemple ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub UserForm_Initialize() With ListBox1 .ColumnCount = 1   'ici Tu remplaces 60 par 35 ça fonctionne du moins chez moi .ColumnWidths = "60" .RowSource = "Feuil1!A1:A3" End With End Sub

---

J'espère que ça iras A+

Re,
Merci Mercatog pour ta réponse.Mais la Listbox1 est très longue maintenant !!

Ce que je souhaite c'est que la Listbox1 fasse exactement ou un tout petit peu plus que le nombre de caractère.Dans ton fichier, la Listbox1 est très longue pour pas grand chose (et le problème est que si on commence à la raccourcir on a une scrollbar).

re le fil je viens de voir ton fichier le pb c'est agrandir ta listbox dans propriétees Width a 64 mini dans ton cas

.ColumnWidths = "60" est la largeur de la colonne est non de la listbox pas confondre!! ca peut pas marcher!!! on l'utilise en general pour une listbobox multicolonne on peut aussi modifier dans proprietees sans passer par initialize

Re j'ai oublié de remettre ton exemple de fichier modifier, il n'y a plus la scrollbar.

A+

YES !!!! Parfait merci bcp bcp.:ccool: