Transférer un ListBox dans une feuille

Bonjour,
Dans mon projet, un ListBox est alimenté par des TextBox et ComboBox. Les données enregistrées dans le ListBox sont ensuite transférées d'un seul bloc sur une feuille Excel à la suite des celles transférées lors d'une précédente saisie. "Mon" code renvoie le message d'erreur "Objet requis". A court d'idées, je fait appel au forum. Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub cb_Bordereau_click() Dim a() As Variant Dim DLigne As Integer   Set f = Sheets("test") DLigne = f.Range("A" & Rows.Count).End(xlUp).Row + 1 a = Me.ListBox1.List f.["A" & Dligne].Resize(UBound(a) + 1, UBound(a, 2) + 1) = a   End Sub

---

Bonjour Ncl, bonjour le forum,

peut-être comme ça :

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub cb_Bordereau_click() Dim a() As Variant Dim DLigne As Integer Set f = Sheets("test") DLigne = IIf(f.Range("A1").Value="", 1, f.cells(Application.Rows.Count, "A").End(xlUp).Row + 1) a = Me.ListBox1.List f.Cells(DLigne, "A").Resize(UBound(a, 1) + 1, UBound(a, 2) + 1) = a End Sub

---

Bonjour Thautheme et le forum,

Ça marche. Encore merci et à bientôt.