XL 2019 Position Cellule derrière le bouton

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #2

Bonjour le fil, E5kobar

E5kobar
Voir ci-dessous

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #3

Re

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

VB:

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

 

Vote positif 0 Vote négatif

E

E5kobar

XLDnaute Nouveau

• 1 Novembre 2019

• #4

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!

 

Dernière édition: 1 Novembre 2019

Vote positif 0 Vote négatif

E

E5kobar

XLDnaute Nouveau

• 1 Novembre 2019

• #5

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #6

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?

 

Vote positif 0 Vote négatif

E

E5kobar

XLDnaute Nouveau

• 1 Novembre 2019

• #7

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 1 Novembre 2019

• #8

Re

Bravo pour avoir mis les mains dans le cambouis

Sinon on peut simplifier

VB:

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

et pour le Bouton "Formulaire"

VB:

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

 

Vote positif 0 Vote négatif

E

E5kobar

XLDnaute Nouveau

• 1 Novembre 2019

• #9

Merci encore!

 

Vote positif 0 Vote négatif