"La méthode Paste de la classe Worksheet a échoué"

Résolu/Fermé

Armandra Messages postés 4 Date d'inscription jeudi 18 décembre 2014 Statut Membre Dernière intervention 21 août 2017 - Modifié par pijaku le 19/12/2014 à 11:06
Armandra Messages postés 4 Date d'inscription jeudi 18 décembre 2014 Statut Membre Dernière intervention 21 août 2017 - 18 déc. 2014 à 15:36

Bonjour à toutes et à tous,

Je me retrouve sur une bête erreur VBA lors d'un ActiveSheet.Paste. Voici mon code:

Dim Cel_reso As Range



    Set Cel_reso = Cells.Find(What:="Résolution")



        If Not Cel_reso Is Nothing Then
        Cells(1, Cel_reso.Column).Resize(Cells(Rows.Count, Cel_reso.Column).End(xlUp).Row).Cut
        Columns("A:A").Insert Shift:=xlToRight
        Range("A1").Select
        ActiveSheet.Paste


        End If

Et l'erreur se positionne sur "ActiveSheet.Paste"

Merci d'avance de votre aide à tous !

A voir également:

Erreur d'exécution 1004 la méthode paste de la classe worksheet a échoué
La méthode range de l'objet _global a échoué ✓ - Forum VB / VBA
La méthode range de l'objet worksheet a échoué ✓ - Forum VB / VBA
La connexion a échoué - Forum Réseaux sociaux
Classez ces fichiers de la plus petite taille (1) à la plus grande (4). - Forum Bases de données
Telechargement du firmware a echoue - Forum Box et Streaming vidéo

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
18 déc. 2014 à 14:04

Bonjour,

Le code suivant est suffisant :

Dim Cel_reso As Range
Set Cel_reso = Cells.Find(What:="Résolution")
If Not Cel_reso Is Nothing Then
Cells(1, Cel_reso.Column).Resize(Cells(Rows.Count, Cel_reso.Column).End(xlUp).Row).Cut
Columns("A:A").Insert Shift:=xlToRight
Range("A1").Select
End If

A+

Discussions similaires

Erreur sur un code VBA (AutoFilter)

Erreur '1004' Méthode autofilter de la classe range a échoué

Méthode Select de la classe Range

Erreur 1004-La méthode Sort de la classe Range a échoué

Erreur 1004 - La méthode Select de la base Range a échoué

VBA - Macro Filtre automatique - Erreur 1004

Discussions similaires

Newsletters