Discussion :

[ChristianBosch]

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"

[Pierre Fauconnier]

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.

[ChristianBosch]

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.

[ChristianBosch]

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)

[Philippe Tulliez]

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)

[ChristianBosch]

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