Copier valeur d'une feuille à une autre

Bonjour à tous,

Alors voilà ma situation, j'ai une feuille qui contient un certain nombre de valeur provenant de formules (Sheet source). J'aimerais copier uniquement les valeurs de cette feuille vers une autre feuille cible (dans le même classeur).

J'utilise le code suivant :

Sub Copier()
Dim SHsource As Worksheet, SHcible As Worksheet
Set SHsource = ThisWorkbook.Sheets("résumé sorties")
Set SHcible = ThisWorkbook.Sheets("Copie")
With SHsource
Range("A2:E86").Copy SHcible.Range("A2:E86")
Range("A2:E86").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
 Application.CutCopyMode = False
  End With
End Sub

Lorsque je lance ma macro, Excel m'affice un message d'erreur me disant que la méthode pastespecial a échoué.

Quelqu'un aurait il une solution ?

Ps: Mon excel contient 3 feuilles. Une première générale ou j'insère un bouton de commande qui lance la macro, une deuxième avec ma source et une 3ème avec ma cible. J'arrive à copier coller les valeurs dans la feuille 1 (feuille où le bouton est actif) ou à copier coller les formules dans la feuille 3, mais pas à copier les valeurs dans la feuille 3.

Merci pour votre aide !

Bonjour,

A tester

Sub Copier()
Dim SHsource As Worksheet, SHcible As Worksheet
Set SHsource = ThisWorkbook.Sheets("Feuil1")
Set SHcible = ThisWorkbook.Sheets("Feuil2")
With SHsource
Range("A2:E2").Copy
SHcible.Range("A2:E2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
                             SkipBlanks:=False, Transpose:=False
 Application.CutCopyMode = False
  End With
End Sub

Bonjour,

Essaye le code suivant :

Sub Copier()
    Dim SHsource As Worksheet, SHcible As Worksheet
    Set SHsource = ThisWorkbook.Sheets("résumé sorties")
    Set SHcible = ThisWorkbook.Sheets("Copie")
    SHsource.Range("A2:E86").Copy
    SHcible.Range("A2").PasteSpecial xlValues
    Application.CutCopyMode = False
End Sub

Merci à vous deux,

J'ai essayé cette méthode, malheureusement cela me copie les valeurs de la feuille 1 sur la feuille 3 et non celle de la feuille 2.

Je vais faire un fichier test que je vais poster ici pour plus de facilité.

Voilà un fichier test. L'idée est donc d'appuyer sur le bouton à la page 1 pour copier les valeurs de la page 2 sur la page 3.

(oui je sais c'est bizarre mais c'est ce que mon client demande...)

Merci beaucoup !

Re,

As-tu essayé mon code que j'ai remis ? Sinon teste-le. ça devrait marcher.

Effectivement ça fonctionne j'avais fait une faute de frappe ! Merci !