Récupérer les références d'une cellule

[Troudz]

Bonjour à tous,

Afin de faciliter l'exploitation d'une base de données, j'ai mis en place des formules personnalisées.

J'aurai voulu savoir si il était possible, lors de l'exécution de la formule, de récupérer les références de la cellule à partir de laquelle la formule est exécutée.

J'ai tenté ma chance avec Application.Caller mais ça me renvoi systématiquement une valeur nulle.

Auriez vous une idée ?

Je vous remercie par avance,

Troudz

 

[david84]

Re : Récupérer les références d'une cellule

Bonjour,
teste avec Application.Caller.Address
A+

Edit
exemple :

Function CetteCellule()
CetteCellule = Application.Caller.Address
End Function

Fonctionne aussi avec

Application.ThisCell.Address

 

[Troudz]

Re : Récupérer les références d'une cellule

Merci David84, c'est exactement ce que je recherchais !
Par contre comme je peux faire pour savoir quelle est la feuille concernée ?

 

[Troudz]

Re : Récupérer les références d'une cellule

Ah je viens de trouver. Apparemment cela semble fonctionner avec :

Application.ThisCell.Parent.name

 

[david84]

Re : Récupérer les références d'une cellule

Re

Application.Caller.Parent.Name

ou

Application.ThisCell.Parent.Name

A+

 

[Troudz]

Re : Récupérer les références d'une cellule

Merci beaucoup pour ton aide David84 !
Bonne fin de journée à tous !

 

[Regueiro]

Re : Récupérer les références d'une cellule

Bonjour à Tous
une autre variante.
Si tu veux récupérer le nom de la feuille et l'adresse :

Sub AdressCellule2()
Sheets("Feuil1").Range("A1").Value = 1
A = [A1].Parent.Name & "!" & [A1].Address(external:=False)
MsgBox A
Sheets("Feuil2").Range("B3").FormulaLocal = "=" & A

End Sub