bonjour dorkahn, re eric
en effet , un petit fichier serait pas mal.
de plus ton code ne doit pas se réalisé : For i = 0 To i - 1
tu parles de vouloir supprimer des données d'une listbox, mais ton code renvoi les données sur une feuille (re
)
enfin, si tu es en multiselection, il te faut tester dans la listbox les éléments sélectionnés :
For X = 0 To List.ListCount - 1
if list(x,0).selected then
Sheet1.Cells(l, 4) = List.List(X, 0)
Sheet1.Cells(l, 5) = List.List(X, 1)
Sheet1.Cells(l, 6) = List.List(X, 2)
Sheet1.Cells(l, 7) = List.List(X, 3)
end if
Next
salut