Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Position Cellule derrière le bouton

E5kobar

XLDnaute Nouveau
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

XLDnaute Barbatruc
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
 

E5kobar

XLDnaute Nouveau
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:

E5kobar

XLDnaute Nouveau
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
 

Staple1600

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…