Incrémenter première cellule vide

Bonjour,

je tente d'écrire une macro me permettant de renseigner un tableau par des combobox.

je souhaiterai que chaque donnée s'incrémente dans le tableau à la 1ère cellule vide (de la colonne mentionnée).

voici ma macro qui fonctionne mais en renseignant toujours la ligne 4 évidemment :

Sub AidePermis()

Dim NouvelleAide As Permis

NouvelleAide.Identifiant = InputBox("Saisir l'identifiant")

Sheets("Feuil1").Range("A4") = NouvelleAide.Identifiant

NouvelleAide.Nom = InputBox("Saisir le nom")

Sheets("Feuil1").Range("B4") = NouvelleAide.Nom

NouvelleAide.Prénom = InputBox("Saisir le prénom")

Sheets("Feuil1").Range("C4") = NouvelleAide.Prénom

NouvelleAide.Rsa = InputBox("Le DE est-il au RSA (Oui/Non) ?")

Sheets("Feuil1").Range("D4") = NouvelleAide.Rsa

NouvelleAide.Date = InputBox("Saisir la date de la demande (jj/mm)")

Sheets("Feuil1").Range("E4") = NouvelleAide.Date

End Sub

J'ai tenté de modifié Range("A4") par Range("A4").End(XlDown).Offset(1)

mais sans succès.

Quelqu'un a-t-il le truc qu'il me manque ?

Merci d'avance.

Bonjour,

avec variable, ici "Lg"

Sub AidePermis()
Dim Lg%
Dim NouvelleAide As Permis
    Lg = Sheets("Feuil1").Range("A65536").End(xlUp)(2).Row

    NouvelleAide.Identifiant = InputBox("Saisir l'identifiant")
    Sheets("Feuil1").Range("A" & Lg) = NouvelleAide.Identifiant
    NouvelleAide.Nom = InputBox("Saisir le nom")
    Sheets("Feuil1").Range("B" & Lg) = NouvelleAide.Nom
    NouvelleAide.Prénom = InputBox("Saisir le prénom")
    Sheets("Feuil1").Range("C" & Lg) = NouvelleAide.Prénom
    NouvelleAide.Rsa = InputBox("Le DE est-il au RSA (Oui/Non) ?")
    Sheets("Feuil1").Range("D" & Lg) = NouvelleAide.Rsa
    NouvelleAide.Date = InputBox("Saisir la date de la demande (jj/mm)")
    Sheets("Feuil1").Range("E" & Lg) = NouvelleAide.Date
End Sub

Amicalement

Claude

Rien à redire :

précis, simple, efficace.

Merci beaucoup !

Je vais pouvoir continuer à travailler !