Zone de liste dans un UserForm

[Filoo]

Salut à toi Forum

Voici mon souci du jour .......

J'aimerais faire apparaitre dans un UserForm une zone de liste (ListBox)... ca c'est OK la zone apparait .... mais ya pas de liste. Je ne vois pas où je dois lui définir la zone de liste.

Au début j'avais pensé à l'endroit suivant :
Sub ListBox1_Click ()
Qui pour moi ce traduit par "Quand l'utilisateur click dans la zone de liste" , mais ca veut pas..... ou je l'ai pas fait correctement .

Par ailleurs j'ai un autre souci (je suis très sioucieux aujourd'hui), toujours
avec mes UserForm , lorsque l'utilisateur click sur la petite croix en haut à gauche ('fermer la fenetre') , cela a pour effet de passer à la suite du programme comme si de rien n'était..... quelle est le nom de cette 'fonction' afin de pouvoir soit la désactiver ( obligé l'utilisateur de se servir des boutons que JE lui propose, à savoir OK ou Annuler), soit de lui coller un lien...

Par avance merci de votre aide (qui fait chuter les ventes d'Aspro ;-) )

 

[Arnaud]

salut,

alors pour le listBox tu peut par exemple utiliser l'évènement d'initilisation de ton Usf
ex:
Private Sub UserForm_Initialize()
ListBox1.AddItem "titi"
ListBox1.AddItem "toto"
ListBox1.AddItem "tutu"
End Sub

et pour la croix regarde ici
http://www.excel-downloads.com/html/French/forum/messages/1_103432_103432.htm

 

[Filoo]

Merci du coup de main Arnaud ,

Je suppose que si je souhaite afficher dans cette liste le contenu des cellules J2 à J200 il faut que je remplace "titi" par Range("J2:J200")....

Je m'en vais de ce pas essayé mon nouvel outil

Merci à toi et à cet XLent Forum!

 

[ChuBaKa]

Salut Filoo,

tu peux également utiliser le champs "Rowsource" de ta ListBox si ta liste se trouve sur une feuille.
Ex définir le Rowsource comme sui : Feuil1!J1:J12 si tes données se trouve sur la feuil1 colonne J ligne 1 à 12.

 

[Filoo]

en renseignant dans le champ Rowsource les infos de la manière suivante:
Feuil7!J2:J202 , j'obtiens le message d'erreur suivant :
"Impossible de définir la propriété RowSource. Valeur de propriété non valide "

J'ai bien essayé avec de " " et des 'Feuil7' ... mais rien n'y a fait

Je n'ai pas encore eu le temps d'essyé la proposition d'Arnaud

Merci à tous

 

[Arnaud]

re,

la technique de ChuBaKa est effectivement plus pratique dans ton cas.

cela devrais te donner un truc du style :

ListBox1.RowSource = "Feuil1!A1:Feuil1!A10"

 

[ChuBaKa]

Je viens de faire le test et pas de problème, cela fonctionne bien.

Feuil1 ou Feul7 doit être une feuille éxistante dans le fichier. ta feuille est bien crée ?

la synthaxe que je viens de tester est la suivante : Feuil1!B1:B5
crée un nouveau fichier, crée un Userform puis un Listbox et copie cette ligne de code dans le Rowsource.
Défini queques valeur colonne B1 à B5.
Cela doit fonctionner.

 

[Filoo]

Je crois avoir compris pourquoi ca voulait pas ChuBaKa
En faiot j'ai essayé de remplir la case dans la fenêtre des Propriété de ma ListBox ..... alors qu'apparement je devais insérérer ces infos dans mon code.

A partir de là je devrais m'en sortir . Merci à tous et bon week-end!

PS:a tout hasard est-tu le Chub qui aurait été à l'Enise début 2000?.....

 

[Filoo]

Bouhouhou .... :-(

Je n'y arrive toujours pas..... je ne vois pas où insérer <<ListBox1.RowSource = "Feuil1!A1:Feuil1!A10">> .

Il m'avait parru logique de l'insérer dans <Privatesub ListBox1_click ()>, mais rien n'y fait , toujours pas de liste dans ma ListBox. existe-t-il une 'fonction' du genre <Initialisation de l'userform> ou de la ListBox ?

Merci encore........

 

[Filoo]

c OK , en fait il faut utiliser

Private Sub UserForm_Initialize()

ListBox1.AddItem = "Feuil1!A1:Feuil1!A10"

End Sub




http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=103974&t=103968

Arnaud m'avait déjà donné un coup de main à ce sujet .......
"quand on a pas de tête il faut avoir des jambes" parait-il mais en VBA les jambes ne servent pas à grand choses..... à mon grand regret 🙂

dsl pour le dérangement et bonne journée à tous