Discussion :

[oscar.cesar]

bonjour
je cherche à persionnalise ma liste box

je voudrais que ma premiere ligne soit en gras et soulignee.
que que le reste soit en noir taille 10 .


pour la taille 10

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
17
18
19
20
21
22
23
24
 
.........................
ListBox1.Clear
'ListBox1.BoundColumn = 5
ListBox1.ColumnCount = 6 'nb de colonne
ListBox1.ColumnWidths = "70;80;50;80;50;"
ListBox1.FontSize = 10
'ListBox1.ColumnHeads = True
ListBox1.BackColor = &HFFFF& 'font joaune de la liste boxe
'affichage de la premiere ligne
'pour recuperer les libeles des colonnes de la feuil2 en ligne3
j = 0
    ListBox1.AddItem
    ListBox1.Column(0, j) = Sheets("feuil2").Cells(3, 1).Value 'n°installation
    ListBox1.Column(1, j) = Sheets("feuil2").Cells(3, 2).Value 'type installation
    ListBox1.Column(2, j) = Sheets("feuil2").Cells(3, 6).Value 'site
    ListBox1.Column(3, j) = Sheets("feuil2").Cells(3, 7).Value 'etablissement
    ListBox1.Column(4, j) = Sheets("feuil2").Cells(3, 11).Value 'entreprise
    ListBox1.Column(5, j) = lignedebut '(il faut masque cette ligne en mettant o dans la larguer de la colonne)
j = j + 1
 
'fin de la premiere ligne 
ListBox1.FontSize = 8
...........

et c"'est la que ca merdouille ,. la liste box se redit à 1 ligne avec un minuscule ascenseur ......??????????????

j'ai rien demander juste le changement de font

si quelequn à une idee

[ouskel'n'or]

Mets tes lignes après la boucle, une fois ta liste renseignée

Code :

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

1
2
ListBox1.FontSize = 8
ListBox1.Font.Bold = True

Tu en es où ?

[oscar.cesar]

bonsoir, merci ouk



je reste coince sur 10 colonnes (voir les post qui se sont croisés)