Copier le texte affiché dans ma textbox1 a partir de la cellule A25
phil
-
Paf -
Paf -
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
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
3 réponses
-
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+ -
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 -
Si la dernière ligne vide est avant la ligne 25:
Nlig = .Range("A" & Rows.Count).End(xlUp).Row + 1
If 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+
