Range("A1").precedents

mromain

XLDnaute Barbatruc

• 16 Novembre 2010

• #2

Re : Range("A1").precedents

Bonjour tbft, le forum,


Après quelques essais, cette propriété semble renvoyer une collection contenant les cellules utilisées dans la formule de la cellule testée.


edit:

Voici un code exemple pour exploiter cette propriété :

VB:

Sub Test()
Dim antecedents As Range, curCell As Range, message As String

    'récupérer les cellules utilisées dans la formule contenue en A1
    Set antecedents = Range("A1").Precedents
    
    message = antecedents.Cells.Count & " cellule()s utilisée(s) dans la formule de A1." & vbNewLine
    
    'boucler sur chacune d'elles
    For Each curCell In antecedents.Cells
        message = message & vbNewLine & curCell.Address(False, False)
    Next curCell
    
    MsgBox message
End Sub

a+

 

Dernière édition: 4 Janvier 2011

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 16 Novembre 2010

• #3

Re : Range("A1").precedents

@romain
Merci beaucoup pour ton aide

comment exploiter cette collection?
avec un for each peut être?

As tu fais un essai avec avec une formule dont un des éléments provient d'un autre folio?

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 16 Novembre 2010

• #4

Re : Range("A1").precedents

Re bonjour,

As tu fais un essai avec avec une formule dont un des éléments provient d'un autre folio?

Cliquez pour agrandir...

Tu trouveras un exemple avec une boucle For Each dans le post précédent. Par contre, je n'ai pas testé avec une formule dont un des éléments provient d'un autre fichier.

a+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 16 Novembre 2010

• #5

Re : Range("A1").precedents

Moi j'ai essayé avec des formules dont les sources proviennent du même classeur mais pas de la même feuille....et et et rien...
regarde,stp, avec cet exemple et dis moi où je déconne....

 

Pièces jointes

• fichier test2.zip

  15.4 KB · Affichages: 27
• fichier test2.zip

  15.4 KB · Affichages: 28
• fichier test2.zip

  15.4 KB · Affichages: 27

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 16 Novembre 2010

• #6

Re : Range("A1").precedents

Re,

Il ne semble pas y avoir d'erreurs.
J'ai refait un test avec une formule faisant référence à des cellules de la même feuille et d'autres feuilles ; Precedents semble ne renvoyer que les cellules de la même feuille.

a+

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 16 Novembre 2010

• #7

Re : Range("A1").precedents

Re,

J'essaye de prendre le probleme dans l'autre sens avec DirectDependents.
Mais je bloque quand DirectDependents me renvoi qu'il n'y a pas de cellule...
comment faire le test DirectDependents is nothing?

D'avance merci

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 16 Novembre 2010

• #8

Re : Range("A1").precedents

Re

Y a personne pour me dire comment atteindre les cellules qui n'appartiennent pas à la feuille sur lequel est posé la formule????????

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Novembre 2010

• #9

Re : Range("A1").precedents

Re...

tbft à dit:

Re

Y a personne pour me dire comment atteindre les cellules qui n'appartiennent pas à la feuille sur lequel est posé la formule????????

Cliquez pour agrandir...

Suite à votre message privé : je n'ai pas de réponse immédiate.
Ce qui est sûr, c'est que l'aide sur la propriété Precedents est inexacte.

Cette propriété renvoie un objet Range qui représente tous les antécédents d'une cellule. Il peut s'agir d'une sélection multiple (une union d'objets Range) s'il existe plusieurs antécédents.

Cliquez pour agrandir...

Comme l'a dit plus haut mromain, cette propriété renvoie un objet Range qui représente les antécédents éventuels dans la même feuille qu'une cellule, et non pas "…tous les antécédents…".

Mais vous pouvez nous en dire plus sur ce que vous voulez obtenir en fournissant une exemple concret (un petit classeur avec la problématique exact, par exemple).
On trouvera alors (peut-être…) un moyen de contourner cette limitation de la propriété Precedents.
​

ROGER2327
#4536

Samedi 14 As 138 (Saint Pierre Bonnard, peintre des Phynances, SQ)
26 Brumaire An CCXIX
2010-W46-2T16:59:24Z

 

Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc

• 16 Novembre 2010

• #10

Re : Range("A1").precedents

Bonsoir tout le fil,
Une petite proposition pour ma participation.
J'ai compris qu'il faut trouver l'adresse des formules qui touchent à une autre feuille.

Bruno

Code:

For Each c In ActiveSheet.Cells.SpecialCells(-4123)
If c.Formula Like "*!*" Then MsgBox c.Address
Next

 

Dernière édition: 16 Novembre 2010

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 16 Novembre 2010

• #11

Re : Range("A1").precedents

Re...

C'est effectivement une piste, mais la référence à une cellule peut se faire aussi avec une plage nommée. Dans ce cas, on ne trouvera pas de point d'exclamation. C'est pourquoi je souhaiterais que notre ami précisât le contexte exact de son problème…
​

ROGER2327
#4538

Samedi 14 As 138 (Saint Pierre Bonnard, peintre des Phynances, SQ)
26 Brumaire An CCXIX
2010-W46-2T17:35:42Z

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 16 Novembre 2010

• #12

Re : Range("A1").precedents

Bonsoir

Merci tout le monde pour votre aide
@ROGER merci beaucoup pour avoir répondu à mon appel.

J'y suis arrivé en prenant le probleme en sens inverse....
J'utilise la propriété DirectDependents
Je mets le code de ma macro demain matin promis...

 

Dernière édition: 16 Novembre 2010

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 17 Novembre 2010

• #13

Re : Range("A1").precedents

Bonjour

Comme promis voici le code que j'utilise

VB:

Cellules.ShowDependents True
Cellules.ShowDependents
Set Cellule = Cellules.NavigateArrow(False, 1, 1)
If Cellule.Parent.Name = Cellules.Parent.Name Then Cellules.ShowDependents True: Exit Sub
'trucs à faire
Cellules.ShowDependents True

 

Vote positif 0 Vote négatif