Alignement colonne LIstBox

Salut Christophe,
Une bidouille, sinon regarde du coté "Rset" et "Lset" :

Private Sub UserForm_Initialize()
Dim Texte As String
With Me.ListBox1
.ColumnCount = 2
.ColumnWidths = "45;45"
.AddItem "Element 1"
.AddItem "Element 2"
.AddItem "Element 3"
.AddItem "Element 4"
Texte = 1
Texte = Space(20 - (Len(Texte) * 2)) & Texte
.Column(1, 0) = Texte
Texte = 20
Texte = Space(20 - (Len(Texte) * 2)) & Texte
.Column(1, 1) = Texte
Texte = 300
Texte = Space(20 - (Len(Texte) * 2)) & Texte
.Column(1, 2) = Texte
Texte = 4000
Texte = Space(20 - (Len(Texte) * 2)) & Texte
.Column(1, 3) = Texte
End With
End Sub

Hervé.

"CS78" <christophe.simardnospam@wanadoo.fr> a écrit dans le message news:
bo2jnj$klh$1@news-reader1.wanadoo.fr...

Bonjour,

Dans un UserForm, j'ai un ListBox avec 4 colonnes, je voudrais faire un
alignement à droite pour la colonnes numéro 3.
Comment faire ?

Merci

CS