Comment ajouter des en-têtes de une liste multicolonne dans un userform Excel à l'aide de VBA

J'ai été confronté à ce problème tout à l'heure et a trouvé cette solution. Si votre de contenu (RowSource) points à une plage de cellules, les en-têtes de colonne dans un multi-colonne listbox sont prises à partir des cellules immédiatement au-dessus du contenu (RowSource).

À l'aide de l'exemple décrit ici, à l'intérieur de la zone de liste, les mots Symbole et Nom apparaître que le titre des rubriques. Quand j'ai changé le mot Nom dans la cellule AB1, puis ouvrit la forme dans le VBE de nouveau, les en-têtes de colonne changé.

L'exemple est venu d'un classeur en VBA Pour les Modélisateurs par S. Christian Albright, et j'ai été à essayer de comprendre comment il a obtenu les en-têtes de colonne dans sa zone de liste 🙂

OriginalL'auteur Rick Henderson

Il est très facile de solution pour afficher les en-têtes au sommet de multi zone de liste colonnes.
Il suffit de changer la valeur de la propriété à "true" pour "columnheads" qui est false par défaut.

Après cela, il suffit de mentionner la plage de données dans la propriété "contenu" à l'exception de l'en-tête de la plage de données et de l'en-tête doit être en première ligne supérieure de la plage de données, puis il va choisir l'en-tête automatiquement et vous en-tête sera gelé.

si supposons que vous avez données dans la plage "A1:H100" et d'en-tête à "A1:H1", qui est la première ligne, puis votre plage de données doit être "A2:H100" qui doit mentionner dans la propriété "contenu" et "columnheads" perperty valeur doit être vrai

Ce qui concerne,
Asif Hameed

OriginalL'auteur Asif Hameed

J'aime utiliser l'approche suivante pour les en-têtes sur une zone de liste déroulante où la CboBx n'est pas chargé à partir d'une feuille de calcul (données à partir de sql par exemple). La raison pour laquelle je spécifier de ne pas partir d'une feuille de calcul, c'est que je pense que la seule façon d'obtenir de contenu (RowSource) de travail si vous les charger à partir d'une feuille de calcul.

Cela fonctionne pour moi:

1. Créer votre zone de liste déroulante et de créer une zone de liste avec une présentation identique, mais seulement une ligne.
2. Place de la zone de liste directement sur le dessus de la zone de liste déroulante.
3. Dans votre VBA, charge de de zone de liste row1 avec les en-têtes.

4. Dans votre VBA pour l'action yourListBoxName_Click, entrez le code suivant:

   yourComboBoxName.Activate`
   yourComboBoxName.DropDown`

5. Lorsque vous cliquez sur la zone de liste, la zone de liste déroulante va descendre et de fonctionner normalement alors que les titres (dans la zone de liste) restent au-dessus de la liste.

OriginalL'auteur RR_CodeSlinger

Voici une approche qui automatise la création d'étiquettes au-dessus de chaque colonne d'une zone de liste (sur une feuille de calcul).

Il va travailler (mais pas super joli!!!) tant qu'il n'y a pas de barre de défilement horizontale sur votre listbox.

Sub Tester()
Dim i As Long
With Me.lbTest
.Clear
.ColumnCount = 5
'must do this next step!
.ColumnWidths = "70;60;100;60;60"
.ListStyle = fmListStylePlain
Debug.Print .ColumnWidths
For i = 0 To 10
.AddItem
.List(i, 0) = "blah" & i
.List(i, 1) = "blah"
.List(i, 2) = "blah"
.List(i, 3) = "blah"
.List(i, 4) = "blah"
Next i
End With
LabelHeaders Me.lbTest, Array("Header1", "Header2", _
"Header3", "Header4", "Header5")
End Sub
Sub LabelHeaders(lb, arrHeaders)
Const LBL_HT As Long = 15
Dim T, L, shp As Shape, cw As String, arr
Dim i As Long, w
'delete any previous headers for this listbox
For i = lb.Parent.Shapes.Count To 1 Step -1
If lb.Parent.Shapes(i).Name Like lb.Name & "_*" Then
lb.Parent.Shapes(i).Delete
End If
Next i
'get an array of column widths
cw = lb.ColumnWidths
If Len(cw) = 0 Then Exit Sub
cw = Replace(cw, " pt", "")
arr = Split(cw, ";")
'start points for labels
T = lb.Top - LBL_HT
L = lb.Left
For i = LBound(arr) To UBound(arr)
w = CLng(arr(i))
If i = UBound(arr) And (L + w) < lb.Width Then w = lb.Width - L
Set shp = ActiveSheet.Shapes.AddShape(msoShapeRectangle, _
L, T, w, LBL_HT)
With shp
.Name = lb.Name & "_" & i
'do some formatting
.Line.ForeColor.RGB = vbBlack
.Line.Weight = 1
.Fill.ForeColor.RGB = RGB(220, 220, 220)
.TextFrame2.TextRange.Characters.Text = arrHeaders(i)
.TextFrame2.TextRange.Font.Size = 9
.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = vbBlack
End With
L = L + w
Next i
End Sub

OriginalL'auteur Tim Williams

Vous pouvez donner à ceci un essai. Je suis assez nouveau sur le forum mais je voulais offrir quelque chose qui a fonctionné pour moi depuis que j'ai reçu beaucoup d'aide de ce site dans le passé. Il s'agit essentiellement d'une variation de la ci-dessus, mais j'ai trouvé ça plus simple.

Juste les coller dans le Userform_Initialize section de votre userform code. Remarque vous devez déjà disposer d'une zone de liste sur l'objet userform ou avoir créé dynamiquement au-dessus de ce code. Veuillez aussi noter que le Tableau est une liste de titres (ci-après comme "Header1", "Header2" etc. Les remplacer par vos propres en-têtes. Ce code sera ensuite mis en place une rubrique de la barre au sommet basé sur la largeur des colonnes de la zone de liste. Désolé, il n'a pas de défilement - il fixe les étiquettes.

Plus hauts codeurs - s'il vous plaît n'hésitez pas à commenter ou à améliorer cette.

    Dim Mywidths As String
Dim Arrwidths, Arrheaders As Variant
Dim ColCounter, Labelleft As Long
Dim theLabel As Object                
[Other code here that you would already have in the Userform_Initialize section]
Set theLabel = Me.Controls.Add("Forms.Label.1", "Test" & ColCounter, True)
With theLabel
.Left = ListBox1.Left
.Top = ListBox1.Top - 10
.Width = ListBox1.Width - 1
.Height = 10
.BackColor = RGB(200, 200, 200)
End With
Arrheaders = Array("Header1", "Header2", "Header3", "Header4")
Mywidths = Me.ListBox1.ColumnWidths
Mywidths = Replace(Mywidths, " pt", "")
Arrwidths = Split(Mywidths, ";")
Labelleft = ListBox1.Left + 18
For ColCounter = LBound(Arrwidths) To UBound(Arrwidths)
If Arrwidths(ColCounter) > 0 Then
Header = Header + 1
Set theLabel = Me.Controls.Add("Forms.Label.1", "Test" & ColCounter, True)
With theLabel
.Caption = Arrheaders(Header - 1)
.Left = Labelleft
.Width = Arrwidths(ColCounter)
.Height = 10
.Top = ListBox1.Top - 10
.BackColor = RGB(200, 200, 200)
.Font.Bold = True
End With
Labelleft = Labelleft + Arrwidths(ColCounter)
End If
Next

OriginalL'auteur Peter Winn