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

[Résolu/Fermé]
Signaler
Messages postés
4
Date d'inscription
jeudi 18 décembre 2014
Statut
Membre
Dernière intervention
21 août 2017
-
Messages postés
4
Date d'inscription
jeudi 18 décembre 2014
Statut
Membre
Dernière intervention
21 août 2017
-
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 !

2 réponses

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
535
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+
2
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

Messages postés
4
Date d'inscription
jeudi 18 décembre 2014
Statut
Membre
Dernière intervention
21 août 2017

Ca marche nickel, merci beaucoup!

Bonne journée.