Coordonnées cellules dans fonction VBA

Bonjours à tous,

je cherche le moyen de récupérer via un argument de fonction les coordonnées d'une plage de cellules pour les attribuer à un objet range.
exemple:

Code:

---

1 2 3 4 5

Function essai(plage As String) Dim MaPlage As Range Set MaPlage = Range(plage) essai = plage End Function

---

ceci fonctionne très bien dans la fenêtre d'exécution mais plante dans la feuille excel??
je ne vois pas pourquoi: si quelqu'un à une idée !!!
merci pour votre aide

http://fring.ftp-developpez.com/Smileys/bienvenue.png

Ceci ne conviendrait-il pas ?

Code:

---

1 2 3

Function essai(plage As Range) As String essai = plage.Address End Function

---

et dans la cellule tu écris la formule suivante

Code:

---

=essai(A1:C10)

---

Autre solution, lorsque tu fais appel à la fonction personnalisée dans excel, pour avoir une fenêtre demandant la cellule 1 et la cellule 2

Code:

---

1 2 3 4 5

Function essai2(Cel1 As Range, Cel2 As Range) As String Dim plage As Range Set plage = Range(Cel1, Cel2) essai2 = plage.Address End Function

---

ce qui se traduit par la formule

Code:

---

=essai2(A1;C10)

---

Salut,
ton code est louche...
Tu passes un paramètre qui doit être une référence comme "$A$1" ou un nom de cellule comme "toto".
Puis tu initialises un objet local avec la plage correspondante dans la feuille active.
Enfin tu renvoies le paramètre que tu avais donné
À la fermeture de la fonction, l'objet disparait, et tu n'as donc rien fait.
Au lieu de mettre dans une cellule
=essai("A1")
tu as meilleur compte de mettre
="A1"

Si tu veux récupérer l'adresse d'une cellule, il existe une fonction Excel :
=CELLULE("adresse";H8) renvoie "H8" (la coordonnée de la première cellule si une plage ; si le besoin porte sur une plage voir le post précédent de fring)

Si tu veux récupérer le contenu d'une cellule dont tu donnes l'adresse, il existe aussi une fonction Excel :
=INDIRECT("H8") renvoie 3 si la cellule H8 contient 3

Sinon il va falloir préciser ton besoin...
;)