Discussion :

[ncl98]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thautheme]

Bonjour Ncl, bonjour le forum,

peut-être comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ncl98]

Bonjour Thautheme et le forum,

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