Remplir cellules avec une textbox
K
Bonjour le forum,
J'essaye de remplir des cellules à la suite l'une de l'autre, mais mon code doit avoir une erreur!
Il m'indique la méthode range à échoué.
Ci dessous le code en question
Dim lig As Long
lig = Sheets(nomfeuille).Range("A13").End(xlDown).Row + 1
Range("A" & lig).Value = TextBox2.Value
Range("B" & lig).Value = TextBox3.ValueMerci d'avance KoKo
Re bonjour le forum,
J'ai oublier de dire que je dois commencer de remplir mais cellules à partir de la ligne 13,
Merci à tous de votre aide
b
Salut
essayé de changer cette ligne
lig = Sheets(nomfeuille).Range("A13").End(xlDown).Row + 1
par :
lig = Sheets(nomfeuille). Range("A13").End(xlUp).Row + 1
xlDown par xlUp
K
Bonjour,
Je te remercie pour ta réponse , cela fonctionne.
Merci encore KoKo