Ajouter des elements d'une listbox a une autre

Bonjour,

J'ai le tableau suivant

Je dois choisir un élément de la liste "Liste de toutes les lames" puis en cliquant sur le bouton "Ajouter lame en service", l'élément sélectionné se rajoute dans la listbox " Liste lame en Service".

Le code est le suivant:

Private Sub Ajout_Lame_S_Click()
Dim ws_Lame As Worksheet
Dim Modele As String
Dim dl As Integer
Modele = "Liste_Lame_" & Me.TextBox1.Value
If Me.ListBox_Lames.ListIndex = -1 Then
    MsgBox ("Veuillez choisir une lame de la liste de toutes les lames")
Else
    Set ws_Lame = ActiveWorkbook.Worksheets(Modele)
    dl = ws_Lame.Range("A65530").End(xlUp).Row
    ws_Lame.Activate
    Nom_LamesS = Me.ListBox_Lames.Value
    ws_Lame.Cells(dl + 1, 5) = Nom_LamesS
    'Mettre a jour la liste
    For i = 2 To dl
        Me.ListBox_LamesS.AddItem ws_Lame.Range("E" & i)
    Next
End If
MsgBox ("Lame ajoutée a la liste lames en Service!")
End Sub

Je ne sais pas que est ce qui manque dans ce code car rien ne se rajoute a la liste cible :/

Bonjour,

La lame s'inscrit bien > mais en ligne 90 ...

dl = ws_Lame.Range("A65530").End(xlUp).Row

Tu fais détecté la dernière ligne sur la colonne A > alors que la colonne de "Lame en service" est la colonne E ...

ric

Re,

j'ai rectifié mon erreur en remplaçant la colonne A par E et la ca marche.

Merci