Impossible d'ajouter plus de 9 colonnes dans une LISTBOX

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:

---

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

---

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, …

Bonsoir,

Il faut alimenter la ListBox par un tableau 2D.

Code:

---

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

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!!!!!:applo::applo: ça marche :P:P:P:P:P