XL 2016 VBA - Y a-t-il un moyen simple de savoir si une cellule est référencée dans une formule

Hasco

XLDnaute Barbatruc

Repose en paix

• 29 Septembre 2022

• #2

Bonjour,

Par l'interface : Onglet 'Formules'-> Repérer les Dépendants
Par VBA lister les cellules de la collection Range("A1").Dependents

VB:

Sub Test()
    Dim Deps As Range, dep As Range
    Set Deps = Range("A2").Dependents
    For Each dep In Deps
        Debug.Print Deps.Address
    Next
End Sub

 

Vote positif 0 Vote négatif

Solution

chris

XLDnaute Barbatruc

• 29 Septembre 2022

• #3

Bonjour

Se placer sur la cellule, onglet Formules, Repérer les dépendants

Egalement mais moins pratique

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Septembre 2022

• #4

Bonjour @Hasco, @chris,
Merci, vous êtes des As !

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 29 Septembre 2022

• #5

Bonjour Dudu,
"Just for the fun", peut être une approche en PJ avec :

VB:

Sub MembreFormule()
T = Range([G4])
Range([G4]).Interior.Color = xlNone
Chaine = [G3]
For L = 1 To UBound(T, 1)
    For C = 1 To UBound(T, 2)
        Formule = Cells(L, C).Formula
        If Formule <> "" Then
            If InStr(1, Formule, "A1") > 0 Then
                Cells(L, C).Interior.Color = RGB(255, 255, 0)
            End If
        End If
    Next C
Next L
End Sub
Sub EffCol()
    Range([G4]).Interior.Color = xlNone
End Sub

Mais il ne faut pas que des cellules soient colorées sinon elles seront "blanchies" lorsqu'on efface les couleurs.

 

Pièces jointes

• Formules.xlsm

  17 KB · Affichages: 2

Vote positif 0 Vote négatif

Hasco

XLDnaute Barbatruc

Repose en paix

• 29 Septembre 2022

• #6

Re,

Attention dans la macro, de mon post précédent je viens de corriger une petite erreur (un s en trop)
Debug.Print Deps.Address devient Debug.Print Dep.Address

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 29 Septembre 2022

• #7

@Hasco, Oui pas de souci, j'avais compris.
Perso le rajoute toujours le .Cells facultatif (For Each dep In Deps.Cells).

@sylvanu, merci pour ton retour. C'est ce sur quoi je voulais partir avant de créer ce sujet.
Cependant cette approche est peu sûre car A1 peut aussi se trouver sous la forme $A$1 ou une variante. Alors tu me diras, remplaçons les "$" par "" mais il reste les références par ranges où A1 ne serait pas cité directement. Le .Dependents est la solution sécure.

 

Vote positif 0 Vote négatif