Bonjour,

J'ai voulu réaliser une macro pour comprendre comment maîtriser l'objet address
J'ai tenté 2 méthodes. Toutes deux se soldent par un échec :

J'en appelle à votre aide pour m'aider à me désembourber. D'avance merci

1ère tentative
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
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
erreur affichée :



2nde tentative
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
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
erreur affichée :