IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

VBA Excel : Transfert listbox vers Excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    95
    Détails du profil
    Informations personnelles :
    Localisation : France, Sarthe (Pays de la Loire)

    Informations forums :
    Inscription : Avril 2008
    Messages : 95
    Par défaut VBA Excel : Transfert listbox vers Excel
    Bonjour,

    je découvre les listebox et je galère...

    En fait, je recupère des données dans ma listbox, ça, ça ne pose pas de problème, il me les affiche dans mon formulaire. Cependant, je n'arrive pas à la transférer sur une feuille Excel.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     
    ...
    ListeTest.RowSource = ""
    For k = 0 To 29
        ListeTest.AddItem tabClassification(k)
    Next k
    ...
    Dans un premier temps j'ai essayé avec ce que j'ai trouvé sur http://silkyroad.developpez.com/VBA/ControlesUserForm/, j'ai donc fait
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
     
     
    Dim wbTemp As Excel.Workbook
    Dim feuil As Worksheet
    Dim i As Long
     
    Set wbkTp = RecupClasseur 'fct qui recupere le classeur actif
     
    Set feuil = wbkTp.ActiveSheet
     
    With ListeTest
            feuil.Range(Cells(1, 1), Cells(.ListCount, 1)) = .List
        End With
    Mais il m'affiche le message d'erreur :
    "Erreur de compilation :
    Membre de méthode ou de données introuvables"
    Tout en me surlignant la partie ".List"

    Du coup, ne comprenant pas trop le code que j'avais "betement" collé de la page internet, j'ai tenté ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    flM.Cells(25, 1) = ListeTest.List(1)
    Mais rien n'y change, j'ai toujours le meme message d'erreur, et il me surligne toujours le .List.

    Malheureusement, je ne trouve nulpart de la doc assez précise sur les listBox pour comprendre ce que c'est ce .List (qui d'ailleurs n'apparait pas quand je fais ListeTest. [ctrl + espace ] )

    J'espère que quelqu'un pourra m'aider,

    je vous remercie d'avance,

    Secco

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    En supposant que tu transfères les données de ta ListBox via un bouton qui se trouve également sur ton UserForm

    Essaye ceci que tu pourras adapter
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Private Sub CommandButton1_Click()
    Dim i As Integer
     
    For i = 0 To ListeTest.ListCount - 1
        Cells(i + 1, 1) = ListeTest.List(i)
    Next
     
    End Sub

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    95
    Détails du profil
    Informations personnelles :
    Localisation : France, Sarthe (Pays de la Loire)

    Informations forums :
    Inscription : Avril 2008
    Messages : 95
    Par défaut
    Tout d'abord merci de prendre le temps de réfléchir à mon problème

    Ensuite, j'ai essayé ceci :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    For i = 0 To ListeTest.ListCount - 1
        feuil.Cells(i + 1, 1) = ListeTest.List(i)
    Next
    Comme tu me l'as suggéré, mais malheureusement, j'ai toujours le meme message d'erreur. Et à mon avis le problème vient de ce ".List" qui n'est meme pas accessible dans la liste des propriétés de ma listebox, mais je n'arrive toujours pas à trouver pourquoi...

  4. #4
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Non le problème ne vient pas de là, le code que je t'ai envoyé fonctionne.
    Commence par faire ce test
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    MsgBox ListeTest.ListCount

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    95
    Détails du profil
    Informations personnelles :
    Localisation : France, Sarthe (Pays de la Loire)

    Informations forums :
    Inscription : Avril 2008
    Messages : 95
    Par défaut
    Ca marche, j'ai une réponse : 30

    Mais toujours le meme message d'erreur avec ce .List surligné

    Et toi, quand tu fais le test, est ce que quand tu fais . [ctrl] tu as List ? Car je n'ai pas cette propriété de proposé et je trouve ça bizarre...

  6. #6
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Alors fais le test directement sur une feuille active, n'importe laquelle, en retirant ton feuil.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    For i = 0 To ListeTest.ListCount - 1
        Cells(i + 1, 1) = ListeTest.List(i)
    Next

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Transfert données listbox vers excel
    Par biquet52 dans le forum IHM
    Réponses: 3
    Dernier message: 18/09/2008, 12h03
  2. Transfert de listbox vers Excel
    Par Secco dans le forum VBA Access
    Réponses: 3
    Dernier message: 28/04/2008, 18h32
  3. Transfert requette ver excel en VB
    Par mbokmahop dans le forum VBA Access
    Réponses: 8
    Dernier message: 07/06/2007, 14h51
  4. [Access2003] Exporter le contenu d'une listbox vers excel
    Par hoaxpunk dans le forum VBA Access
    Réponses: 1
    Dernier message: 24/05/2007, 16h56
  5. Réponses: 1
    Dernier message: 04/12/2006, 10h08

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo