entete colonnes listbox

Version imprimable

09/12/2006, 23h14
casefayere

entete colonnes listbox
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:

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+
10/12/2006, 14h38
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
10/12/2006, 15h38
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:

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 ;)

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

Code:

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:

NomFeuil = Activesheet.name

10/12/2006, 16h17
casefayere

merci pour vos conseils

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 +
10/12/2006, 17h34
SilkyRoad

Citation:

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
10/12/2006, 19h08
casefayere

a SilkyRoad numero des lignes

Bonsoir

Je me suis fait ch... un bon moment pour trouver alors que c'etait si simple avec ta solution, ca marche impeccable

Je connais et j'ai fait pas mal de bons fichiers avec excel pour moi et mon boulot
mais jamais en utilisant VBA, là je débute
je cherche à faire un stage avec un gars de mes relations qui pourrait m'apprendre, en attendant j'essaie de me former seul

Bonne soirée