[RESOLU] : Erreur : "La méthode pastespecial de la classe range a échoué"

[joedu31]

Bonjour à tous,

Je n'arrive pas à résoudre mon problème avec ce message d'erreur...

"La méthode pastespecial de la classe range a échoué"

Une petite idée? 😕

Sub CopieOngletsFeuill1()

Application.ScreenUpdating = False
    
'=================================================
'Copie de la feuille 1
'=================================================

    Sheets("Feuill1").Select
    Cells.Select
    Selection.Copy
    Sheets("Feuill1").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    ActiveWindow.Zoom = 70
    
    Application.ScreenUpdating = True
    
End Sub

 

[Lone-wolf]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

Bonjour joe 🙂

Je peux savoir ce que tu me fais là? Tu veux copier combien de fois les mêmes cellules dans la même feuille??? 😕

Et le nom de l'onglet cest Feuil1 ou Feuil11??

 

[thebenoit59]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

Bonjour Joe, bonjour Lone-Wolf.

Je ne suis pas fan des copier-coller.
Je te propose une autre solution :

Sub Test()
For Each c In Sheets("Feuill1").Cells.SpecialCells(xlCellTypeFormulas, 23)
c.Value = c.Value
Next c
End Sub

 

[Dranreb]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

Bonjour.
Moi je mettrais :

With Feuil1.UsedRange: .Value = .Value: End With

 

[joedu31]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

Bonjour à tous 🙂

Oups, oui tu a raison Lone Wolf, ça n'a aucun sens comme ça... C'est d'une feuille à une autre que je souhaite faire la copie. 🙄

Sub CopieOngletsFeuill1()

Application.ScreenUpdating = False
   
'=================================================
'Copie de la feuille 1
'=================================================

    Sheets("Feuill_numéro 1").Select
    Cells.Select
    Selection.Copy
    Sheets("Feuill_numéro 2").Select
    Cells.Select
    Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
        , SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A1").Select
    ActiveWindow.Zoom = 70
   
    Application.ScreenUpdating = True
   
End Sub

Cela correspond à faire un copié collé entièrement de la feuille 1 sur la feuille 2 (duplicata). Je souhaite qu'elles soit identique mais sans avoir les liens des formules dans la deuxième 🙂

 

[thebenoit59]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

Il pourrait-être plus rapide de dupliquer ta feuille et ensuite utiliser le raisonnement de Dranreb.

 

[joedu31]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

C'est une solution aussi, mais je dois répéter l'opération 4 fois (même opération pour les 4)...
Le but de l'opération, est quand je remplis dans la feuille source (dont les valeurs change souvent), je renvoie des informations dans la Feuille 1 (avec forume =INDIRECT), et j'aimerai que cela renvoie les mêmes dans la feuille 2 mais sans liens 🙂

 

[joedu31]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

Ou autrement je sais pas si c'est possible,
par exemple lorsque la feuille 1 est modifiée, copié directement le résultats dans la feuille 2...? Car il y a un battement de 2/3 secondes avec la macro en Sub Worksheet_Activate() de la feuille 2...

 

[Lone-wolf]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

C'est une solution aussi, mais je dois répéter l'opération 4 fois (avec forume =INDIRECT)

Bonjour joe

Je connaît For x - For Lig - For each, mais je ne connaîssait pas Forume?? 😕 😉

 

[joedu31]

Re : Erreur : "La méthode pastespecial de la classe range a échoué"

Oui, elle fonctionne bien 🙂
Fonction INDIRECT - Excel Exercice

C'est bon, j'ai réussi à modifier la feuille comme je le souhaitais. Merci à vous pour vos réponses 🙂