Discussion :

[oscar.cesar]

bonjour
voila je souhaite realise un affichage multicolonne dans listebox en fonction de conditon issue de combobox .

mais je coince un peu
1) ma listbox n'affiche que le contenu de la 1 er colonne et rien d'autre
2)il semble qu'il n'y a pas d'interaction entre les combobox et l'affichage


merci de votre aide

[illight]

Dans le spropriétés de ta listBox, il faut que ut mette le nombre de colonne que tu veux, et mettre aussi dans le Widtdh les largeurs de tes n colonnes, séparés par des ';', genre :

2;2;3

De plus, pour ma part, je faisait ça :

Code :

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

ListBox1.Column(1, compteur)

au lieu de ce que tu as écrit :

Code :

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

ListBox1.List(i, 0)

Essaye de voir avec Column, et de le faire avec tes données pour voir ce que ça donne

[oscar.cesar]

bonjour illight

merci de tes reponse mais peut etre un peu plus precis
je maitrise pas du tout les listbox et le mulit colonne

[oscar.cesar]

bonjour
actuellement j'ai rajoute suite aux conseil illight


dans mon code

Code :

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

1
2
3
4
5
6
7
 
 
Private Sub UserForm_initialize()
ListBox1.Clear
ListBox1.BoundColumn = 7 'nb de colonne
 
.........................................

au lancement il apparait bien 2 colonne avec la totalite des donnees de la feuil2 mais seulment sur 2 colonnes ?????


alors que j'ai declare 7 colonne
et demander l'affichage sur 7 (pour l'exemple j'en ai que sur 3 )

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 ..........
    If Sheets("feuil2").Cells(lignedebut, 1) = Cu1 And Sheets("feuil2").Cells(lignedebut, 2) = Cu2 And Sheets("feuil2").Cells(lignedebut, 3) = Cu3 And Sheets("feuil2").Cells(lignedebut, 14) = Cu4 Then
    ListBox1.AddItem
    ListBox1.List(j, 0) = Sheets("feuil2").Cells(lignedebut, 1).Value
    ListBox1.List(j, 1) = Sheets("feuil2").Cells(lignedebut, 2).Value
    ListBox1.List(j, 2) = Sheets("feuil2").Cells(lignedebut, 6).Value
    j = j + 1
 
 
    End If

je rajoute comme le montre le la feuil mes donnees ne sont pas forcement contigues....

[oscar.cesar]

partiellement resolu





merci

[oscar.cesar]

bonjour
pour definir mon listbox
à l'initialisation du USF

Code :

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

1
2
3
4
5
6
 
Private Sub UserForm_initialize()
ListBox1.Clear
ListBox1.BoundColumn = 7
ListBox1.ColumnWidths = 40; 20; 30;
.........

il me renvoi une erreur une erreur de syntaxe sur

Code :

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

1
2
 
ListBox1.ColumnWidths = 40; 20; 30;

.
d'apres mezs recherches il semblerait que ce soit la bonne syntaxe.