Discussion :

[LANGAZOU]

Bonjour,

j'ai une Listbox au sein de mon USERFORM qui s'alimente à partir d'un COMBOBOX et d'une feuille EXCEL .Cette LISTBOX affiche plusieurs variables sous différents formats( Date, Nombre, Format Texte). je veux que les nombres s'affiche avec le séparateur milliers (pourtant le séparateur de milliers est activé sur les nombres de la feuille Excel).

y'a t-il un moyen d'afficher les nombres dans ma listbox avec le séparateur des milliers ?

Merci pour votre réponses

[parmi]

Bonjour,

De cette façon, ça pourrait fonctionner.
Changer l'espace pour la virgule si c'est le cas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For I = 1 To nbLignes
        Me.ListBox1.AddItem Format(Range("A" & I), "000 000")
    Next

Si tu as plusieurs colonnes, tu vas devoir faire un AddItem vide en premier, puis ajouter les valeurs à chaque colonne au format que tu désires

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        Me.ListBox1.AddItem
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 0) = Format(Range("A" & I), "000 000")
        Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Range("B" & I)

[LANGAZOU]

Merci beaucoup pour votre aide