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:

---

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"

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.

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:

---

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.

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)

Bonjour,

Citation:

---

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

Citation:

---

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 :P