Copier la listbox

Bonjour,

Je souhaiterai copiés les élements selectionnés dans ma listbox vers une feuille excel.

Mon code est le suivant:

Private Sub CB_suivant201_Click()

Dim colonne_T1 As Integer ' N° de la colonne où l'on va inscrire les composant à modifier pour un point blocant donné
Dim nb_composants As Integer ' nombre de composants à modifier
Dim ligne_pbT1 As Integer

ligne_pbT1 = Sheets("Tableau_AU1").Range("A65536").End(xlUp).Row 'derniere ligne ecrite dans Tableau_au1

nb_composants = UF_quest201.ListBox_ComposantsSelectionnes.SelectedItems.Count()

colonne_T1 = 2 'colonne ou debutes les composants selectionnés

 For i = 0 To UF_201.ListBox_ComposantsSelectionnes.ListCount - 1

    ' Dans la feuille tableaux_AU1
            '.............................

           Sheets("Tableau_AU1").Cells(ligne_pbT1, colonne_T1) = UF_quest201.ListBox_ComposantsSelectionnes.List(i)
           colonne_T1 = colonne_T1 + 1
    Next i

End Sub

Il est écrit : Erreur de compilation . Membre de méthode ou donnée introuvable...

Merci pour votre aide.

Cordialement,

Pianiste21

Bonjour,

voici un exemple

If Me.ListBox1.Selected(i) Then Sheets("Tableau_AU1").Cells(ligne_pbT1, colonne_T1)= Me.ListBox1.List(i, 1)

De la manière qui suit ?

Private Sub CB_suivant201_Click()

Dim colonne_T1 As Integer ' N° de la colonne où l'on va inscrire les composants à modifier pour un point bloquant donné
Dim nb_composants As Integer ' nombre de composants à modifier
Dim ligne_pbT1 As Integer

ligne_pbT1 = Sheets("Tableau_AU1").Range("A65536").End(xlUp).Row 'derniere ligne ecrite dans Tableau_au1

nb_composants = UF_quest201.ListBox_ComposantsSelectionnes.SelectedItems.Count()

colonne_T1 = 2 'colonne où debute les composants selectionnés

 For i = 0 To UF_201.ListBox_ComposantsSelectionnes.ListCount - 1

If Me.ListBox_ComposantsSelectionnes.Selected(i) Then
Sheets("Tableau_AU1").Cells(ligne_pbT1, colonne_T1) = Me.ListBox_ComposantsSelectionnes.List(i, 1)
End If

                     colonne_T1 = colonne_T1 + 1
    Next i

End Sub

Car malheureusement j'ai toujours la même phrase d'erreur ...

re,

Re,

Malheureusement je ne peux pas. Certaines donnés sont confidentielles