Comment tranférer une valeur d'une listbox (userform) à une cellule de worksheet?

Bonjour,
Je suis débutant en VB... et après avoir cherché en vain sur le blog, et perdu bcp de temps je voudrais implorer votre aide...

le problème: je fais une sélection d'article dans une listbox de ma userform (c'est beau le franglais...)
Je veux transférer cette valeur dans une cellule de ma feuille.
Cela fonctionne avec

Code:

---

[K14] = ListBox2.Value

---

Seulement, comme la ligne ou remettre la valeur est fonction de la ligne d'où j'ai appelé la userform, que je mets dans:

Code:

---

vLigne = ActiveCell.Row

---

J'ai essayé plusieurs choses sans succès:

Code:

---

1 2	Cells(K, & vLigne) = ListBox2.Value [K & vLigne] = ListBox2.Value

---

Merci!

Bonjour

Code:

---

1 2 3 4 5

For I = 0 to Listbox2.ListCount - 1 If Listbox2.selected(I) = true then Worksheets("LaFeuilleOuSeTrouveLaCellule").Cells(x, y).value = Listbox2.List(I, 0) End if Next I

---

Avec x le numéro de la ligne ou se trouve ta cellule et y le numéro de la colonne ou se trouve ta cellule.
Si tu veux écrire dans la cellule K14, c'est Cells(14, 11).

Tu utiliser des variables pour déterminer l'emplacement de ta cellule.

Par exemple, tu peux utiliser

Code:

---

vLigne = ActiveCell.Row

---

et

Code:

---

vColumn = ActiveCell.Column

---

Et tu auras

Code:

---

Cells(vLigne, vColumn)

---

Cdlt

Merci, je suis sorti d'affaire grâce à vous
:D

Un tout grand merci et félicitations pour ce blog!
A bientôt peut-être???
:mouarf: