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 :

Problème de Rowsource d'une listbox a plusieurs colonnes [XL-365]


Sujet :

Macros et VBA Excel

  1. #1
    Membre chevronné
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Mars 2021
    Messages
    334
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2021
    Messages : 334
    Par défaut Problème de Rowsource d'une listbox a plusieurs colonnes
    Bonjour, j'ai créé une fonction qui permet de remplir automatiquement une listbox a plusieurs colonnes avec un tableau structuré.

    comme l'indique le nom du sujet j'ai un problème avec le rowsource de ma listbox (pour afficher des entêtes)

    Voici le code :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Function ListRefresh(LstBox As Object, sht As Worksheet, NomTab As String)
    Dim nbCol As Integer
     
    LstBox.Clear
     
    nbCol = sht.ListObjects(NomTab).ListColumns.Count
     
    With LstBox
    .ColumnCount = nbCol
    .ColumnHeads = True
    .RowSource = sht.Range(NomTab & "[#Headers]").Address
    .List = sht.Range(NomTab).Value
    End With
     
    End Function
    Tout fonctionne bien (bonne incrémentation de ma listbox) , j'ai rajouté par la suite le rowsource avec l'adresse des entêtes de mon tableau mais ça me mets une incompatibilité de type sur la ligne .Rowsource. (pourtant la ligne "sht.Range(NomTab & "[#Headers]")" nous donne bien un objet de type range correspondant a l’entête de mon tableau)

    Si quelqu'un a déjà rencontré ce cas de figure j'aimerais bien savoir comment faire.

    Merci =)

    EDIT : Alors je suis arrivé a faire passer la ligne en rajoutant .address : sht.Range(NomTab & "[#Headers]").Address

    Mais maintenant j'ai un erreur a la dernière ligne : ListBox1.List = sht.Range(NomTab).Value avec un "permission refusée"

  2. #2
    Rédacteur/Modérateur


    Homme Profil pro
    Formateur et développeur chez EXCELLEZ.net
    Inscrit en
    Novembre 2003
    Messages
    19 125
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur et développeur chez EXCELLEZ.net
    Secteur : Enseignement

    Informations forums :
    Inscription : Novembre 2003
    Messages : 19 125
    Billets dans le blog
    131
    Par défaut
    Salut Christian


    RowSource et List sont incompatibles => C'est l'un ou c'est l'autre mais pas les deux. Soit tu connectes ton listbox à une plage (RowSource) soit tu l'alimentes avec List, mais tu ne peux pas le connecter à une plage puis l'alimenter avec List, puisque les deux se "téléscopent".

    ColumnHeads ne peut être utilisé qu'avec RowSource, de sorte qu'il est impossible d'avoir un listbox avec une ligne d'entête si tu l'alimentes avec List. Il faut alors "ruser" en vba lorsque l'on sélectionne la ligne 0.
    "Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
    ---------------
    Mes billets de blog sur DVP
    Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
    Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
    Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
    Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
    VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
    ---------------

  3. #3
    Membre chevronné
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Mars 2021
    Messages
    334
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2021
    Messages : 334
    Par défaut
    Merci Pierre je viens de comprendre que :

    Le rowSource se base sur une entrée tableau et le .List sur une entrée de données.

    Je vous joint la fonction (fonctionnelle) qui permet de remplir une listbox a partir d'un tableau structuré.

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Function ListRefresh(LstBox As Object, sht As Worksheet, NomTab As String)
    Dim nbCol As Integer
    Dim ColW As String
    LstBox.Clear
    nbCol = sht.ListObjects(NomTab).ListColumns.Count
     
    For I = 1 To nbCol
        ColW = ColW & sht.ListObjects(NomTab).ListColumns(I).DataBodyRange.Width & ";"
    Next I
     
    With LstBox
    .ColumnHeads = True
    .ColumnCount = nbCol
    .ColumnWidths = ColW
    .RowSource = sht.Range(NomTab).Address(External:=True)
    End With
     
    End Function
    J'ai rajouté la gestion de largeur des colonnes en me calquant sur la largeur des colonnes du tableau.

  4. #4
    Membre chevronné
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Mars 2021
    Messages
    334
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2021
    Messages : 334
    Par défaut
    Par contre un autre problème du rowsource vient du fait qu'il prend une adresse et pas un objet range donc sur la feuille active je pense et pas forcement sur la feuille désirée.

    Il faut donc activer la page ou se trouve le tableau avant d'extraire les données. (modifié dans le code précédent d’après la remarque suivant de Philippe)

  5. #5
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 171
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 171
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    Par contre un autre problème du rowsource vient du fait qu'il prend une adresse et pas un objet range donc sur la feuille active je pense et pas forcement sur la feuille désirée.
    Il faut lui préciser l'adresse complète à l'aide de l'argument External de la propriété Address de l'objet Range
    Exemple : .RowSource = Range("NomDeLaTable").Address(External:=True)
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  6. #6
    Membre chevronné
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Mars 2021
    Messages
    334
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2021
    Messages : 334
    Par défaut
    Philippe

    Il faut lui préciser l'adresse complète à l'aide de l'argument External de la propriété Address de l'objet Range
    Merci je viens d'apprendre quelque chose

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

Discussions similaires

  1. Problème d'affiche dans une ListBox et ses colonnes
    Par Mho33 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 20/02/2019, 15h42
  2. Comment créer une listBox avec plusieurs colonnes ?
    Par volcom_2222 dans le forum VB.NET
    Réponses: 6
    Dernier message: 27/02/2010, 11h44
  3. Problème avec le RowSource d'une ListBox
    Par niavlys26 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 08/07/2008, 04h29
  4. [VBA-Excel] Propiété RowSource d'une ListBox
    Par padre03 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 28/09/2006, 18h05
  5. Problème de sélection dans une listbox
    Par cacahuèèète dans le forum Access
    Réponses: 3
    Dernier message: 29/06/2006, 15h03

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