EXCEL ANNEE 2017
L'heure est venue de vous presenter
Une excel et bonne annee 2017 !
De la part de toute l equipe de VeriTi
Lister le nom des feuilles
Publié par veriland le 03-Aug-2013 23:50 (2310 lectures)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
|
Les commentaires appartiennent à leurs auteurs. Nous ne sommes pas responsables de leur contenu.
|
||||
