Problème de liste

[zeltron24]

Bonjour le Forum,
Quelqu'un pourrait il me donner une solution sur le fait que je ne peux pas faire plus de 9 colonnes dans une zone de liste voici le code :
Dans ma comboBox j'ai mis 12 dans ColumnCount et mon tableau dans la feuille nommée "Liste" va de B4 à N121

Private Sub UserForm_Initialize()

Set f = Sheets("Liste")
Set MonDico = CreateObject("Scripting.Dictionary")
For Each c In Range(f.[C4], f.[C150].End(xlUp))
If c.Value <> "" Then MonDico.Item(c.Value) = c.Value
Next c
Me.ComboBox1.List = MonDico.items
SendKeys "{F4}"

Private Sub ComboBox1_Change()
Set f = Sheets("Liste")
i = 0
Me.ComboBox2.Clear
For Each c In Range(f.[C4], f.[C150].End(xlUp))
If CStr(c) = Me.ComboBox1 Then
Me.ComboBox2.AddItem
Me.ComboBox2.List(i, 0) = c.Offset(, -1).Value & " " & Me.ComboBox1.Value
Me.ComboBox2.List(i, 1) = c.Offset(0, 1).Value
Me.ComboBox2.List(i, 2) = c.Offset(0, 2).Value
Me.ComboBox2.List(i, 3) = c.Offset(0, 3).Value
Me.ComboBox2.List(i, 4) = c.Offset(0, 4).Value
Me.ComboBox2.List(i, 5) = c.Offset(0, 5).Value
Me.ComboBox2.List(i, 6) = c.Offset(0, 6).Value
Me.ComboBox2.List(i, 7) = c.Offset(0, 7).Value
Me.ComboBox2.List(i, 8) = c.Offset(0, 8).Value
Me.ComboBox2.List(i, 9) = c.Offset(0, 9).Value ' au delà j'ai un message d'erreur
" impossible de définir la propriété List, valeur de propriété non valide"
' Me.ComboBox2.List(i, 10) = c.Offset(0, 10).Value
' Me.ComboBox2.List(i, 11) = c.Offset(0, 11).Value
' Me.ComboBox2.List(i, 12) = c.Offset(0, 12).Value

i = i + 1
End If
Next c
Me.ComboBox2.SetFocus
SendKeys "{F4}"

La suite du programme me donne aussi une erreur

End Sub

Private Sub ComboBox2_Change()
Dim i As Long
If Me.ComboBox2.ListIndex > -1 Then
For i& = 0 To 9 'Au delà de 9 j'ai une erreur
Me.Controls("Box" & i + 1 & "") = Me.ComboBox2.Column(i)
Next i
End If
End Sub

Merci d'avance pour votre aide

 

[xhudi69]

Re : Problème de liste

Bonjour zeltron24, le Forum,

Edit: je voulais parler de ListView, mais je n'en vois pas l'intérêt.

Bonjour Gelinotte 🙂

@+ 😎

 

[Gelinotte]

Re : Problème de liste

Bonjour,

Je crois que les combobox sont limités à 10 colonnes (0 à 9).


Gelinotte

 

[zeltron24]

Re : Problème de liste

Merci à vous deux
peux tu m'aider en me donnant le code à taper
Voici ce que cela donne

 

[xhudi69]

Re : Problème de liste

Bonjour zletron24, le Forum
Bonjour Gelinotte 🙂

Ne voyant pas l'intérêt d'un ListBox ou ListView intermédiaire, en PJ ton fichier remanié, si cela te conviens.

Edit: évitez les SendKeys qui mettent la pagaille au niveau de VerrNum et CapsLock.

@+ 😎

 

[zeltron24]

Re : Problème de liste

Merci pour ton aide mais je ne sais pas ouvrir le fichier pourrais tu me le renvoyer sous excel 2003 merci

 

[xhudi69]

Re : Problème de liste

Bonjour zletron24, le Forum

En PJ 2 fichiers:
1 avec ListView
1 sans rien, affichage directe dans les TextBox

Je te laisse adapter à tes besoins 😛

@+ 😎

 

[zeltron24]

Re : Problème de liste

Alors là BRAVO xhudi69 🙂

C'est un travail super.
Je te remercie sincèrement et j'adapte cela à mes convenances.
Encore mille merci. bonne Après midi à toi.
A+

Sans oublier non plus Gélinotte qui a participé aussi Merci 🙂

 

[zeltron24]

Re : Problème de liste

Re, juste une dernière chose
Je souhaiterai procéder à un tri dans la feuille liste avant d'ouvrir le formulaire
Vous me dirai je peux le faire avant d'ouvrir le FRM mais si il y aurait possibilité de le faire autrement je serai content
Merci

 

[xhudi69]

Re : Problème de liste

Bonjour zeltron, le Forum,

Quel genre de tri veux-tu faire ? le tableau me semble se suffir à lui-même.

@+ 😎

 

[zeltron24]

Re : Problème de liste

Désolé de te répondre si tard j'étais absent
Donc je souhaiterai faire un tri par ordre alphabétique des éléments mais pouvoir revenir sur l'ordre numérique des éléments pour un autre projet

 

[zeltron24]

Re : Problème de liste

Bonjour le forum,

Est il possible d'effectuer un tri dans la liste par éléments avant d'ouvrir le formulaire . J'ai essayé plusieurs méthodes mais excel me renvoi un message d'erreur me disant que les cellules sont fusionnées et cela est impossible à trier. Hors je ne vois aucune cellules fusionnée.
Merci d'avance pour votre aide.