XL 2019 Position Cellule derrière le bouton

[E5kobar]

Bonjour,

J'aimerai que lorsque je clic sur le bouton, mon curseur vienne se positionner sur la cellule derrière le bouton. Je compte recuperer cette ligne pour l'inserer dans une autre macro.

Merci d'avance pour votre aide!

 

[Staple1600]

Bonjour le fil, E5kobar

E5kobar
Voir ci-dessous

Private Sub CommandButton1_Click()
Dim Ligne
Ligne = CommandButton1.TopLeftCell.Row
MsgBox Ligne
End Sub

 

[Staple1600]

Re

Et si il s'agit d'un bouton issu de la barre d'outils Formulaire

Sub FormButton()
Dim sh As Shape, rng As Range, Ligne As Long
Set sh = ActiveSheet.Shapes(Application.Caller)
Set rng = sh.TopLeftCell
Ligne = rng.Row 'N° ligne
MsgBox Ligne 'affiche N° ligne
MsgBox rng.Address(0, 0) ' adresse cellule
End Sub

 

[E5kobar]

Merci pour cette première réponse @Staple1600 ,

Ce premier code proposé m'informe sur le n° de ligne et la lettre de la colonne.

Merci,

Cependant, ce que je souhaiterais c'est :

Je suis positionné n'importe ou sur la feuille, ma souris vient clicker sur le bouton, je viens grace à une macro, me positionner derrière le bouton.

Est ce possible?

Merci d'avance!

 

[E5kobar]

 

[Staple1600]

Re

Il n'est pas trés compliqué de déduire ce qu'il faut modifier à partir du code que je t'ai fourni, non ?
Tu ne vois vraiment pas comment faire?

 

[E5kobar]

Bonjour,

J'ai trouvé la solution grâce à votre première réponse

Sub FormButton()
Dim sh As Shape, rng As Range, Ligne As Long
Set sh = ActiveSheet.Shapes(Application.Caller)
Set rng = sh.TopLeftCell
ActiveSheet.Range(rng.Address(0, 0)).Select
End Sub

 

[Staple1600]

Re

Bravo pour avoir mis les mains dans le cambouis

Sinon on peut simplifier

Private Sub CommandButton1_Click()
CommandButton1.TopLeftCell.Activate
End Sub

et pour le Bouton "Formulaire"

Sub FormButton()
ActiveSheet.Shapes(Application.Caller).TopLeftCell.Activate
End Sub

 

[E5kobar]

Merci encore!