Passer a la cellule en bas

Bonjour

J'ai un petit problème concernant un code VBA et je me permet de vous demandez votre aide.

J'ai crée un tableau ou je doit mettre des valeurs dans la colonne A avec un inputbox

Par exemple, je met la valeur 100 dans la cellule A1

Puis je relance le macro inputbox dans lequel je renseigne une autre valeur 200

Je veux que 200 soit inscrit dans la cellule A2 et ainsi de suite

J'ai crée un code qui ouvre inputbox et j'inscrit une valeur et ça met dans A1 jusqu'à la pas de problème mais quand je relance le macro ça efface A1 et inscrit la nouvelle valeur dans A1.

J'ai rajouté RANGE mais ça fait une erreur

Pouvez me dire ce qui ne va pas

Merci

Sub AjoutConnexion()

    Dim Ajoutdata As Range
    Dim AjoutNom As String

    Set Ajoutdata = Range(Rows.Count, 1)  .End(x1Up)  .Offset(1, 0)

    AjoutNom = InputBox("Tapez votre prénom :", "connexion Login")

    If AjoutNom = Empty Then Exit Sub

    Ajoutdata.Value = AjoutNom

End Sub

Bonjour,

Tu peux tester la modif suivante :

Sub AjoutConnexion()
    Dim Ajoutder As Long
    Dim AjoutNom As String
    Ajoutder = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1    
    AjoutNom = InputBox("Tapez votre prénom :", "connexion Login")
    If AjoutNom = Empty Then Exit Sub
    Range("A" & Ajoutder).Value = AjoutNom
End Sub

En espèrant que cela t'aide

Merci

Le code fonctionne à merveille .

Bravo pour votre rapidité

MERCI

De rien ...

Content que tu aies pu résoudre ton problème