Erreur dans une macro de récupération d'adresse de cellule

Bonjour,

J'ai tenté de réaliser une macro exécutable depuis le tableau Excel afin de récupérer l'adresse de la cellule (c'est purement didactique).

J'ai réalisé 2 essais (cf. copies d'écran ci-dessous cf. lignes de code), tous deux infructueux. Sauriez-vous me mettre sur la bonne voie, s'il vous plaît ?

Option Explicit

Public Function affichageAdresseCellule(ByVal Coordonnees As Range)
    Dim RecupAdresseCellule As Range
    RecupAdresseCellule = Coordonnees
    MsgBox "Adresse de la cellule sélectionnée : " & ActiveSheet.Range(Coordonnees).Address
    affichageAdresseCellule = ActiveSheet.Range(Coordonnees).Address
End Function

copie d'écran associée :

puis

Option Explicit

Public Sub affichageAdresseCellule(ByVal Coordonnees As Range)
    Dim RecupAdresseCellule As Range
    RecupAdresseCellule = Coordonnees
    MsgBox "Adresse de la cellule sélectionnée : " & ActiveSheet.Range(Coordonnees).Address
End Sub

copie d'écran associée :

Merci par avance.

Bonjour à tous,

Tes copies d'écran sont tronquées. Peux-tu plutôt envoyer un extrait de fichier si tu veux que l'on t'aide, à moins que certains membres soient des devins et que cela leur suffise.

Bon courage.

Merci. Je viens de réinjecter les modifications.

Quelqu'un aurait-il des pistes de résolution de mes erreurs, svp ?

J'imagine que la version qui utilise la subroutine plutôt que la fonction pose problème du fait que je ne peux pas l'appeler via le tableur Excel, à la manière d'une formule...

Pour ce qui est de l'autre code, celui qui utilise la function, je patauge...

Bonjour,

il manque une lettre D

affichageAdresseCellule = ActiveSheet.Range(Coordonnees).Adress

Address

Merci bien Andrea.

Après la correction de la coquille, la macro continue à dysfonctionner.

Voyez-vous d'autres points vous semblent bon à creuser ?

Merci par avance.