Microsoft 365 Comment trouver les cas d'emploi d'une cellule dans les formules

jb36123

XLDnaute Nouveau
Bonjour à tous,,
Dans un fichier EXCEL complexe avec des formules nombreuses liant tout un tas de cellules entre elles, je cherche un moyen de determiner pour une cellule donnée où celle ci serait utilisée dans d'autres cellules au travers des formules. C'est dans le but de simplifier la maintenance ou l'evolution du fichier.
Ca serait utile aussi lorsqu'on récupère un fichier qu'on a pas développé soit même.

j'ai un cas simple pour lequel j'ai une solution, c'est lorsque on utilise des cellules nommées. par exemple si j'ai nommée une cellule TAUX_TVA en faisant une simple recherche (ctrl-F) je peux retrouver toutes les cellules qui ont une formule qui contient "TAUX_TVA".
Mais pour les formules qui font de l'adressage relatif, ou absolu ca ne marche pas.
 

danielco

XLDnaute Accro
Bonjour,

J'ai adapté ce code du site

VB:
Sub Test1()
 
    Dim rngToCheck As Range
    Dim rngPrecedents As Range
    Dim rngPrecedent As Range
 
    Set rngToCheck = ActiveCell
 
    On Error Resume Next
    Set rngPrecedents = rngToCheck.Dependents
    On Error GoTo 0
 
    If rngPrecedents Is Nothing Then
        Debug.Print rngToCheck.Address(External:=True) & _
                    " n'a pas de dédpendants"
    Else
        For Each rngPrecedent In rngPrecedents
            Debug.Print rngPrecedent.Address(External:=True)
        Next rngPrecedent
    End If
 
End Sub

Le résultat s'affiche dans la fenêtre d'exécution. Je peux l'adapter pour lister les résultats sur une feuille.

Cordialement.

Daniel
 

Discussions similaires

Réponses
10
Affichages
298

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG