VBA Récupérer des données numériques de listbox dans des des cellules Excel

[Dam178]

Bonjour,

Je souhaiterais récupérer des données d'une listbox dans des cellules Excel.

With ListBox1
Sheets(4).Range(Cells(15, 2), Cells(.ListCount + 14, 2)) = .List
End With

mon code fonctionne trés bien si les données sont des chaines de carateres, mais ne fonctionne pas pour des données numériques.

Quelqu'un pourrait-il m'aider ?

Merci

 

[Bebere]

Re : VBA Récupérer des données numériques de listbox dans des des cellules Excel

bonjour Dam
bienvenue
avec ce code

With Sheets(4)
For i = 0 To ListBox1.ListCount - 1
.Cells(i + 15, 2) = CDbl(ListBox1.List(i))
Next i
End With