XL 2016 Séparateur de milliers dans listbox

[KTM]

Bonsoir chers tous
Dans mon listbox multicolonnes je fais afficher des données contenues dans une plage.
Les séparateurs de milliers sont appliqués aux valeurs de ma plage mais ce qui n'est pas le cas dans mon listbox.
Comment appliquer les séparateurs de milliers aux chiffres affichés dans le listbox ? MERCI.

 

[ChTi160]

Bonsoir KTM
en formatant les données lors de l'approvisionnement de ta ListBox ! (peut être !)
Bonne continuation
Jean marie

 

[JM27]

bonsoir
A tester
au chargement .text
exemple Me.listBox(me.listbox.listcount-1, 0)=range("A1").text

 

[mapomme]

Bonsoir à tous,

Une piste dans le fichier joint.

 

[KTM]

ex

Bonsoir à tous,

Une piste dans le fichier joint.

exactement ce qui me faut . Merci!!!

 

[cp4]

Bonsoir à tous,

Une piste dans le fichier joint.

Bonjour KTM, Mapomme,

@KTM : excuses mon intrusion.
@mapomme : Stp, comment as-tu déterminé 13 dans t(i, 1) = Space(13 - Len(t(i, 1))) & t(i, 1)
Avec mes remerciements anticipés.

Joyeuses fêtes de fin d'année.

 

[job75]

Bonjour à tous,

Testez :

Private Sub UserForm_Initialize()
Dim c As Range
For Each c In Range("a2:a13")
    ListBox1.AddItem c.Text
Next
End Sub

La méthode AddItem et la lecture de la propriété .Text prennent un peu de temps.

Sur 60 000 cellules la ListBox se charge en 4,5 secondes chez moi.

A+

 

[job75]

En utilisant la propriété RowSource l'ouverture de l'UserForm est immédiate sur 60 000 cellules.

 

[mapomme]

Stp, comment as-tu déterminé 13 dans t(i, 1) = Space(13 - Len(t(i, 1))) & t(i, 1)

Bonjour @cp4,

Le 13 a été déterminé de maniéré arbitraire.
Sinon la v2 détermine cette valeur par calcul (d'ailleurs, on trouve 12 et non 13).

 

[cp4]

Bonjour @cp4,

Le 13 a été déterminé de maniéré arbitraire.
Sinon la v2 détermine cette valeur par calcul (d'ailleurs, on trouve 12 et non 13).

@mapomme : Merci beaucoup. C'est parfait pour moi.

Joyeux réveillon

 

[KTM]

Merci à tous pour vos contributions!!