S
steve
Guest
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
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