Copier une ligne de listbox vers feuille

[Birgz]

Bonjour,

J'ai vu et étudier beaucoup de sujet sur divers forums concernant ma demande mais j'ai un soucis dans mon code.

Je cherche à copier une ligne d'une listbox (qui se trouve dans un userform) vers une feuille excel dans un tableau.
Cela se résume grossièrement à un couper/coller car je supprime la ligne dans la listbox après.
Cela me sert à clôturer des actions lorsqu'une textbox est rempli.

Mon problème est que les lignes se mettent/collent de façons "hasardeuse" dans la feuille et maintenant uniquement dans la 2ème ligne. Donc mes anciennes valeurs dans la ligne 2 se remplace systématiquement.

 '-------Déplacement de la ligne terminé vers la feuille action terminé
Dim Derniere_ligne As Long
Derniere_ligne = Sheets("Action terminé").Range("A" & Rows.Count).End(xlUp).row + 1
'Range("A" & Rows.Count).End(xlUp).Offset(1).Select

If TextBox9.Value <> "" Then
    If MsgBox("Etes-vous certain de vouloir cloturer cette action ?", vbYesNo, "Demande de confirmation") = vbYes Then
        For numlignevide = 2 To Derniere_ligne
        'For numlignevide = 2 To Range("A" & Rows.Count).End(xlUp).row + 1
            If Cells(numlignevide, 1) = "" Then
        Exit For
            End If
        Next
    For i = 1 To 11
    Sheets("Action terminé").Cells(numlignevide, i).Value = Me.ListBox1.List(ListBox1.ListIndex, i - 1)
    Next
Sheets("BD matériel").Rows(ListBox1.ListIndex + 2).Delete
MsgBox "L'action a été cloturée et déplacée!"
    End If
End If
'------

En espérant avoir été clair dans mon exposé de problème.

Vous souhaitant de bonnes fêtes de fin d'année.

Quentin

 

[ERIC S]

Bonjour

je n'ai pas regardé à fond mais une première piste :
tu calcules une fois pour toute ton derligne (avant les tests et boucles) donc il ne s'incrémente jamais.
Quand tu écris une nouvelle valeur il faut faire ensuite derligne = derligne +1

 

[Birgz]

Bonjour,

Merci pour ta réponse qui m'aide beaucoup.

Il y avait de ça et j'avais aussi oublié de renseigner la feuille pour mon 3ème If.

Bonnes fêtes,

Quentin