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.
En espérant avoir été clair dans mon exposé de problème.
Vous souhaitant de bonnes fêtes de fin d'année.
Quentin
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.
VB:
'-------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