Rebonjour,
Suite à mon précédent sujet sur la supression de formules, j'aimerai savoir si il était possible d'avoir un code qui sauvegarde les formules.
En gros, le code doit marcher comme ça :
Si j'exécute, je perds toutes les formules du classeur si il y avait des formules dans le classeur.
Si j'exécute, je récupère toutes les formules qui étaient présent avant la première exécution.
Ainsi de suite. Le code qu'on m'avait donné était :
Sub SansFormule()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.UsedRange.Value = ws.UsedRange.Value
Next
End Sub
Pour tout supprimer.
Merci pour votre retour
Suite à mon précédent sujet sur la supression de formules, j'aimerai savoir si il était possible d'avoir un code qui sauvegarde les formules.
En gros, le code doit marcher comme ça :
Si j'exécute, je perds toutes les formules du classeur si il y avait des formules dans le classeur.
Si j'exécute, je récupère toutes les formules qui étaient présent avant la première exécution.
Ainsi de suite. Le code qu'on m'avait donné était :
Sub SansFormule()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.UsedRange.Value = ws.UsedRange.Value
Next
End Sub
Pour tout supprimer.
Merci pour votre retour