Bonjour,
j'ai un code VBA comme ci-dessous

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 5
ListBox1.ColumnWidths = "50;50;50;50;50"
ListBox1.List = Sheets("Analytique").Range("A1:E41").Value
End Sub
J'ai vu sur le net que je pouvais des separateurs avec ce code

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
Private Sub UserForm_Initialize()
Dim i As Byte, j As Byte
 
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "50;15;50;15;50;15;50"
 
For i = 1 To 20
    ListBox1.AddItem "Ligne" & i
 
    For j = 2 To 7 Step 2
    ListBox1.List(ListBox1.ListCount - 1, j) = i & j
    Next j
 
    For j = 1 To 6 Step 2
    ListBox1.List(ListBox1.ListCount - 1, j) = Chr(124)
    Next j
Next i
End Sub
Mais pouvez-vous m'aider a l'adapter a mon code

Merci d'avance pour votre aide