olivier1976
XLDnaute Nouveau
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
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