XL 2019 Problème format recopie ListBox sur un UserForm

[JLR67]

Bonjour le Forum,

J'ai un problème de format lors de la recopie d'une listbox dans une feuille pour les nombres avec décimal, qui se recopie en format texte alors que les nombres entiers sont bien recopiés.
Les données sont copier dans la listbox1 et des lignes sont sélectionnées pour être placées dans la ListBox2. Les données de la listBox2 sont copiées dans la feuille LA et c'est là que se pose mon problème ou peut être déjà avant.
Je pense que le fichier joint sera plus parlant.
Quelqu'un pourrait m'aider à résoudre mon problème.
En vous remerciant

 

[Dranreb]

Bonsoir.
Mettez cette ligne avant affectation de Tbl à la plage :

    For L = 0 To UBound(Tbl, 1): Tbl(L, 3) = CCur(Tbl(L, 3)): Next L

 

[JLR67]

Bonsoir.
Mettez cette ligne avant affectation de Tbl à la plage :

    For L = 0 To UBound(Tbl, 1): Tbl(L, 3) = CCur(Tbl(L, 3)): Next L

Bonjour Dranreb,
Merci pour le code, il permet effectivement de reporter les nombres "décimal" dans le tableau.
Problème résolu
Bonne continuation à vous et encore merci