Lister le nom des feuilles
Catégorie : Feuille
Publié par veriland le 03-Aug-2013 23:50

Cette macro permet de lister tous les noms d'un document sur deux colonnes sur une nouvelle feuille...code à copier dans un module

 

Option Explicit
 
Sub ListerFormules()
'Ti
Dim PlageFormules, Cel As Variant
Dim Resultat As Worksheet
Dim Col As Integer
Col = 2
Set PlageFormules = Range("A1").SpecialCells(xlFormulas)
    Set Resultat = ActiveWorkbook.Worksheets.Add(, ActiveSheet)
    With Resultat
        .[A1] = "Cellule"
        .[B1] = "Formule"
    For Each Cel In PlageFormules
        Cells(Col, 1) = Cel.Address(0, 0)
            Cells(Col, 2) = " " & Cel.FormulaLocal
            Col = Col + 1
    Next Cel
    End With
End Sub