XL 2016 mise en forme différente dans listBox

marc.gilliand

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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+
 
Dernière édition:

marc.gilliand

XLDnaute Occasionnel
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

XLDnaute Barbatruc
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 :
VB:
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
 
Dernière édition:

Discussions similaires