Discussion :

[loustic-31]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[fring]

Ceci ne conviendrait-il pas ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=essai2(A1;C10)

[Bevan]

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...