EXCEL : fonction qui sait sa position Résolu/Fermé

Question

Bonjour,

Je suis sous excel 2003

je voudrais créer une fonction personnalisé ex. TOTO qui permet lorsque je fais :
dans la case C3 je met =TOTO ça m'affice C3
dans la case XY je met =TOTO ça m'affice XY

Merci
PS : j'ai pas encore les idée bien claire sur comment je vais l'utiliser par la suite

eriiic · Answer

Bonjour,

Ma réponse n'était pas correcte, effacée
eric

néné · Answer

Bjr

voici une fonction

Function toto(cel As Range)
    Application.Volatile
    
    toto = ActiveCell.Address
toto = Replace(toto, "$", "", 1, -1, vbBinaryCompare = 1)

End Function

eriiic · Answer

Bonsoir néné,

Malheureusement ça ne marche que pour la cellule active...
Si la fonction est inscrite dans 3 cellules on ne récupère pas ces 3 adresses différentes lors du recalcul de la feuille.
Je suis également interessé par cette réponse si qcq'un a une idée du comment

eric

néné · Answer

voila la bonne

Function toto(cel As Range)
'Application.Volatile

toto = cel.Address
toto = Replace(toto, "$", "", 1, -1, vbBinaryCompare = 1)

End Function

gbinforme · Answer

bonjour

Désolé néné mais ta fonction ne risque pas de marcher car si tu mets cette fonction dans 20 cellules, les 20 cellules auront le même résultat et même si tu la modifies pour qu'elle fonctionne, avec par exemple :
Function toto(cel As Range)
    Application.Volatile
    toto = cel.Address(RowAbsolute:=False, columnAbsolute:=False)
End Function

quel intérêt d'écrire =TOTO(A1) pour avoir A1 dans la cellule ?

Par contre, avec un appel écrit =toto(), cette macro fonctionne :
Function toto()
    Application.Volatile
    toto = Parent.Caller.Address(RowAbsolute:=False, columnAbsolute:=False)
End Function

eriiic · Answer

Et bien super gb :-)
Ca faisait un moment que ça me tarabustait ce truc...
Merci

Raymond PENTIER · Answer

Et moi, je ne croyais pas cela possible ! Chapeau.

mortelrdv · Answer

Merci