Extraire ListBox vers une feuille precise du meme classeur

[ced91300]

Bonjour, et que la nouvelle année 2017 soit remplie de bonheur à tous.

le bva ci-dessous fonctionne très bien, je souhaiterais la même chose, mais qui me le fasse dans une Feuille spécifique nommée "fiche" qui se trouve dans le même classeur.

Merci.
cordialement.

Cédric.

_____________________________________________________
Private Sub CommandButton2_Click()

Dim WkNouveau As Workbook, ShNouveau As Worksheet
Set WkNouveau = Workbooks.Add
Set ShNouveau = WkNouveau.Sheets(1)
ShNouveau.Name = "extraction"
With ShNouveau
.Cells(1, 1).Resize(ListBox1.ListCount, 29).Value = ListBox1.List
End With

End Sub
_____________________________________________________

 

[Papou-net]

Bonsoir Cédric,

Si j'ai bien compris ta demande, essaie comme ceci:

Private Sub CommandButton2_Click()

With Sheets("fiche")
.Cells(1, 1).Resize(ListBox1.ListCount, 29).Value = ListBox1.List
End With
End Sub

Cordialement.

 

[ced91300]

Bonsoir Cédric,

Si j'ai bien compris ta demande, essaie comme ceci:

Private Sub CommandButton2_Click()

With Sheets("fiche")
.Cells(1, 1).Resize(ListBox1.ListCount, 29).Value = ListBox1.List
End With
End Sub

Cordialement.

Bonjour Papou, et bonne année

Merci pour ta réponse, c'est exactement ce que je souhaitais, par contre j'ai une question supplémentaire, est-il possible (je suppose que oui) de pouvoir transposer chaque élément de la LisBox la ou ont le veut dans la feuille.

exemple : la ListBox : toto/lulu/tata/coco/

Mettre toto dans la cellule C2 de la feuille "fiche"
Mettre lulu dans la cellule A2 de la feuille "fiche"
Mettre tata dans la cellule B1 de la feuille "fiche"
Mettre tata dans la cellule B1 de la feuille "fiche"

Merci

Cordialement

Cédric

 

[Papou-net]

Bonjour Cédric, et meilleurs voeux également,

Pour répondre à ta dernière question, oui c'est possible.

Mais ce serait plus facile de te donner une solution en connaissant la structure exacte de ton classeur, avec une copie allégée et sans données confidentielles.

A te lire.

Cordialement.