Comment afficher une colonne simple sous forme de tableau dans une LISTBOX?

Version imprimable

18/10/2013, 13h42
ThamAL

Comment afficher une colonne simple sous forme de tableau dans une LISTBOX?

Bonjour à tous,

Désolé de vous solliciter pour un souci qui ne doit pas être compliqué mais
je ne trouve pas de solution satisfaisante...:cry:

J'ai une liste de données dans la plage H35:H54 soit 20 valeurs, et je souhaiterai qu'elles s'affichent sous la forme d'un tableau de 4lignes er 5 colonnes dans une Listbox.

J'ai beau manipuler les differentes propriétés de la Listbox je n'arrive pas à obtenir ce fichu tableau...

Si vous avez une solution je suis preneur :D

Cordialement

Tham

Bonjour,

Essai ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Private Sub UserForm_Initialize()
 
    Dim Plage As Range
    Dim I As Integer
 
    With Worksheets("Feuil1")
 
        Set Plage = .Range(.Cells(35, 8), .Cells(54, 8))
 
    End With
 
    With ListBox1
 
        .ColumnCount = 5
 
        'modifier ici les différentes largeurs
        .ColumnWidths = "50;50;50;50;50"
 
        For I = 1 To 4
 
        'rempli la 1ere colonne
            .AddItem Plage(I)
 
        'rempli les autres colonnes
            .Column(1, I - 1) = Plage(I + 4)
            .Column(2, I - 1) = Plage(I + 8)
            .Column(3, I - 1) = Plage(I + 12)
            .Column(4, I - 1) = Plage(I + 16)
 
        Next I
 
    End With
 
End Sub

Hervé.

18/10/2013, 14h01
NVCfrm

bonjour,
_ passe par un tableau en mémoire dim temp(1 to 4, 1 to 5).
_ une petite boucle for pour parcourir dans un sens, une deuxième boucle imbriquée pour parcourir l'autre sens.
_ une variable compteur incrémentée à l'intérieur des deux boucles pour désigne les ligne de ta colonne de cellule.
_ les indices de tableau te sont fournis par les compteurs de boucles.
_ affecter ensuite la propriété List de ton objet par le tableau.

Assez simple à réaliser non? :D

Edit
Herve a déjà fourni le code pendant que je rédigeais.
Salut!

1 pièce(s) jointe(s)

Bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub UserForm_Initialize()
  Dim a(1 To 4, 1 To 5)
  Set champ = Range("H35:H54")
  For i = 1 To 4
    For j = 1 To 5
      a(i, j) = champ.Cells(((i - 1) * 5 + j), 1)
    Next j
  Next i
  Me.ListBox1.List = a
End Sub

18/10/2013, 14h36
ThamAL
Merci de vos réponses :ccool:
Pas si simple finalement on dirait (enfin pour moi) :mouarf:

Hervé,
Ca marche très bien, la Listbox s'affiche avec les données sous forme de
tableau 4 x 5, mais...
Lorsque je sélectionne une valeur c'est toute la ligne qui est sélectionnée
soit 5 valeurs aie!

Un paramètre à régler pour sélectionner qu'une valeur ou ce n'est tout simplement pas possible?

J'ai voulu voir ce que cela donnai en récupérant la valeur sur l'événement click

par
Code:

1 2 3 Private Sub ListBox1_Click() Range("h33").Value = ListBox1.Value End Sub
Il ne se passe rien... là je ne comprend pas trop pourquoi...

JB,
Ca marche beaucoup moins bien je n'ai que la premiere colonne de rempli...
18/10/2013, 14h46
boisgontierjacques

En ouvrant la PJ, on peut constater que les 5 colonnes sont visibles.

jacques boisgontier
18/10/2013, 14h56
ThamAL

C'est vrai!
C'est moi qui ai du modifier quelque chose en manipulant les propriétés de ma Listbox mea culpa

Par contre même souci qu'avec la méthode de Hervé, je ne peux pas sélectionner une valeur, uniquement une ligne...

Sur l'évenement click je récupère bien la valeur de la listBox qui est celle de la première colonne.

1 pièce(s) jointe(s)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim Btn(1 To 20) As New ClasseBoutons
Private Sub UserForm_Initialize()
  For i = 1 To 20
   Set Btn(i).GrBoutons = Me("commandbutton" & i)
   Me("CommandButton" & i).Caption = Cells(34 + i, "h")
  Next i
End Sub
 
Module de classe
Public WithEvents GrBoutons As Msforms.CommandButton
Private Sub GrBoutons_click()
  [H33] = GrBoutons.Caption
End Sub

jacques boisgontier

18/10/2013, 16h34
ThamAL

Whaa!
C'est tout à fait ce type d'interface que je recherchais!
Je n'ai plus le temps de tester ça ce soir, je verrai ça la semaine prochaine.

En tout cas merci pour ton aide Jacques.

Tham

heu...

Bonjour
il y avais un truc encore plus simple
puisque tes colonne de listbox font 50 c'est facile de repérer quelle colonne tu selectionne en gardant le code de remplissage de Hervé

avec
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub ListBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) if X<50 then 'colonne 1 elseif X>50 then 'colonne 2 elseif X>100 then 'colonne 3 ''ect...... End Sub