Cet exemple utilise une nouvelle feuille de travail avec la documentation du nom. Une fois démarrées, toutes les formules du classeur actif seront documentées.

Pour rechercher toutes les formules et les saisir dans une feuille de calcul :

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

Sub NewSheetWithFormulas()

Dim rng As Range

Dim wks As Worksheet

Dim i As Integer

With Sheets(“documentation”)

i = 1

For Each wks In _

  ActiveWorkbook.Worksheets

 For Each rng In wks.UsedRange

  If rng.HasFormula = True Then

   .Cells(i, 1).Value = wks.Name

   .Cells(i, 2).Value = rng.Address

   .Cells(i, 3).Value = “ “ & rng.Formula

   .Cells(i, 4).Value = rng.Value

     i = i+1

  End If

 Next rng

Next wks

End With

End Sub

FIGURE 12–11