Discussion :

[gege765]

Bonsoir,
Je souhaite copier / coller des données en valeurs pour l'ensemble des feuilles d'un fichier, afin de ne plus avoir de formules.
J'ai créé cette macro mais le résultat n'est pas là.

Quel est le problème ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub CopColVal_Feuil()
    For Each Ws In ActiveWorkbook.Worksheets
        'Selectionne toutes les cellules de la feuille
        Cells.Select
        Selection.Copy
        Selection.PasteSpecial Paste:=xlPasteValues
        'Application.CutCopyMode = False
    Next Ws
End Sub

J'ai joins un exemple de structure de fichier

[EngueEngue]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub CopColVal_Feuil()
    For Each WS In ActiveWorkbook.Worksheets
        WS.Cells.Copy
        WS.Cells.PasteSpecial Paste:=xlPasteValues
    Next WS
End Sub

[gege765]

Simple et fonctionnel.
Merci.

Bonne soirée.

[nibledispo]

Bonsoir,

Je propose pour toutes les feuilles du classeur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Sub CopColVal_Feuil()
    Sheets.Select
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues
End Sub

Ce code est placé dans un module standard.

Quelqu'un a-t-il une critique à formuler ?

Cordialement