Bonjour
J'essaie de renseigner les titres de colonnes dans une LISTBOX en utilisant le code ci-dessous. Le pb c'est que le remplissage s'effectue jusqu'à la colonne 9 et puis plus rien ne s'affiche. J'ai affecté la valeur 15 dans column dans les propriétés de la LISTBOX. Avez vous une idée sur ce qui bloque svp?
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
22
 
Sub remplir_titre()
 
Me.Lstprime.Clear
Me.Lstprime.ColumnCount = 15
 
    Me.Lstprime.AddItem Cells(1, 1)
    Me.Lstprime.List(Lstprime.ListCount - 1, 0) = "Matricule"
    Me.Lstprime.List(Lstprime.ListCount - 1, 1) = "Log"
    Me.Lstprime.List(Lstprime.ListCount - 1, 2) = "Nom CC"
    Me.Lstprime.List(Lstprime.ListCount - 1, 3) = "Statut"
    Me.Lstprime.List(Lstprime.ListCount - 1, 4) = "Prod_R"
    Me.Lstprime.List(Lstprime.ListCount - 1, 5) = "Prod_V"
    Me.Lstprime.List(Lstprime.ListCount - 1, 6) = "UD_R"
    Me.Lstprime.List(Lstprime.ListCount - 1, 7) = "UD_V"
    Me.Lstprime.List(Lstprime.ListCount - 1, 8) = "Vente_R"
    Me.Lstprime.List(Lstprime.ListCount - 1, 9) = "Vente_V"
    Me.Lstprime.List(Lstprime.ListCount - 1, 10) = "Histo_R"
    Me.Lstprime.List(Lstprime.ListCount - 1, 11) = "Histo_V"
 
 
End Sub