listbox toute bête...

[Rhodan]

Bonjour tous,

j'ai beau regarder plusieurs anciens post, je n'arrive pas à créer une liste box dans un userform ki récupére les données une dans plage de cellule...

mes données à afficher dans la liste box se trouvent dans A6:A10
de la feuille récapitulatifnum du classeur suiviqualitécolorimètrie...
sous excel 97...

j'ai essayé plusieurs codes dont le meilleur me semble être celui-ci mais ma listbox reste vide..:

Private Sub ListBox1_Click()
ListBox1.VALUE = récapitulatifnum.xls! & Sheets(récapitulatifnum).Range("A6:A10").Address
End Sub

ou sinon :

Private Sub ListBox1_Click()
fiche.ListBox1.ListFillRange = "récapitulatifnum!A6:A10"
End Sub


merci

 

[romfret]

Salut !


C'est res simple fait un clik droit sur ta litbox clik sur propriété ensuite dans "rowsource" tu met tas source donc dans ton exemple :
------------récapitulatifnum!A6:A10 -----------------

Copie ce code dans rowsource tu devrai avoir le resultat voulu,
@+, romfret

 

[Rhodan]

ok ça marche

merci beaucoup,
j'avais bien dit que c'était bêtes


encore merci pour la rapidité de la réponse!

 

[Rhodan]

la suite logique...

Re bonjour,

euh maintenant je récupére comment le résultat après sélection dans la list box? (idem quand il y a une sélection multiple?

merci


(besion d'aide pour un TCD , ou graphdynamique sous 97, ...appellez Rhodan)...
ça au moins je sais faire!

 

[romfret]

re,

Exemple tu veux mettre le resultat de ta listbox dans la cellule A1 :

Range(A1) = listbox1.value

voila c'est tout simple , je te conseille de faie un bouton valider et de lui attribuer ce code?


@mic@lemement, romfret

Ps :moi c'est tout le contraire je connais rien au graph et je ne sais meme ce qu'est qu'un tcd !!!par contre le reste ...

 

[romfret]

re,


remplace mon code par celuila plutot

Cells(1,1).Value = ListBox1.Value
Si c'est la case A2 ca donnera :
Cells(1,2).Value = ListBox1.Value
si c'est la case B2 :
Cells(2,2).Value = ListBox1.Value
ETC ETC ...



@mic@lememnt, romfret