Insérer les coordonnées de la cellule active dans une cellule

Bonjour,

Exemple type :

Public Sub Test()

    Range("D5").Select
    Range("C5").Value = AdresseDeCellule(ActiveCell)
    
End Sub

Private Function AdresseDeCellule(ByVal pCible As Range) As String

    AdresseDeCellule = ""
    If Not (pCible Is Nothing) Then
        AdresseDeCellule = pCible.Address
    End If
    
End Function

note. L'instruction [.Address ] renvoie une adresse absolue (i.e. [ $C$5 ].

K

Bonjour Pierre,

Je te propose ce code VBA :

Option Explicit

Sub Essai()
  Dim AdrX As String: AdrX = "D4"
  Range(Range(AdrX)) = AdrX
End Sub

AdrX est "D4" : la cellule où tu as : C5
=> en C5 : tu auras D4.

Cordialement
 

En faite je suis parvenu à afficher un texte aux coordonnées présentes dans la cellule active, par exemple :

Sub test()
Range(ActiveCell) = "affichertexte"
End Sub

Je pensais simplement à modifier la partie de droite (car en théorie on veut toujours afficher quelque chose aux coordonnées présentes dans la cellule active. C'est juste que cette fois je veux afficher les coordonées de cette cellule active. J'avais pensé :

Sub test()
Range(ActiveCell) = ActiveCell.AddressLocal
End Sub

Le seul pb, c'est qu'il y a le symbole $ devant la ligne et la colonne afichée. J'y suis presque ...

Merci beaucoup