listbox et bouton

Range("C20") = listbox1.Text ??

Julien

"Zolive" <http://cerbermail.com/?c29gaUh3kv> a écrit dans le message de
news: 4191e7ba$0$8716$afc38c87@news.easynet.fr...

Bonjour à tous,

Voila j'ai crée une listbox a partir des cellules b4:b17 ds une feuille et
j'ai un bouton auquel je voudrai associer la procedure suivante:

je souhaiterai que lorsque l'on clique sur le bouton, soit copié ds la
cellule c20 le contenu de la cellule situé a gauche de la cellule
selectionné ds la listbox...... (ex cellule b5 selectionné via la listbox
et lors de l'action sur le bouton, copie de la cellule A5 ds C20.... )

j'éspère avoir été clair,... sinon n'hésitez pas...


Merci beaucoup de votre aide....

Zolive

Range("C20") = listbox1.Text ??

Julien

Bonjour Julien et merci de ta réponse, mais

ce n'ai pas le contenu de la listbox choisi que je veux faire apparaitre,
mais le contenu de la cellule qui se trouve directement a gauche de la liste
source: ex

col A col B
1 a1 b1
2 a2 b2
3 a3 b3
4 a4 b4

valeur de la propriete listfillrange de ma listbox est b1:b4
donc,
je voudrai que qd je choisi, par ex, b3 ds ma listbox, je clique sur le
boutonet la valeur a3 va se placer ds "c20"...

désolé cela doit etre trivial, mais suis une quiche....


Merci encore...

Voilà avec une liste nommé cbx1 :

Private Sub cbx1_Change()
Cells(20, 3) = Cells(cbx1.ListIndex + 1, 1)
End Sub

Julien




"Zolive" <http://cerbermail.com/?c29gaUh3kv> a écrit dans le message de
news: 4192278f$0$6868$afc38c87@news.easynet.fr...

Range("C20") = listbox1.Text ??

Julien

Bonjour Julien et merci de ta réponse, mais

ce n'ai pas le contenu de la listbox choisi que je veux faire apparaitre,
mais le contenu de la cellule qui se trouve directement a gauche de la
liste
source: ex

col A col B
1 a1 b1
2 a2 b2
3 a3 b3
4 a4 b4

valeur de la propriete listfillrange de ma listbox est b1:b4
donc,
je voudrai que qd je choisi, par ex, b3 ds ma listbox, je clique sur le
boutonet la valeur a3 va se placer ds "c20"...

désolé cela doit etre trivial, mais suis une quiche....


Merci encore...

Private Sub cbx1_Change()
Cells(20, 3) = Cells(cbx1.ListIndex + 1, 1)
End Sub

Génial... Merci Julien... (en plus j'ai compris comment ca marche... c'est
pas gagné pour moi je sais..;) )