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