XL 2016 mise en forme différente dans listBox

[marc.gilliand]

Bonsoir,
J'ai un listbox avec 8 colonnes, j'aimerai que certaines soient "à gauche", d'autres à "droite".
Voici mon bout de code :


Private Sub UserForm_Initialize()

'taille formulaire


UserForm1.Height = 505
UserForm1.Width = 960

'initialisation formulaire
ListBox1.ColumnCount = 8
ListBox1.List = Sheets("ListePaiements").Range("A1:K10000").Value



End Sub

Private Sub ListBox1_Change()

On Error Resume Next

Dim strCol1 As String
Dim TextRow As Long

TextRow = ListBox1.ListIndex
On Error Resume Next
strCol1 = ListBox1.List(TextRow, 0)
Sheets("USF1").Cells(16, 2).Value = strCol1

Me.TextBox2.Value = Sheets("USF1").Cells(4, 2).Value
Me.TextBox12.Value = Sheets("USF1").Cells(18, 2).Value
Me.TextBox10.Value = Sheets("USF1").Cells(19, 2).Value
Me.TextBox9.Value = Sheets("USF1").Cells(20, 2).Value
Me.TextBox28.Value = Sheets("USF1").Cells(21, 2).Value
Me.TextBox11.Value = Sheets("USF1").Cells(22, 2).Value
End Sub

merci de votre aide

 

[job75]

Bonjour marc.gilliand,

Aucune propriété de la ListBox ne concerne l'alignement du texte dans les colonnes.

Le cadrage est à gauche, au centre ou à droite [Edit] pour toutes les colonnes.

Pour cadrer à droite on peut utiliser une police à chasse fixe et ajouter des espaces devant.

Faites une recherche sur ce forum, le problème a déjà été traité.

A+

 

[marc.gilliand]

Bonjour marc.gilliand,

Aucune propriété de la ListBox ne concerne l'alignement du texte dans les colonnes.

Le cadrage est à gauche, au centre ou à droite [Edit] pour toutes les colonnes.

Pour cadrer à droite on peut utiliser une police à chasse fixe et ajouter des espaces devant.

Faites une recherche sur ce forum, le problème a déjà été traité.

A+

merci. comment fait-on pour editer les colonnes dans l'UF ?

 

[ChTi160]

Bonsoir marc
Bonsoir job75 , le Forum
il y aurait bien une solution , mais elle passe par l'utilisation d'une ListView !
voir si tu as ce Composant de dispo sur ta machine ou si tu peux l'installer !
tu as aussi un problème tu Mets :

ListBox1.ColumnCount = 8
ListBox1.List = Sheets("ListePaiements").Range("A1:K10000").Value

soit une listBox dont on definit le nombre de Colonnes à 8 et la plage qu'on lui affecte en contient 11(A:K)
qu'entends tu par :

comment fait-on pour editer les colonnes dans l'UF

Pas de fichier ?
Bonne fin de Soirée
jean marie