Liaisons

[betelgeuse06]

Bonjour,
je souhaiterais savoir comment afficher (si c'est possible) toutes les cellules contenant une formules faisant référence à une cellule précise.

Exemple : j'ai une valeur dans la cellule D420, j'aimerais connaître toutes les cellules qui utilise cette valeur.

Merci de vos réponses.
🙂

 

[JCGL]

Re : Liaisons

Bonjour à tous,
Bienvenue sur XLD,

Un code de l'ami Efgé
Dans ton classeur avec un feuille nommée "Formules" (Listage de toutes les formules) :

Option Explicit


Sub Listage_Formules()
    Dim F As Worksheet, C As Range, CTest As Range, X&
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    With Sheets("Formules")
        .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp).Offset(1, 2)).ClearContents
        For Each F In Worksheets
            If F.Name <> .Name Then
                Set CTest = F.Cells.Find("=", , xlFormulas)
                If Not CTest Is Nothing Then
                    For Each C In F.Cells.SpecialCells(xlCellTypeFormulas)
                        If Left(C.Formula, 1) = "=" Then
                            X = .Cells(Rows.Count, 1).End(xlUp).Row + 1
                            .Cells(X, 1) = F.Name
                            .Cells(X, 2) = C.Address
                            .Cells(X, 3) = "'" & C.FormulaLocal
                        End If
                    Next C
                    Set CTest = Nothing
                End If
            End If
        Next F
    End With
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Cells.Columns.AutoFit
    MsgBox "Traitement terminé", , "Compte-rendu"
End Sub

A + à tous

 

[chris]

Re : Liaisons

Bonjour
Bise à JCGL

On peut aussi utiliser l'outil d'audit : de mémoire, outils, audit de formules, repérer les dépendants.

 

[betelgeuse06]

Re : Liaisons

Bonjour,
merci beaucoup, je vais tester.
A+ et merci encore

 

[betelgeuse06]

Re : Liaisons

Bonsoir,
J'ai testé "outils/audit des formules" et c'est exactement ce qu'il me fallait. Grand merci donc à Chris pour m'avoir apporté la solution à mon problème. J'ai dit dans un précédent message que j'allais tester le code envoyé par JCGL mais finalement je ne vais pas le faire pour l'instant. Je le remercie de nouveau pour sa réponse et peut-être que ce code me sera utile pour d'autres choses.

Merci à tous,

Cordialement,

Betelgeuse06