Discussion :

[Guy7090]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

vLigne = ActiveCell.Row

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci!

[Nico Chg]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

vLigne = ActiveCell.Row

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

vColumn = ActiveCell.Column

Et tu auras

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(vLigne, vColumn)

Cdlt

[Guy7090]

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


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