Problème de liste

zeltron24 · 28 Juillet 2013

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 · 28 Juillet 2013

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 · 28 Juillet 2013

Re : Problème de liste

Bonjour,

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

Gelinotte

zeltron24 · 28 Juillet 2013

Re : Problème de liste

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

xhudi69 · 28 Juillet 2013

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 · 28 Juillet 2013

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 · 28 Juillet 2013

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 · 28 Juillet 2013

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 · 28 Juillet 2013

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 · 28 Juillet 2013

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 · 28 Juillet 2013

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 · 29 Juillet 2013

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.

Problème de liste

zeltron24

XLDnaute Impliqué

Pièces jointes

xhudi69

XLDnaute Accro

Gelinotte

XLDnaute Accro

zeltron24

XLDnaute Impliqué

Pièces jointes

xhudi69

XLDnaute Accro

Pièces jointes

zeltron24

XLDnaute Impliqué

xhudi69

XLDnaute Accro

Pièces jointes

zeltron24

XLDnaute Impliqué

zeltron24

XLDnaute Impliqué

xhudi69

XLDnaute Accro

zeltron24

XLDnaute Impliqué

zeltron24

XLDnaute Impliqué

Discussions similaires

Problème de liste

XLDnaute Impliqué

Pièces jointes

XLDnaute Accro

XLDnaute Accro

XLDnaute Impliqué

Pièces jointes

XLDnaute Accro

Pièces jointes

XLDnaute Impliqué

XLDnaute Accro

Pièces jointes

XLDnaute Impliqué

XLDnaute Impliqué

XLDnaute Accro

XLDnaute Impliqué

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency