Problème Listbox Capacité

Bonjour,

Novice de chez novice en la matière, je souhaite faire apparaître une Listbox contenant 18 colonnes. J'ai pu voir sur Internet que le nombre de colonnes était limité à 10 (a priori...).

Existe-il un petit bout de code pour permettre d'avoir plus de colonnes ? J'ai cherché sur Internet, mais je n'ai pas la solution à ma réponse ! :'(

Quelqu'un aurait une solution simple ? J'ai bien essayé une ListView, mais je n'ai pas réussi à coder non plus...

Je suis désolée de ne pas pouvoir mettre mon fichier sur Internet, mais celui-ci est confidentiel.

Merci pour vos réponses !

Mélanie

Bonjour et bienvenue

Je me suis amusé un petit peu

Bonjour,

Merci pour ta réponse rapide !

Quelle est la différence entre ListBox et une ComboBox ?

Et pourquoi mets-tu des "Me." devant certaines lignes de code ?

Encore merci,

Mélanie

Bonjour

Une listbox ne permet pas de sélectionner autre chose que les choix proposés

Une combobox le permet (sauf si on définit son fonctionnement comme ListBox)

Le Me. devant le nom des contrôles permet d'avoir un menu reprenant les noms contrôles (entre-autre), cela facilite la saisie des noms de contrôle

Essayes dans le module d'un userform tapes Me.

Bonjour, et encore merci !

Voici ma listbox ! Et malgré ta réponse, je ne vois pas comment l'habiller pour que tout tienne dans une seule ListBox !

Mon fichier doit permettre de retrouver les prix à un moment donné en fonction de la date (je ne mets que les éléments relatifs aux List ! )

ListBox1.Clear 'je vide la liste s'il y avait déjà des infos dedans

ListBox1.ColumnCount = 18 'définition du nombre de colonnes dans la liste

ListBox1.ColumnWidths = "80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80"

With UserFormPrix.ListBox1

.List(.ListCount - 1, 1) = Sheets("SEMESTRE 1").Range("R" & I).Value

.List(.ListCount - 1, 2) = Sheets("SEMESTRE 1").Range("S" & I).Value

.List(.ListCount - 1, 3) = Sheets("SEMESTRE 1").Range("T" & I).Value

.List(.ListCount - 1, 4) = Sheets("SEMESTRE 1").Range("U" & I).Value

.List(.ListCount - 1, 5) = Sheets("SEMESTRE 1").Range("V" & I).Value

.List(.ListCount - 1, 6) = Sheets("SEMESTRE 1").Range("W" & I).Value

.List(.ListCount - 1, 7) = Sheets("SEMESTRE 1").Range("X" & I).Value

'.List(.ListCount - 1, 8) = Sheets("SEMESTRE 1").Range("Y" & i).Value

'.List(.ListCount - 1, 9) = Sheets("SEMESTRE 1").Range("Z" & i).Value

'.List(.ListCount - 1, 10) = Sheets("SEMESTRE 1").Range("AA" & i).Value

'.List(.ListCount - 1, 11) = Sheets("SEMESTRE 1").Range("AB" & i).Value

'.List(.ListCount - 1, 12) = Sheets("SEMESTRE 1").Range("AC" & i).Value

'.List(.ListCount - 1, 13) = Sheets("SEMESTRE 1").Range("AD" & i).Value

'.List(.ListCount - 1, 14) = Sheets("SEMESTRE 1").Range("AE" & i).Value

'.List(.ListCount - 1, 15) = Sheets("SEMESTRE 1").Range("AF" & i).Value

'.List(.ListCount - 1, 16) = Sheets("SEMESTRE 1").Range("AG" & i).Value

'.List(.ListCount - 1, 17) = Sheets("SEMESTRE 1").Range("AH" & i).Value

'.List(.ListCount - 1, 18) = Sheets("SEMESTRE 1").Range("AI" & i).Value

End With

Que dois-je rajouter pour que ça tienne réellement ?

Merci beaucoup !!

Ma solution rapide étant de faire deux listbox... Mais j'avoue que c'est moche !

Bonjour

Il faut que tu passes par un tableau, comme j'ai fait dans le fichier que j'ai posté

Private Sub UserForm_Initialize()
Dim Tablo
Dim I As Integer

  Me.CommandButton1.Enabled = False

  With Me.ListBox1
    .ColumnCount = 28
    Tablo = Range("B2:AC" & Range("B" & Rows.Count).End(xlUp).Row)
    .List = Tablo

Dans ton cas cela pourrait se traduire par

Private Sub UserForm_Initialize()

  With Sheets("SEMESTRE 1")
    nblg = .Range("R" & Rows.Count).End(xlUp).Row
    Tablo = .Range("R1:AI" & nblg)
  End With

  With Me.ListBox1
    .Clear              'je vide la liste s'il y avait déjà des infos dedans
    .ColumnCount = 18   'définition du nombre de colonnes dans la liste
    .ColumnWidths = "80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80"
    .List = Tablo
  End With
End Sub

Juste une supposition n'ayant pas ton fichier

Regardes l'aide de ColumnCount

La définition de la propriété ColumnCount sur 0 affiche zéro colonne et la définition sur -1 affiche toutes les colonnes disponibles. Pour une source de données indépendante, il y a une limite de 10 colonnes (0 à 9).

C'est à dire (sauf erreur de ma part) : Par la méthode AddItem/List on ne peut avoir que 10 colonnes sinon il faut passer par un tableau

Merci ! !

Ca fonctionne !!!!!!!!!!!!!!!!!! Tu es vraiment FABULEUX !!!

Encore merci beaucoup beaucoup !!!!!!!!!!

Mélanie