Boucle à travers les dépendances de cellule

Question

cela exprime ce que je voudrais faire, mais ne fonctionne évidemment pas. Je pense que ce que j'essaye de faire est clair:

Obtenez une cellule, obtenez son nombre de dépendances et affichez-les tous.

Merci à l'avance pour toute entrée

  Sub Extract() 
      Dim i As Integer 

        For i = 1 To Workbooks("myBook.xls").Worksheets(1).Cells(14, 5).Dependents.Count 
         Debug.Print (Workbooks("myBook.xls").Worksheets(1).Cells(14, 5).Dependents(i)) 
        Next i 
      End Sub 

Answer 1

Vous pouvez faire

Sub Extract() 
Dim i As Range 
    With Workbooks("Book1.xls").Worksheets(1).Cells(14, 5) 
     For Each i In .Dependents 
      Debug.Print i.Value i.Address 
    Next i 
    End With 

End Sub 

HTH!

Modifier

.Dependents est le transitive closure os .DirectDependents, et je ne suis pas sûr d'eux que vous voulez ... essayer les deux!