Macro pour récupérer les données du volet espion

Version imprimable

08/01/2010, 11h31
_cece

Macro pour récupérer les données du volet espion

Bonjour,

J'aurais aimer réaliser une macro pour récupérer les données du volet espion.

Je dois récupérer sous le même style que le volet espion (classeur, feuille,cellule, Formule) toutes les cellules contenant des formules dans les différents onglet de mon fichier excel.

Je ne trouve pas de solution et j'ai jusqu'à lundi soir.

Merci d'avance
08/01/2010, 12h00
melouille56

Tu veux récupérer ca dans une fenetre ou dans une feuille excel? Et tu voudrais que ca s'actualise a chaque changement ou tu veux juste une liste des formules qui se trouvent dans ton fichier.
Commence déjà par parcourir toutes les cellules de chaque feuille. Tu testes si c'est une formule. Si c'en est une, tu enregistres les infos classeur, feuille, celluls sous des variables. C'est une idée pour le début. Apres je ne sais pas sous quelle forme tu veux tes infos.
Bon courage
08/01/2010, 13h21
_cece

Je voudrais avoir la liste des formules dans une nouvelle feuille Excel et le même format que le volet espion (ci-joint).

Il me faut la liste de toutes les formules avec leur emplacement (cellule, feuille) pour un fichier excel.
08/01/2010, 13h45
Didier Gonard
Bonjour,
vite fait...

vois dans les faqs et tuto le maniement de l'éditeur vba, il y sûrement moyen de faire ce que tu veux, simplement et rapidement ?

Sinon, tu peux effectivement passer par les feuilles, le forum regorge d'exemples.
pour aller plus vite, au lieu de parcourir toutes les cellules de tes feuilles, utilises l'équivalent de Edition, atteindre, Cellules, Formules :
Code:

1 2 3 Sub Macro1() Selection.SpecialCells(xlCellTypeFormulas, 23).Select End Sub
tu utilises For each pour parcourir les feuilles, puis pour chacune pour parcourir les cells de ta sélection, tu as les paramètres voulus en utilisant les propriétés adéquates genre :
Code:

1 2 3 4 5 6 7 8 ? activecell.Formula =B3*B5 ? thisworkbook.name Classeur1 ? activesheet.name Feuil1 ? activecell.Value 828
cordialement,

Didier

Merci mais j'ai trouvé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub ListFormulas()
    Dim FormulaCells As Range, Cell As Range
    Dim FormulaSheet As Worksheet
    Dim Row As Integer
 
'   Create a Range object for all formula cells
    On Error Resume Next
    Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23)
 
'   Exit if no formulas are found
    If FormulaCells Is Nothing Then
        MsgBox "No Formulas."
        Exit Sub
    End If
 
'   Add a new worksheet
    Application.ScreenUpdating = False
    Set FormulaSheet = ActiveWorkbook.Worksheets.Add
    FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name
 
'   Set up the column headings
    With FormulaSheet
        Range("A1") = "Address"
        Range("B1") = "Formula"
        Range("C1") = "Value"
        Range("A1:C1").Font.Bold = True
    End With
 
'   Process each formula
    Row = 2
    For Each Cell In FormulaCells
        Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%")
        With FormulaSheet
            Cells(Row, 1) = Cell.Address _
                (RowAbsolute:=False, ColumnAbsolute:=False)
            Cells(Row, 2) = " " & Cell.Formula
            Cells(Row, 3) = Cell.Value
            Row = Row + 1
        End With
    Next Cell
 
'   Adjust column widths
    FormulaSheet.Columns("A:C").AutoFit
    Application.StatusBar = False
End Sub