Discussion :

[_cece]

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

[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

[_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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

cordialement,

Didier

[_cece]

Merci mais j'ai trouvé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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