EXCEL : fonction qui sait sa position
Résolu
mortelrdv
-
mortelrdv -
mortelrdv -
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
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
A voir également:
- EXCEL : fonction qui sait sa position
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel trier par ordre croissant chiffre - Guide
8 réponses
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 :
quel intérêt d'écrire =TOTO(A1) pour avoir A1 dans la cellule ?
Par contre, avec un appel écrit =toto(), cette macro fonctionne :
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
Bjr
voici une fonction
Function toto(cel As Range)
Application.Volatile
toto = ActiveCell.Address
toto = Replace(toto, "$", "", 1, -1, vbBinaryCompare = 1)
End Function
voici une fonction
Function toto(cel As Range)
Application.Volatile
toto = ActiveCell.Address
toto = Replace(toto, "$", "", 1, -1, vbBinaryCompare = 1)
End Function
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
voila la bonne
Function toto(cel As Range)
'Application.Volatile
toto = cel.Address
toto = Replace(toto, "$", "", 1, -1, vbBinaryCompare = 1)
End Function
Function toto(cel As Range)
'Application.Volatile
toto = cel.Address
toto = Replace(toto, "$", "", 1, -1, vbBinaryCompare = 1)
End Function
