Adresse d'un bouton ???

[Seb]

Bonsoir le forum,

Je n'arrive pas à récupérer l'adresse de la cellule où est posé mon bouton (Bouton, pas un command button)
J'ai fait cette macro:

Sub adresse()
Dim T As Single, L As Single, cel As Range
T = ActiveSheet.Shapes(Application.Caller).Top
L = ActiveSheet.Shapes(Application.Caller).Left
ActiveSheet.Range("L5") = L & T
End Sub

Mais j’obtiens: 13,5339,75 et je voudrais "B21"
Je sais pas convertir en adresse de cellule ...

Si quelqu'un a une idée ...

 

[Cousinhub]

Re : Adresse d'un bouton ???

Bonsoir,

.TopLeftCell.Address

Peut-être?

bonne soirée (olympique)

 

[Seb]

Re : Adresse d'un bouton ???

Bonsoir bhbh

Merci beaucoup, mais comment l'utiliser ? Exemple: comment Insérer une valeur dans la cellule de droite du bouton ? C'est à ce niveau la que je buggue ..

 

[Cousinhub]

Re : Adresse d'un bouton ???

re-,

Par exemple :

Dim C As Range
Set C = ActiveSheet.Shapes(Application.Caller).TopLeftCell

C est donc la cellule qui contient ton bouton.

En utilisant "Offset", tu peux choisir la cellule que tu veux [ (0,1) dans ton cas]