Copier-coller en valeurs

Bonsoir à tous

j'ai un classeur à plusieurs feuilles contenant des tableaux Excel avec formules trés compliquées, comment avec un simple clic sur un bouton coller tous le classeur et le recopier en valeurs en gardant les formes.

merci d'avance.

Bonjour,

regarde peut être ceci, à associer à l'événement click de ton bouton :

With Sheets("Feuil1").UsedRange
    .Copy
    .PasteSpecial xlPasteValues
    .PasteSpecial xlPasteFormats
End With

bonne journée

@+

Bonjour

ça ne marche pas sur mon fichier

ça n'agit que sur la feuille1

ma requête c'est tout le classeur

merci d'avance

Bonjour,

pour boucler sur les feuilles du classeur actif :

Option Explicit
Sub test()
Dim ws As Worksheet
For Each ws In Worksheets
    With ws.UsedRange
        .Copy
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteFormats
    End With
Next ws
End Sub

bonne journée

@+

merci c'est ok