Discussion :

[Merryy]

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

[Thautheme]

Bonjour Merry, bonjour le forum,

Peut-être comme ça (si j'ai bien compris...) :

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
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.Selected(x) = True Then
                addme = Me.ListBox1.List(x)
                addme.Offset(0, 3) = Me.ListBox1.List(x, 2)
                Set addme = addme.Offset(1, 0)
                Me.ListBox1.Selected(x) = False
            End If
        Next x
    End If
End With
Me.Hide
End Sub

Attention, ligne 11 de ton code tu as LisBox& à la place de ListBox1 !

[Merryy]

coucou c'est juste une erreur clavier

[Thautheme]

Re,

Tu ne me dis pas si ma proposition fonctionne !?...

[Merryy]

coucou toujours il saute les lignes la 1ere fois

[Thautheme]

Re,

Ce n'est pas clair ton problème. Est-ce que c'est comme ça que tu fais ?

• Tu sélectionnes plusieurs éléments dans la ListBox1
• Tu cliques sur un bouton pour envoyer la liste des éléments sélectionnés vers une plage de cellules (dont le nombre varie en fonction du nombre d'élément sélectionnés) qui commence à la cellule déterminée par la variable addme.
Là, tu nous dis qu'il décale de plusieurs cellules vers le bas le premier élément. C'est ça ?

[Édition]
Rajoute dans ton code, addme.Select et fait un point d'arrêt just'après. Si addme est décalée c'est qu'il y a des cellules sales, Il faut nettoyer la colonne en la supprimant...