[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