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

Alignement des chiffres dans une ListBox

  • Initiateur de la discussion Initiateur de la discussion apt
  • Date de début Date de début

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 !

apt

XLDnaute Impliqué
Bonjour à tous,

Comment aligner à droite, des chiffres dans une ListBox, comme est le cas dans une cellule ?

Code:
Private Sub UserForm_Initialize()
    With Me.ListBox1
    .AddItem Format("300", "# ##0.00")
    .AddItem Format("1500", "# ##0.00")
    .AddItem Format("754300", "# ##0.00")
    End With
End Sub

Merci d'avance.
 
Re : Alignement des chiffres dans une ListBox

Bonjour bqtr,

Pour une seule colonne ca fonctionne très bien.

Mais s'il y'a une autre colonne qui contient du texte. Ca ne va pas aller ...

Peut-on avoir un alignement spécifique à la colonne des chiffres seulement ?

Merci.
 
Re : Alignement des chiffres dans une ListBox

Re,

A ma connaissance non. L'alignement est pour toute la listBox.

En utilisant une ListView ca doit être possible il me semble.

A+

Edit : je viens de vérifier avec une LisView. tu peux agir différemment sur chaque colonne
 
Dernière édition:
Re : Alignement des chiffres dans une ListBox

Re,

Voici un lien sur Les ListView de MichelXLD. Tu peux télécharger le PDF ainsi que le fichier démo (tout en bas). ICI

Pour l'alignement dans les colonnes voici un exemple de code :

Code:
With ListView1
        With .ColumnHeaders
            .Clear 'Supprime les anciens entêtes
            
            'Ajout des colonnes
            .Add , , "DATE", 60
            .Add , , "N°Ecriture", 70, [COLOR=Blue]lvwColumnRight[/COLOR] 'afficahe à Droite
            .Add , , "N°Identification", 70, lvwColumnRight '
            .Add , , "Noms", 70, lvwColumnRight
            .Add , , "Prenoms", 70, lvwColumnRight
            .Add , , "N°Compte", 70, [COLOR=Blue]lvwColumnCenter[/COLOR] 'affichage centré
            .Add , , "Periode", 70, lvwColumnRight
            .Add , , "Montant", 70, [COLOR=Blue]lvwColumnLeft[/COLOR] 'affichage à gauche
        End With
    
        .View = lvwReport 'affichage en mode Rapport
        .Gridlines = True 'affichage d'un quadrillage
        .FullRowSelect = True 'Sélection des lignes complètes
End With

Bonne nuit
 
- 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
7
Affichages
189
Réponses
10
Affichages
315
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
365
Réponses
2
Affichages
249
Réponses
3
Affichages
205
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
583
  • Question Question
XL 2021 listbox
Réponses
18
Affichages
305
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…