Bonjour le forum,

j'ai un soucis avec mon code et je n'arrive pas à le resoudre.

j'ai un listbox bien remplie , et je veux avec un bouton valider , envoyer ma selection vers une feuil excel .
et pour cela j'ai le code suivant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
private sub commandbutton1_click()
dim addme as range
dim x as integer 
with worksheets("Suivi")
if isempty(.range("A5").value)then
set addme=.cells(rows.count,1).end(xlup).offset(1,0)
for x=0 to me.listbox1.listcount-1
if me.listbox1.list(x) then
addme=me.listbox1.list(x)
addme.offset(0,3)=me.listbox&.list(x,2)
set addme =addme.offset(1,0)
end if
next x
end if
for x=0 to me.listbox1.listcount -1
if me.listbox.selected(x) then me.listbox1.selected(x)=false
next x
end with 
me.hide
end sub
mon problème , c'est quand je selectionna la première fois, il saute beaucoup de ligne pour enregistrer la valeur , et après , il enregistre la valeur just après. donc le problème c'est just l'ors de la première selection