Alignement des chiffres dans une ListBox

[apt]

Bonjour à tous,

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

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.

 

[bqtr]

Re : Alignement des chiffres dans une ListBox

Bonsoir apt

Utilise la propriété TextAlign

ListBox1.TextAlign = fmTextAlignRight

A+

 

[apt]

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.

 

[bqtr]

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

 

[apt]

Re : Alignement des chiffres dans une ListBox

J'ai essayé, mais je ne sais pas comment ajouter et controler les colonnes d'une ListView ...

 

[bqtr]

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 :

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

 

[apt]

Re : Alignement des chiffres dans une ListBox

Merci bqtr et bonne nuit 😉