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

Question

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 !

Gyrus · Accepted Answer

Bonjour,

Le code suivant est suffisant :

Dim Cel_reso As RangeSet Cel_reso = Cells.Find(What:="Résolution")If Not Cel_reso Is Nothing ThenCells(1, Cel_reso.Column).Resize(Cells(Rows.Count, Cel_reso.Column).End(xlUp).Row).CutColumns("A:A").Insert Shift:=xlToRightRange("A1").SelectEnd If

A+

Armandra · Answer

Ca marche nickel, merci beaucoup!

Bonne journée.

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

2 réponses

Discussions similaires

Newsletters