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

Signaler
-
 JoeLaBricole -
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

1 réponse

Messages postés
16491
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
21 juillet 2021
3 199
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 With

End Sub


 Michel

Génial,

Un grand merci à vous michel_m

Bonne journée à vous