HELP erreur d'execution 1004

[Ilino]

Bonjour à tous,

Tout d'abord merci de me lire.

je sollicite votre aide suite à une erreur de macro

Erreur d'execution "1004"
la méthode "range" de l'objet" _global " a échoué.

Pouvez-vous m'indiquer où est-ce que j'ai commis des erreurs ?

Merci d'avance pour votre aide.

Private Sub CommandButton1_Click() ' Bouton Ajouter

Ligne = Range("FSEx 2014!a65500").End(xlUp).Row + 1 
Sheets("FSEx 2014").Cells(Ligne, 2) = ComboBox1.Value
Sheets("FSEx 2014").Cells(Ligne, 1) = ComboBox6.Value
Sheets("FSEx 2014").Cells(Ligne, 3) = ComboBox2.Value
Sheets("FSEx 2014").Cells(Ligne, 8) = ComboBox3.Value
Sheets("FSEx 2014").Cells(Ligne, 6) = ComboBox4.Value
Sheets("FSEx 2014").Cells(Ligne, 7) = ComboBox5.Value
Sheets("FSEx 2014").Cells(Ligne, 4) = intitulétextbox.Value
Sheets("FSEx 2014").Cells(Ligne, 5) = statuttextbox.Value
Sheets("FSEx 2014").Cells(Ligne, 9) = TextBox1.Value
Sheets("FSEx 2014").Cells(Ligne, 24) = TextBox3.Value

ComboBox6 = ""
ComboBox2 = ""
ComboBox3 = ""
ComboBox4 = ""
ComboBox5 = ""
intitulétextbox = ""
statuttextbox = ""
TextBox1 = ""
TextBox3 = ""
UserForm1.ComboBox1.Value = ""
UserForm1.CommandButton1.Visible = False
UserForm1.ComboBox1.RowSource = "B2:B" & [B65000].End(xlUp).Row
End Sub

erreur a cette ligne

Ligne = Range("FSEx 2014!a65500").End(xlUp).Row + 1

grazie

 

[Chris401]

Re : HELP erreur d'execution 1004

Bonsoir

Ligne = Sheets("FSEx 2014").Range("a65500").End(xlUp).Row + 1

Cordialement
Chris

 

[Ilino]

Re : HELP erreur d'execution 1004

Bonsoir Chris
ça fonctionne Merci
A+