Utiliser une fonction personnalisée pour documenter et afficher toutes les cellules contenant des formules

Cette macro puissante documentera dans une fenêtre immédiate toutes les cellules contenant des formules. Lorsqu’elle est exécutée, chaque cellule qui contient une formule est répertoriée par son adresse de cellule, ainsi que la formule et la valeur actuelle.

Pour déterminer et documenter toutes les formules de la feuille de calcul actuelle :

  1. Appuyez sur <Alt+F11>.
  2. Dans le menu Insertion, cliquez sur Module.
  3. Tapez la macro suivante :
Sub DocFormulasWks()

Dim rng As Range

With ActiveSheet

 For Each rng In .UsedRange

 If rng.HasFormula = True Then

   Debug.Print "Addr.:" & rng.Address

   Debug.Print "Form.:" & rng.Formula

   Debug.Print "Value:" & rng.Value

  End If

Next rng

End With

End Sub

 

  1. Avec le curseur dans la macro, démarrez-la en appuyant sur F5.
  2. Cliquez sur Afficher et choisissez la fenêtre Immédiat.

 

REMARQUE Si vous souhaitez documenter toutes les formules de l’ensemble du classeur, utilisez la macro suivante :

Sub docFormulasWkb()

Dim rng As Range

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets

For Each rng In wks.UsedRange

If rng.HasFormula = True Then

Debug.Print "Sheet:" & wks.Name

Debug.Print "Address: " & rng.Address

Debug.Print "Formula: " & rng.Formula

Debug.Print "Value:" & rng.Value

End If

Next rng

Next wks

End Sub

 

 

 

 

 

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x