Lignes variables

Bonjour à tous, je bute sur une petite ligne de code et je ne trouve pas de solution sur Internet.

J'aimerais écrire le contenu de la TextBox2 depuis la ligne Active jusqu'à la dernière ligne dans la colonne A ...

Définir la ligne Active dans la colonne A, pas de problème :

Dim WS As Worksheet
Set WS = ActiveSheet

Ligne = WS.Range("A456541").End(xlUp).Row + 1

Cells(Ligne, 1) = Me.TextBox2.Value

Mais avec ce code il ne m'écrit la valeur que sur la ligne active.

J'ai également trouvé sur ce site un code permettant de trouver la dernière ligne :

Dim derniereLigne As Long
    derniereLigne = Cells(Rows.Count, 1).End(xlUp).Row

J'ai essayé d'adapter/combiner les deux mais rien n'y fait.

Quelqu'un aurait -il la gentillesse de m'aider ? Merci d'avance ;)

Bonjour,

Qu'entendez-vous par ligne active ?

Ici, je vois que la ligne active est la première ligne non vide (celle qui suit la dernière ligne).

Mais pour le principe, on pourrait faire :

with activesheet
    dl = .cells(.rows.count, 1).End(xlUp).Row
    nvl = dl + 1
    .range("A" & dl & ":A" & nvl) = Me.TextBox2.Value
end with

qui reviendrait en fait à

cells(rows.count, 1).End(xlUp).resize(2) = Me.TextBox2.Value

Cdlt,

Bonjour 3GB,

Vous avez totalement compris, ma "ligne active" est la première ligne non vide :)

Par contre les codes que vous écrivez ne "fonctionne pas", il n'affiche pas d'erreur mais le résultat obtenu n'est pas celui escompté. Ils m'ont cependant permis de trouver une solution qui fonctionne. Je vous la joins : sachant que 32 est le nombre total de ligne dans ma feuille (c'est une valeur fixe).

j = 32 - Ligne

    Cells(Ligne, 1).Resize(j) = Me.TextBox1.Value

Merci pour votre temps ;)