Help... Copier une listbox vers une feuille

[Francois321123]

Bonjour,

Voila, j'essaie depuis un bon bout de temps de copier le contenu d'une listbox (qui peux contenir jusqu'a 500 ligne (item?)) vers des cellules dans excel.. c tout simple mais j'arrive pas....
en gros, c'est juste reproduire la Listbox dans excel......

help..

Merci pour tout aide...
Francois

 

[Guest]

Re : Help... Copier une listbox vers une feuille

Bonjour voici un élément de réponse:

dim i as integer
Dim c As Range
Set c=LaCelluleDeDepart
For i=0 to ListBox1.Listcount-1
   c.offset(i)=listbox1.list(i)
Next

 

[Francois321123]

Re : Help... Copier une listbox vers une feuille

MERCI!!! ca marche!!! 🙂

 

[Hervé]

Re : Help... Copier une listbox vers une feuille

bonjour 🙂

sans boucle :

Range("a1").Resize(ListBox1.ListCount, 1) = ListBox1.List

salut

 

[florentsarrazy]

Re : Help... Copier une listbox vers une feuille

Bonjour,

J'ai le même soucis, que met tu comme exemple pour c dans Set c=LaCelluleDeDepart

j'arrive pas lui à lui spécifier une cellule de destination qui marche....

et je veux coller seulement dans la feuille excel la valeur que je selectionne dans la listbox. Ce code là ma copie tout :

With ListBox1
If .ListCount = 0 Then Exit Sub
Range("g27").Resize(.ListCount, 1) = .List
End With

merci !

 

[Guest]

Re : Help... Copier une listbox vers une feuille

Bonjour
Avec ceci si la listBox n'a qu'une colonne

if ListBox1.ListIndex>-1 then Range("g27").ListBox1.Value

A bientôt

 

[florentsarrazy]

Re : Help... Copier une listbox vers une feuille

Ah merci, j'essaye (oui ma listbox n'a qu'une colonne)!

Je tape donc ça :

With ListBox1
If ListBox1.ListIndex > -1 Then Range("g27").ListBox1.Value
end with

et quand je clique sur une valeur de ma listbox....rien ne s'affiche en g27.

J'ai raté quoi ?

Merci de ta réponse 🙂

 

[Guest]

Re : Help... Copier une listbox vers une feuille

Re bonjour,

ci dessous un fichier exemple.

A+

 

[florentsarrazy]

Re : Help... Copier une listbox vers une feuille

Ah merci je viens de comprendre ou est le soucis...

J'ai essayé ton code , ca marche impec avec une listbox dans un Userform.

Mais la mienne est créee directement sur la feuille excel via "boite à outils" donc le code marche pas. 😕

Y a t il une solution pour éviter le Userform pas trés pratique et simplement afficher ma valeur en cliquant dans ma listbox sur ma feuille excel ?

Merci du temps que tu me consacres 🙂