1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
Sub Formules()
'
Dim cellule As Range
Dim ws As Worksheet
Dim Ligne&
'
Application.ScreenUpdating = False
On Error Resume Next
Ligne = 2
Sheets("ListeFormules").Select
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "ListeFormules" Then
For Each cellule In ws.Cells.SpecialCells(xlCellTypeFormulas)
Cells(Ligne, 1) = ws.Name
Cells(Ligne, 2) = cellule.Address(0, 0)
Cells(Ligne, 3) = "'" & cellule.FormulaLocal
Cells(Ligne, 4) = cellule.Value
Ligne = Ligne + 1
Next cellule
End If
Next ws
Application.ScreenUpdating = True
End Sub |
Partager