ColumnHead sur ListBox alimentée par AddItem

Version imprimable

07/12/2009, 17h49
Korleone

ColumnHead sur ListBox alimentée par AddItem

Bonjour à tous, il semblerait d'après le tutoriel des Contrôles dans un Userform, que la propriété ColumnHead ne soit pas compatible avec la méthode AddItem.
Seulement, existe-il une solution afin de pallier à ce problème ?
Je m'explique : J'alimente ma listbox avec AddItem en prenant :
Pour la colonne 1 de la listBox, la colonne A
Pour la colonne 2 de la listBox, la colonne C
Pour la colonne 3 de la listBox, la colonne AB
...

Ainsi, les colonnes ne sont pas accolées, et je ne peux pas utiliser la méthode RowSource (enfin, il me semble :?).

Avez-vous une idée ? J'ai pensé à masquer les colonnes inutiles, du genre :

Code:

ListBox.ColumnWidths = "7 cm;0 cm;2 cm;0 cm;0 cm;0 cm; ....; 2cm"

mais c'est assez fouilli comme code je trouve, me proposez-vous mieux ?

Ensuite, si j'effectue un tri alphabétique dans la ListBox, est-ce que mon titre sera affecté ou il restera toujours en en-tête ?

Merci de votre aide ;-)
07/12/2009, 19h28
pgz
Bonjour.

Perso, je ne vois que 2 solutions
- Jouer comme tu y a pensé sur les largeurs de colonnes
- Recopier les colonnes utiles dans une feuille de service, éventuellement cachée.
Je sens que cela ne t'aide pas trop.

PGZ
07/12/2009, 21h27
rvtoulon

Bsr, pgz, korleone,

J'ai eu un problème comme le tien et j'ai laissé la listbox de côté au profit d'une "listview". Connais-tu ce contrôle de formulaire?

Voici un très bon tuto sur la Listview :
http://silkyroad.developpez.com/VBA/ListView/

Je pense que c'est une piste intéressante à exploiter ;)

A+

bonjour Korleone pgz rvtoulon le forum
un code pour une listview dans ton cas colonne A , C ,AB

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Explicit
Private Sub UserForm_Initialize()
Dim Lig As Long, derLig As Long, LigList As Long, l As String
   With ListView1
       With .ColumnHeaders
             .Clear
            .Add , , "NOM", 110
            .Add , , "prenon", 100
            .Add , , "age", 100
       End With
      .Gridlines = True
       .FullRowSelect = True
      .HideColumnHeaders = False
      .LabelEdit = 1
   End With
         With Sheets(1)
            derLig = .Range("A" & Cells.Rows.Count).End(xlUp).Row
        If derLig < 2 Then derLig = 2
           LigList = 1
                 For Lig = 2 To derLig
            l = "L" & Lig
             ListView1.ListItems.Add , l, .Range("A" & Lig).Value
             ListView1.ListItems(LigList).ListSubItems.Add , , .Range("C" & Lig).Value
            ListView1.ListItems(LigList).ListSubItems.Add , , .Range("AB" & Lig).Value
                           LigList = LigList + 1
        Next Lig
    End With
 End Sub

re, données en feuille 2 dans proprietées de ta listbox columncount =3

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub UserForm_Initialize()
Dim w As Long, x As Long, z As Long, Myarray()
  With Sheets("feuil2")
   z = Range("A65536").End(xlUp).Row
    ReDim Myarray(2, z)
    For w = 2 To z
      Myarray(0, x) = .Cells(w, 1)
      Myarray(1, x) = .Cells(w, 3)
      Myarray(2, x) = .Cells(w, 28)
       x = x + 1
    Next: End With
    ListBox1.Column() = Myarray
End Sub

une version un peu plus "propre"

10/12/2009, 22h49
Korleone

Merci à vous tous pour l'aide, ça m'a bien servi.

Effectivement, je ne connaissait pas le contrôle ListView, c'est très efficace !