Discussion :

[pipo159]

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

[Abed_H]

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

[pipo159]

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

[Abed_H]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[pipo159]

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

[Abed_H]

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?

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