(Excel 2007) // Erreur d'ex "1004" - méthode PasteSpecial a échoué

Bonjour,

J'ai une erreur qui se produit constamment sur cette macro :

capture d e cran 2020 07 27 a 22 18 51

Le bouton activant cette macro me rends l'erreur suivante :

capture d e cran 2020 07 27 a 22 20 01

Sauriez vous comment réparer cela ?

Merci d'avance !

Bonjour,

Essaie de supprimer la ligne Application.CutCopyMode = False

Bonjour,

J'ai ceci maintenant "Erreur de compilation / Erreur de syntax" avec la ligne du dessous en rouge

Tu fais un cut et ensuite un delete !

Je n'ai aucun problème avec ceci :

    Rows("3:3").Select
    Selection.Cut
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown

Voici l'action détaillé que je souhaite faire

-copie de la ligne 3

-coller (uniquement le texte/valeur sans la mise en forme) de la ligne 3 sur la ligne 2

-suppression de la ligne 3 pour que les lignes 4, 5, 6, 7, 8 etc.. remontent d'une ligne.

BOnjour N26,

Puisque tu ajoutes la ligne à la fin pour supprimer Row(3;3)

tu peux me dire pourquoi ton code commence par : sélection cut ? tu n'as pas besoin de couper copier ; mais copier coller

puisque tu supprimes en fin de code la ligne 3.

Oops mal poli que je suis … bonjour Steelson .

J'ai mis couper par habitude mais copier devrait fonctionner également.

Du coup, j'ai cela mais j'ai la même erreur sur le PasteSpecial

capture d e cran 2020 07 28 a 11 09 45

Je précise que mes macros sont crée via enregistrement.

Bonjour,

Sub test()

    Rows("2:2").Value = Rows("3:3").Value
    Rows("3:3").Delete
End Sub

J'ai mis couper par habitude mais copier devrait fonctionner également.

Du coup, j'ai cela mais j'ai la même erreur sur le PasteSpecial

capture d e cran 2020 07 28 a 11 09 45

Je précise que mes macros sont crée via enregistrement.

ceci marche très bien chez moi

Sub Macro1()
    Rows("3:3").Select
    Selection.Copy
    Rows("2:2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Rows("3:3").Select
    Selection.Delete Shift:=xlUp
End Sub

Mes hommages Xmenpl

C'est parfait ainsi ! Merci beaucoup à vous !

Essaie aussi la méthode JoyeuxNoel, c'est plus simple !

Tu peux aussi clore le sujet en cliquant sur le V de la victoire.

Rechercher des sujets similaires à "2007 erreur 1004 methode pastespecial echoue"