Discussion :

[casefayere]

bonjour ou bonsoir

comment creer des entetes de colonnes sur une listbox filtrée des donnees d'un tableau avec cette procedure grace à SilkyRoad et ouskel'n'or

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
For Each Cell In Plage
 
    ListBox1.AddItem Cell
    For n = 0 To 7
    ListBox1.List(ListBox1.ListCount - 1, n) = Cell.Offset(0, n)
 
    Next n
 
Next Cell

merci de votre reponse
a+

[SilkyRoad]

bonjour

Il me semble que les entêtes de colonnes ne fonctionnent qu'avec la propriété RowSource. Comme tu affiches des plages de cellules filtrées, cela va être difficile de l'utiliser (à moins de copier le résultat du filtre dans un autre feuille par exemple, puis d'alimenter la ListBox avec la propriété RowSource)

Un autre solution consiste à placer des Labels au dessus de la ListBox et qui serviront d'entête.



bon après midi
michel

[ouskel'n'or]

Même réponse que Silky (salut Michel)
Comme cette réponse m'intéressait, j'ai fait "quelques" essais et si avec un colonne à afficher, c'est assez simple de créer untableau, avec plusieurs colonnes, je n'ai réussi qu'en copiant le résultat du filtre sur une autre feuille et en utilisant RowSource.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ListBox1.ColumnHeads = True
    ListBox1.RowSource = Plage

Tu ajoutes une feuille
tu copies avec CurrentRegion la plage filtrée, CurrentRegion te fournit la plage sur la nouvelle feuille, et enfin tu renseignes ta liste avec le code ci-dessus.
Mais c'est toi qui vois

[ouskel'n'or]

Tiens, j'ai fait ça, si ça peut t'inspirer...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub FiltreEtEntête()
    Worksheets("Feuil1").Activate
    Columns("D:D").AutoFilter Field:=1, Criteria1:="=" & "1011" 'Si tu as un indicateur
    Range("A1").CurrentRegion.Copy
    Sheets.Add
    ActiveSheet.Paste
    DernièreLigne = Range("A1").SpecialCells(xlCellTypeLastCell).Row
    DernièreColonne = Range("A1").SpecialCells(xlCellTypeLastCell).Column
    Set Plage = Range("A2", Cells(DernièreLigne, DernièreColonne))
        ListBox1.ColumnHeads = True
        ListBox1.RowSource = Plage.Address
    Set Plage = Nothing
    'ActiveSheet.Delete ' "Atassion" : Ne supprimer la feuille qu'à la fermeture du Classeur
End Sub

A+

Edit
Afin de pouvoir supprimer ta feuille "à la fin", récupère son nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

NomFeuil = Activesheet.name

[casefayere]

je vais essayer ce que vous me proposez mais si ça me pose un autre problème je me contenterait de mettre des intitulés au dessus surtout que j'ai un autre problème plus important :
je veux reporter les numéros de lignes reels (pas ceux de la listbox filtrée) dans une colonne supplémentaire de la listbox
pour l'instant, le seul moyen que j'ai trouvé est d'ajouter une colonne au tableau initial
Je m'embète peut-etre pour pas grand-chose mais...ça m'apprend


Merci encore à tous les deux vous etes sympa

a +

[SilkyRoad]

je veux reporter les numéros de lignes reels (pas ceux de la listbox filtrée) dans une colonne supplémentaire de la listbox

Tu peux ajouter une colonne masquée dans la ListBox, qui contiendra le numéro des lignes (Cell.Row)


michel