Inputbox bouton et colonne

Hello tout le monde,

je suis à la recherche d'un petit code Vba pour ajouter une valeur via inputbox lancé par un bouton.

Dont la valeur de ma box irait simplement se mettre dans la colonne A.

Ensuite j'aimerais que chaque valeur ajoutée se rajoute les unes en-dessous des autres dans la colonne A.

Auriez-vous une idée ? :/

Je vous remercie d'avance !!!

Bonjour,

Sub PlacerEnA()
    Dim i&, itm$
    itm = InputBox("Indiquer la mention à porter en A.", "Inscription")
    If itm <> "" Then
        With ActiveSheet
            i = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            .Range("A" & i) = itm
        End With
    End If
End Sub

NB- Si la colonne A est vide, l'inscription débutera ligne 2...

Cordialement.

C'est super franchement c'est exactement ça !! Si maintenant je souhaite commencer colonne A mais ligne 5, que dois-je rajouter ? =)

merci d'avance.

Louis

Bonjour Bobzap, MFerrand,

juste après cette ligne : i = .Range("A" & .Rows.Count).End(xlUp).Row + 1

ajoute : If i < 5 Then i = 5

dhany

super !! ça marche niquel

Par contre je ne comprends pas la déclaration de ma variable. car j'aimerai en rajouter d'autre pour agrandir mon tableau de la même fonction

Louis

Dim i&, itm$ est la même chose que : Dim i As Long, itm As String

okey !! ça fonctionne en effet je vous remercie pour votre aide je vais mettre en résolu !

Louis

merci pour ton retour, et pour avoir passé le sujet en résolu ! je te souhaite bonne continuation !

dhany

Merci Dhany !