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