Bonjour le forum,
c’est depuis quelque temps que je traine sur le séparateur de colonne dans ma listbox, malgré que je suis juste un débutant avec le vba, j’ai arrivé à alimenter cette liste d’une trentaine de colonnes mais rajouter ce séparateur (chr(124)) donne vraiment un très bon aperçu.
voici le code que j’ai utilisé :
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()
Dim VarDerLigne As Integer
Dim VarPlage As String
 
 
   VarDerLigne = Sheets("pointage").Range("a65536").End(xlUp).Row
   VarPlage = Sheets("pointage").Range("a6:ao" & VarDerLigne).Address
 
   Range("a5:e5").Value = Range("a6:e6").Value
   Range("ak5:ao5").Value = Range("ak6:ao6").Value
 
   Range("a6:e6") = ""
   Range("ak6:ao6") = ""
 
   ListBox1.RowSource = "pointage!" & VarPlage
   ListBox1.ColumnCount = 41
   ListBox1.ColumnWidths = "50 ;145 ;50 ;20 ;50 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;25 ;35 ;35 ;35 ;50 ;50 "
   ListBox1.ColumnHeads = True
   ListBox1.IntegralHeight = True
 
End Sub
je vous remercie d'avance.