|
Cette macro permet de lister tous les noms d'un document sur deux colonnes sur une nouvelle feuille...code à copier dans un module
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
Date de création : 24/05/2005 - 18:55
Dernière modification : 25/05/2005 - 22:56
Catégorie : Feuille
Page lue 399 fois
 Prévisualiser la page
 Imprimer la page
|
|
OOo
OOo
Membres: 1660
Membre en ligne: 0
Anonymes en ligne: 41
Haut 
