Discussion :

[Bsanaa1]

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

[Marc-L]

Bonjour,

la réponse est pourtant déjà disponible dans l'aide VBA interne de la propriété ColumnCount …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[boisgontierjacques]

Bonsoir,

Il faut alimenter la ListBox par un tableau 2D.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Dim a(), f
Private Sub UserForm_Initialize()
  Set f = Sheets("bd")
  a = f.Range("A2:M" & f.[M65000].End(xlUp).Row).Value
  Me.ListBox1.List = a()
End Sub

Boisgontier
http://boisgontierjacques.free.fr

[Bsanaa1]

bonsoir

c'est noté Marc-L. Etant nouvelle j'ignore les règles. la prochaine fois je vais chercher avant de poster

@Boisgontier: un grand merc!!!!! ça marche