XL 2016 Userforme

[olivier1976]

Bonjour,

voici un code et j'ai comme message d'erreur le code "1004"

Private Sub CommandButton1_Click()

Dim Ligne As Integer

Ligne = Sheets("Liste BD").Range("a1048576").End(x1Up).Row + 1

Range("a" & Ligne).Value = ComboBox1.Text
Range("b" & Ligne).Value = TextBox1.Text
Range("c" & Ligne).Value = TextBox2.Text
Range("d" & Ligne).Value = ComboBox2.Text
Range("e" & Ligne).Value = ComboBox3.Text
Range("f" & Ligne).Value = ComboBox4.Text
Range("g" & Ligne).Value = ComboBox5.Text
Unload Me
UserForm1.Show

Exit Sub


End Sub

Quelqu'un sait il où j'ai fait une erreur?

merci d'avance

Olivier

 

[JM27]

Bonjour
Ligne = Sheets("Liste BD").Range("a1048576").End(x1Up).Row + 1
(X1up)
a remplacer par
Ligne = Sheets("Liste BD").Range("a1048576").End(xlUp).Row + 1

ou mieux

Ligne = Sheets("Liste BD").Range("A" & Rows.Count).End(xlUp).Row + 1


en plus

Dim Ligne As Integer ?????

plutot

Dim Ligne As long