Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 mise en forme différente dans listBox

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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
 
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:
merci. comment fait-on pour editer les colonnes dans l'UF ?
 
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:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
68
Affichages
8 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…