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

Lone-wolf

XLDnaute Barbatruc

• 9 Mai 2016

• #2

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??

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 9 Mai 2016

• #3

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 :

Code:

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 9 Mai 2016

• #4

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

Bonjour.
Moi je mettrais :

VB:

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

 

Vote positif 0 Vote négatif

joedu31

XLDnaute Nouveau

• 9 Mai 2016

• #5

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.

Code:

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

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 9 Mai 2016

• #6

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.

 

Vote positif 0 Vote négatif

joedu31

XLDnaute Nouveau

• 9 Mai 2016

• #7

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

 

Vote positif 0 Vote négatif

joedu31

XLDnaute Nouveau

• 10 Mai 2016

• #8

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...

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 10 Mai 2016

• #9

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

joedu31 à dit:

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

Cliquez pour agrandir...

Bonjour joe

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

 

Vote positif 0 Vote négatif

joedu31

XLDnaute Nouveau

• 10 Mai 2016

• #10

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

 

Vote positif 0 Vote négatif