1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Extraire ListBox vers une feuille precise du meme classeur

Discussion dans 'Forum Excel' démarrée par ced91300, 11 Janvier 2017.

  1. ced91300

    ced91300 XLDnaute Occasionnel

    Inscrit depuis le :
    22 Novembre 2008
    Messages :
    191
    "J'aime" reçus :
    0
    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
    _____________________________________________________
     
    Dernière édition: 11 Janvier 2017
  2. Papou-net

    Papou-net XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2007
    Messages :
    4784
    "J'aime" reçus :
    284
    Utilise:
    Excel 2010 (PC)
    Bonsoir Cédric,

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

    Code (Text):
    Private Sub CommandButton2_Click()

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

    ced91300 XLDnaute Occasionnel

    Inscrit depuis le :
    22 Novembre 2008
    Messages :
    191
    "J'aime" reçus :
    0
    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
     
  4. Papou-net

    Papou-net XLDnaute Barbatruc

    Inscrit depuis le :
    8 Mai 2007
    Messages :
    4784
    "J'aime" reçus :
    284
    Utilise:
    Excel 2010 (PC)
    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.
     

Partager cette page