Copier une ligne de listbox vers feuille

  • Initiateur de la discussion Initiateur de la discussion Birgz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Birgz

XLDnaute Nouveau
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.

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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
281
Réponses
5
Affichages
235
Réponses
8
Affichages
233
Réponses
3
Affichages
193
Réponses
2
Affichages
123
Réponses
4
Affichages
177
Retour