Erreur, La méthode PasteSpécial de la Classe Range a échoué. Résolu

Question

Bonjour à vous toutes et tous,

La macro ci-dessous me sert à copié une liste que l'utilisateur crée en choisissant un nombre variable de produit.  Cette liste est dans la colonne B de la feuille Recap. Une fois copiée, cette liste est collée dans la feuille Général depuis la cellule N2.

Cette macro bloque sur le collage, dès : ".Range("N2")....." que la macro donne le message suivant : Erreur, La méthode PasteSpécial de la Classe Range a échoué

Ce qui me perturbe, c'est que si je se remonte l'indicateur de la macro à : " With Worksheets("Recap") " et que je presse F5, la macro se passe sans problème.

Voilà, qui peut m'aider.
PS : j'ai également essayé avec  :  ActiveSheet.Paste , mais le problème est le même.


 'Reporter 
    With Worksheets("Recap")
        X = 8
        While .Range("B" & X) <> ""
            X = X + 1
        Wend
        X = X - 1
        .Range("B8", "B" & X).Copy
        With Worksheets("Général")
            .Activate
            .Unprotect
            .Range("N2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
            Application.CutCopyMode = False
            .Protect
        End With
        Sheets("Recap").Activate
    End With

D'avance je vous remercie, et vous adresse mes meilleures salutations

michel_m · Answer

bonjour

essaies
With Worksheets("Recap")    X = .Columns("B").Find("*", , , , , xlPrevious).Row    tampon = .Range("B8", "B" & X) End With With Worksheets("Général")    .Unprotect    .Range("N2:N" & X - 6) = tampon     .Protect End WithEnd Sub 
 
 Michel

Erreur, La méthode PasteSpécial de la Classe Range a échoué.

1 réponse

Discussions similaires

Newsletters