cp4
XLDnaute Barbatruc
Bonsoir ,
Je m'inspire beaucoup des exemples de Boisgontier. Le code ci-dessous permet de créer des labels qui prennent comme caption l’entête d'un tableau.
Je voudrais reconstituer l’entête sur une autre feuille à partir de ces labels.
Je sais qu'il est plus simple de faire un copier/coller en vba.
C'est seulement pour apprendre à manipuler ce type d'objets créés à la volée.
En vous remerciant par avance.
Bonne soirée.
Je m'inspire beaucoup des exemples de Boisgontier. Le code ci-dessous permet de créer des labels qui prennent comme caption l’entête d'un tableau.
Je voudrais reconstituer l’entête sur une autre feuille à partir de ces labels.
Je sais qu'il est plus simple de faire un copier/coller en vba.
C'est seulement pour apprendre à manipuler ce type d'objets créés à la volée.
VB:
Sub EnteteListBox() 'Boisgontier
Dim x As Integer, y As Integer, i As Byte, lab As Object, temp, Rng
Set Rng = Sheets("bd").Range("A2:J" & f.[A65000].End(xlUp).Row)
x = Me.ListBox1.Left + 8
y = Me.ListBox1.Top - 12
For i = 1 To Me.ListBox1.ColumnCount
Set lab = Me.Controls.Add("Forms.Label.1")
lab.Caption = Rng.Offset(-1).Cells(1, i)
lab.Top = y
lab.Left = x
x = x + Int(Rng.Columns(i).Width * 1.1)
temp = temp & Int(Rng.Columns(i).Width * 1.1) & ";"
Next
temp = Left(temp, Len(temp) - 1)
Me.ListBox1.ColumnWidths = temp
End Sub
Bonne soirée.
Dernière édition: