vba=erreur de compil sub non defini

[steve]

desole d'ouvrir un nouveau fil mais je suis coincer et n'arrive pas a resoudre ce probleme. cette macro devrait me permettre de selectionner une ligne entiere en renseignant le N° de la ligne que je desire et ensuite la coller dans ma feuille 2 a la 1ere ligne vide. merci de m'aider. steve

Sub couper_ligne()

premligne_don = InputBox('Numéro de ligne de à couper dans feuille1', , 2)
premligne_don = premligne_don * 1

If réponse <> 7 Then
Sheets(1).Select
Rows(premligne_don).Select
Selection.Cut
Sheets(2).Activate
Range('a1').Activate
ActiveCell.End(xlDown).Activate
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If

 

[titcoeur]

Bonjour steve
il manque end sub, non ?

 

[Claudy]

Bonjour...

Sub couper_ligne()

premligne_don = InputBox('Numéro de ligne de à couper dans feuille1', , 2)
premligne_don = premligne_don * 1

If réponse <> 7 Then
Sheets(1).Select
Rows(premligne_don).Select
Selection.Cut
Sheets(2).Activate

Range('a1').End(xlDown).Offset(1, 0).Select

ActiveSheet.Paste
End If

End Sub
A+

 

[nouveau probleme]

ok mlerci pour end sub. je debute dans le vba et ce n'est pas facile. maintenant la macro commence a fonctionner. la fenetre me demandan quelle ligne je veux copier s'affiche par contre quand je valide la feuille 2 s'affiche et le code 400 message d'erreur s'afffiche!!!!!qu'est ce que je dois faire MERCI. steve

 

[Claudy]

Re bonjour...
met qqchose dans A1 et A2 de ta feuille 2...
sinon envoies ton fichier qu'on y jette un oeil 😉
a+

 

[steve]

merci c super