Centrer les titres de colonne d'une listbox

apdf1

XLDnaute Impliqué
Bonjour,

Je recherche a centrer les titres de colonne dans ma ListBox.
Voici mon code:
Code:
Option Explicit
Private Sub UserForm_Initialize()
Dim maplage As Range, i As Integer
With ListBox1
    .ColumnCount = 6
    .ColumnHeads = True
    .RowSource = Range("B9:G" & Range("B65536").End(xlUp).Row).Address
End With
End Sub

Si quelqu'un a une idée je suis preneur et le remercie d'avance.

Bonne journée

Max
 

JNP

XLDnaute Barbatruc
Re : Centrer les titres de colonne d'une listbox

Salut Max :),
Avec 2 ListBox par exemple :
Code:
Private Sub UserForm_Initialize()
Dim maplage As Range, i As Integer
With ListBox1
    .ColumnCount = 6
    .RowSource = "B9:G9"
    .TextAlign = fmTextAlignCenter
End With
With ListBox2
    .ColumnCount = 6
    .RowSource = Range("B10:G" & Range("B65536").End(xlUp).Row).Address
    .TextAlign = fmTextAlignLeft
End With
End Sub
Bon dimanche :cool:
 

Discussions similaires

Réponses
1
Affichages
194
Réponses
29
Affichages
1 K

Statistiques des forums

Discussions
312 472
Messages
2 088 709
Membres
103 928
dernier inscrit
MIKETUAU