VBA Couper et Coller erreur

Je suis en train de couper le contenu de la cellule K7 (100) et le coller dans M7 à l'aide de VBA (voir ci-dessous), mais je reçois un message d'erreur (voir ci-dessous). Où vais-je tort?:

Sub CutPaste()    
    Worksheets("Sheet2Test").Activate
    Range("K7").Select
    Selection.Cut
    Range("M7").Select
    Selection.Paste   
End Sub

VBA Couper et Coller erreur

VBA Couper et Coller erreur

Et qui ligne avez-vous l'erreur?
+1 Merci pour votre réponse. Quand je debug, j'obtiens le message d'erreur sur la ligne 6 ( la Sélection.Coller)

OriginalL'auteur Anthony | 2012-11-10

  1. 10

    De son mieux pour éviter Select tout à fait. Utilisez cette

    Worksheets("Sheet2Test").Range("K7").Cut Worksheets("Sheet2Test").Range("M7")
    Il fonctionne très bien, mais j'essaye de comprendre comment cette ligne de coller les données.

    OriginalL'auteur chris neilsen

  2. 6

    Il suffit de remplacer Selection.Paste pour ActiveSheet.Paste , de sorte qu'il serait:

    Sub CutPaste()    
    Worksheets("Sheet2Test").Activate
    Range("K7").Select
    Selection.Cut
    Range("M7").Select
    ActiveSheet.Paste
End Sub

    Qui ferait de la pâte comme vous le vouliez.

    OriginalL'auteur Nelson