Identifier la dernière ligne vide d'une feuille

Question

Bjr, me revoici

J'avais trouvé ici de l'aide pour identifier la dernière ligne vide d'une feuille, afin d'y incrire des données.

Voici en gros le code que j'ai adapté (sorti de son contexte):

Private Sub CommandButton1_Click()

Dim ligne As Long

Sheets("plan").Select

ligne = Range("A1").End(xlDown).Row + 1

Cells(ligne, 1).Value = CDate(TextBox1.Text)

Unload UserForm1

UserForm1.Hide

End Sub

Ca marche impec, SAUF si les lignes 1 et 2, ou 1 ou 2, de la feuille sont vides.

Excel me dit alors "Erreur 1004, erreur définie par l'application ou par l'objet"

Y a t il moyen de résoudre ça ( de manière simple) ?

merci !!

Raja · Answer

Remplace la ligne ligne = Range("A1").End(xlDown).Row + 1 par la suivante : ligne = Range("A65536").End(xlUp).Row...

CB60 · Answer

J'aurais mis cela??? Sheets("contacts").Select ligne = Range("A65536").End(xlUp).Offset(1, 0).Row Cells(ligne, 1).Value = CDate(Now)...