trouver la premiere ligne vide

[JORDAN]

Bonjour tout le monde,

Dans le code ci dessous j ai un probleme pour trouver
la 1ere ligne vide
Excel dit : la méthode 'Range' de l'objet '_Global' a échoué
Avez vous une idée sur le probleme
Merci

Code:
Private Sub CommandButton7_Click()
Dim RefArt as string
Dim DerligRef As Integer

RefArt = TextBox1.Value

With Sheets("RECEPTION PRESSE")
    DerligRef = Range("RECEPTION PRESSE!A60000").End(xlUp).Row
    Cells(DerligRef, 1) = RefArt
End With

TextBox1.Visible = False
TextBox2 = ""
TextBox2.Visible = True
TextBox2.SetFocus
CommandButton7.Visible = False
CommandButton8.Visible = True

End Sub

 

[PascalXLD]

Re : trouver la premiere ligne vide

Bonjour

essaies en remplaçant

DerligRef = Range("RECEPTION PRESSE!A60000").End(xlUp).Row

par

DerligRef = .Range("A65536").End(xlUp).Row

 

[JORDAN]

Re : trouver la premiere ligne vide

Bonjour Pascal,

Merci pour ton aide
Effectivement ça fonctionne très bien
je pense qu'avec With le nom de la feuille faisait double emploi
Encore merci