copier le texte affiché dans ma textbox1 a partir de la cellule A25 Fermé

Question

Bonjour forum, 

Je souhaiterai avec une macro copier le texte affiché dans ma textbox1 a partir de la cellule A25 et incrémenté a chaque click
ex:
textbox1 affiché Dupont clickbouton copie texte cell A25
textbox1 affiché Tony clickbouton copie texte cell A26
textbox1 affiché Marc clickbouton copie texte cell A27


Merci à vous.

Private Sub CommandButton1_Click()

With Worksheets("Feuil1")

Nlig = .Range("A21" & Rows.Count).Row + 1

.Range("A" & Nlig).Value = TextBox1

End With

End Sub


Configuration: Windows / Firefox 66.0

Paf · Answer

Bonjour,

Peut-être en remplaçant le code pour déterminer la première ligne libre par :

Nlig = .Range("A" & Rows.Count).End(xlUp).Row + 1

A+

loisphil · Answer

Bonjour et merci Paf

oui ça fonctionne.

J'avais ça avant mais ce que je veux c'est démarrer à la cellule A25 et non a la dernière cellule vide

Paf · Answer

Si la dernière ligne vide est avant la ligne 25:

Nlig = .Range("A" & Rows.Count).End(xlUp).Row + 1If Nlig <25 then Nlig=25

A la deuxième écriture Nlig sera =26 ==> OK

Si la dernière ligne vide est après la ligne 25:
Heu... je n'ai pas de solution...

A+

Copier le texte affiché dans ma textbox1 a partir de la cellule A25

3 réponses

Discussions similaires