renseigner N° de la ligne à couper

[husaberg]

bonjour a tout le monde

voila j'ai crée une macro qui me permet de selectionner une ligne entiere dans ma feuille et puis de la coller dans la feuille 2.
Seulement je voudrais savoir comment on fait pour rajouter une petite fenetre qui me demanderait quelle ligne je souhaite selectionner, et qu'automatiquement en feuille 2 cela se copie à la suite dans la colonne 1. Merci beaucoup d'avance

 

[titcoeur]

Bonjour husaberg

Essaie ce code et dis-moi si c'est ce que tu cherchais - sinon, on avisera :

Sub couper_ligne()
    Dim réponse As Integer
    premligne_don = InputBox('Numéro de ligne de à couper dans feuille1', , 2)
    premligne_don = premligne_don * 1
    
    If réponse <> 7 Then
        
        Sheets('feuil1').Select
        Rows(premligne_don).Select
        Selection.Cut
        
        Sheets('feuile2').Activate
        Range('a1').Activate
        ActiveCell.End(xlDown).Activate
        ActiveCell.Offset(1, 0).Select
        ActiveSheet.Paste
    End If


End Sub

Bon courage

Message édité par: titcoeur, à: 10/08/2005 11:52

 

[husaberg]

hello merci mais le message suivant apparait a l'exxecutuion de la macro
erreur de compilation : erreur de syntaxe
et dans visual basic la ligne dimreponse as integer est surligne !!!! merci

 

[titcoeur]

Salut

Commence par enlever la ligne dim réponse (on verra après)

Ensuite, vérifie que les feuilles sont bien nommées feuil1, ...

ou feuille1, ou ???? (j'ai exvel anglais donc pour moi c'est sheet1

et sinon, changer dans le code Sheets('feuil1').Select

Je vois que dans mon code , des ; se sont glissés partout. Or, je les vois pas quand je tappe. Si tu les as repris dans ton code il faut les enlever.

si ça ne marche pas,

on verra avec un fichier

 

[toujours pas]

j'ai essaye tout ce que tu m'a dis mais pas moyen alors je t'envoi le fichier merci bien.

 

[titcoeur]

En résumé , et en plus clair peut-etre

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

Message édité par: titcoeur, à: 10/08/2005 14:02

Message édité par: titcoeur, à: 10/08/2005 14:04

 

[titcoeur]

ton fichier n'est pas passé

retappe ce 'beau' code tout neuf ci-dessus et donne m'en des nouvelles.
il marche au poil chez moi.