Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment enregistrer toutes les feuilles de calcul en tant que valeurs uniquement?

Si vous avez un classeur qui contient plusieurs formules, vous devez maintenant distribuer ce fichier à d'autres utilisateurs, vous ne voulez pas afficher les formules mais uniquement les valeurs affichées. Normalement, nous pouvons rapidement enregistrer une feuille de calcul en tant que valeurs en copiant et en collant les données en tant que valeurs uniquement. Mais, comment pouvez-vous enregistrer toutes les feuilles de calcul en tant que valeurs sans copier et coller un par un?

Enregistrer toutes les feuilles de calcul en tant que valeurs uniquement avec le code VBA


flèche bleue droite bulle Enregistrer toutes les feuilles de calcul en tant que valeurs uniquement avec le code VBA

Le code VBA suivant peut vous aider à enregistrer rapidement toutes les feuilles sous forme de valeurs (pas de formules) et à conserver toute la mise en forme des cellules. S'il vous plaît faites comme ceci:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Enregistrer toutes les feuilles de calcul en tant que valeurs uniquement:

Sub Saveasvalue()
'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et le classeur entier a été enregistré en tant que valeurs uniquement, toutes les formules ont été supprimées à la fois que laisser des valeurs avec le formatage des cellules.

Note: Avant d'appliquer le code, vous pouvez d'abord enregistrer une copie du classeur.



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    mirna · 5 months ago
    when i run that code, i get error "getting Run time Error 1004".
    FYI, in my excel there are merge cells.

    It will be helpful if someone give solution

    Thank you
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, mirna,
      The above code works well in my workbook, which excel version do you use?
  • To post as a guest, your comment is unpublished.
    Vijayaraghavan S · 6 months ago
    Sub Saveasvalue()
    'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
    wsh.Cells.Copy
    wsh.Cells.PasteSpecial xlPasteValues - getting Run time Error 1004 - CAN ANYONE HELP ON THIS.
    Next
    Application.CutCopyMode = False
    End Sub
  • To post as a guest, your comment is unpublished.
    vijay · 6 months ago
    Thanks a lot Bro..this is amazing..helped me a lot.
  • To post as a guest, your comment is unpublished.
    Mukherjee Ak · 1 years ago
    Very Good! It has solved many of my problems. Thanks a lot. Regards.
  • To post as a guest, your comment is unpublished.
    Felice · 1 years ago
    Thanks! The VBA code worked wonderfully.
    One thing I noticed though, when I tried to use it on a workbook with Filter on some cells, it won't work.
    Any workaround for this code to work without disabling the Filter?
    • To post as a guest, your comment is unpublished.
      Lilly · 1 years ago
      I have the same problem when using VBA code with filter. Have you had solution for it?
      • To post as a guest, your comment is unpublished.
        Sal · 1 months ago
        Hey were you able to get this fixed? I have the same issue