Discussion :

[Denis la Malice]

Bonjour,
j'ai un formulaire contenant une ListBox multi-colonnes que j'appelle depuis plusieurs procédures ayant des méthodes d'alimentation différentes (RowSource ou AddItem), nombre de colonnes et tailles différents.
En fin d'affichage du formulaire (on clique sur le bouton OK) je sais récupérer le nombre de colonnes, la sélection, la colonne renvoyée, la colonne affichée, le nombre de lignes, le contenu de chaque ligne et de chaque colonne mais pas les entêtes de colonne. Y a-t-il une propriété de la ListBox qui contienne les noms des colonnes ?
ListBox1.Column(i).Name ne fonctionne pas.

[grisan29]

bonjour denis
j'ai ce code qui permet a partir du choix de la feuille dans une combobox d'afficher des entêtes aux colonnes de la listbox, mais autrement je ne sais pas si cela est possible sans passer par une listview

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
19
20
21
Private Sub UserForm_Initialize()
    For Each Ws In ThisWorkbook.Worksheets
        If Ws.Name <> "ACCUEIL" Then ComboBox1.AddItem Ws.Name
    Next
    With ListBox1
        .ColumnCount = 9
        .ColumnHeads = True
        .ColumnWidths = "20;230;30;30;30;40;40;30;20" 'à regler
        '.Width = 30 + 180 + 30 + 10 + 10 + 40 + 40 + 20
 
    End With
    End Sub
Private Sub ComboBox1_Change()
  Dim Dl As Long
  Dim Ws As Worksheet
  If ComboBox1 = "" Then Exit Sub
  Set Ws = Sheets(ComboBox1.Text)
  Me.Caption = "Travail dans la feuille " & Ws.Name
  Dl = Ws.Cells(Rows.Count, "A").End(xlUp).Row
  ListBox1.RowSource = Ws.Name & "!A2:I" & Dl
End Sub

Pascal

re
ou alors a partir d'un appel dans ton code tu mets dans un module standard

Code :

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

1
2
3
4
Sub essai()
UserForm1.ListBox1.RowSource = ActiveSheet.Name & "!" & Range("A2:L240").Address
 
End Sub

tu peut remplacer

ActiveSheet.Name

par le nom de la feuille active

Pascal

[Denis la Malice]

Bonjour,
quand la listbox est alimentée par RowSource le paramètre ColumnHeads permet d'afficher ou nom les entêtes de colonne. Pour retrouver l'entête il faut récupérer le contenu de rowsource et lire la ligne précédente.
Quand on alimente avec un recordset, les entêtes sont correctement renseignées mais je ne sais pas récupérer ces entêtes à la validation du formulaire.
En alimentant avec des AddItem, je ne sais même pas remplir les entêtes.

J'ai donc trouvé l'astuce suivante :
- Je n'affiche jamais les entêtes (ColumnHeads=False)
- Je renseigne l'item 0 avec les libellés de l'entête
- J'ajoute du code (ma ListBox s'appelle Liste) :

Code :

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

1
2
3
Private Sub Liste_Change()
    If Me.Liste.Selected(0) Then Me.Liste.Selected(0) = False
End Sub

Comme on ne peut pas sélectionner la première ligne, elle se comporte comme une entête.
A la validation du formulaire, mes entêtes sont dans l'élément 0.