tableau dans listebox

bonjour tous le monde,

voila j'aimerai savoir comment afficher un tableau dans une listebox dans un userform.
Le tableau est dans le fichier joint.
J'aimerai que dans cette listebox on puisse voir la mise en forme du tableau avec les séparateurs de colonnes.
Pour l'instant le tableau est vide, mais il est susceptible de contenir environ 100 lignes donc je sais pas s'il est possible d'avoir un ascenseur sur le côté.
De plus j'ai figé les volets pour les entêtes de colonnes. Est il possible de conserver ceci pour toujours voir l'entête dans la fenêtre. (soit le système qui fige les volets, soit écrire au dessus de la colonne les entetes si ce n'est pas possible)

Merci de vos réponses

Pipo

Bonjour
un tableau dans une listeBox ! je ne pense pas qu'il est réalisable.
mais avec le contrôle ListView Oui.
regarde là http://silkyroad.developpez.com/VBA/ListView/

Abed_H :king:

re bonsoir,

tout d'abord merci Abed_H
j'ai lu le lien que tu m'a envoyé à propos des listview
d'après ce que j'ai lu ces listview ont l'air de correspondre à ce que je veux mais je suis incapable de coder ceci^^

Quelqu'un pourrait-il m'aider svp?

Merci de votre aide

pipo

Re,
essaie ce code regarde aussi exemple ci-joins.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Affiche() Dim i As Integer,y as Integer With UserForm3.ListView1 .ListItems.Clear .Sorted = False End With y = 2: i = 1 Do Until IsEmpty(Cells(y, 1)) UserForm3.ListView1.ListItems.Add , , Cells(y, 1) UserForm3.ListView1.ListItems(i).ListSubItems.Add , , Cells(y, 2) UserForm3.ListView1.ListItems(i).ListSubItems.Add , , Cells(y, 3) UserForm3.ListView1.ListItems(i).ListSubItems.Add , , Cells(y, 4) i = i + 1 y = y + 1 Loop End Sub

---

Abed_H :king:

re,
merci de ta réponse,
Le code marche bien,

quelques précisions que je n'ai pas comprises:
a quoi servent lvwColumnCenter et ColumnRight?
Comment as tu fait pour pouvoir cocher les lignes? Est il possible d'enlever ce système ou à la place de mettre des cases à cocher mettre des cases d'option?
question probablement idiote: comment fait tu pour afficher une listview dans ton userform?

Merci de ta réponse ça m'aide beaucoup

Bye

Pipo

un autre petit problème que j'ai:

j'ai mis ton code dans mon vrai fichier.
Mon userform en question s'affiche après une succession d'autre userform.
La macro ne se lance donc pas directement de la feuille où il y a le tableau.
Quand j'exécute, une erreur de compilation s'affiche: "Type défini par l'utilisateur non défini" en me sélectionnant la ligne: " Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem) "
Pourrait tu m'expliquer d'où cela provient stp?

Merci bien de ta part (ou de quelqu'un d'autre qui s'y retrouverai la dedans^^)

bye

Pipo

Citation:

---

Envoyé par pipo159

un autre petit problème que j'ai:
Quand j'exécute, une erreur de compilation s'affiche: "Type défini par l'utilisateur non défini" en me sélectionnant la ligne: " Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem) "
Pourrait tu m'expliquer d'où cela provient stp?

---

Citation:

---

Tu devrais cocher la référence Microsoft Window Common Controls 6.0 (sp6)
pour procéder Outils > Références
pour ce qui est des propriétés lvwColumnCenter et ColumnRight servent à aligner des données dans la colonne, au centre ou à droite ou à gauche de la colonne

---

Bonne soirée

Abed_H :king:

re
Merci j'ai réussi à afficher ma listview dans la fenetre que je souhaitai.
Par contre je n'arrive pas a afficher les valeurs du tableau.
Comment, dans ton code, faire référence au tableau de cet onglet précisément?

Merci de ton aide

Pipo

Re,
si les données se trouvent dans la feuille 1, dans le code faire précéder Cells(y,x..) par Feuil1 de cette façon Feuil1.Cells(y,2) pour afficher le contenu de la cellule B de la feuille 1

re
Tout marche nickel,
Merci beaucoup pour ton aide j'ai appris bcp de choses aujourd'hui!^^

bye

Pipo