Sélectionner une cellule avec les coordonnées d'un objet Résolu/Fermé

Question

Bonjour, 

Je souhaiterais savoir comment sélectionner une cellule en fonction des coordonnées d'un bouton.

Plusieurs contrôle de formulaire de type boutons sont sur ma feuille, j'obtiens les coordonnées de ces boutons avec .left et .top

Comment faire pour sélectionner la cellule qui se trouve sur ces coordonnées ? la cellule qui est donc sous le bouton.

Merci d'avance pour votre aide

f894009 · Answer

Bonjour,

    'bouton control de formulaire
    MsgBox Shapes("Bouton 1").TopLeftCell.Address
    'bouton control activex
    MsgBox CommandButton1.TopLeftCell.Address

Jfou42 · Answer

Merci f894009, mais ça ne semble pas marcher

Voici mon passage de code :


Dim a As String
a = Application.Caller
Range("I3") = Application.Caller

colonne = Round(ActiveSheet.Shapes.Range(Array(a)).Left / Cells(1, 1).Width, 1)
Ligne = Round(ActiveSheet.Shapes.Range(Array(a)).Top / Cells(1, 1).Height, 1)

'MsgBox (colonne)
'MsgBox (Ligne)


MsgBox ActiveSheet.Shapes.Range(Array(a)).TopLeftCell.Address



le dernière ligne ne fonctionne pas, j'ai également essayé avec ce que tu indique pour le contrôle de formulaire, mais en vain.
Quelle est la bonne syntaxe ?

cs_Le Pivert · Answer

Bonjour a vous 2,

Comme ceci;

Dim position
  position = ActiveSheet.shapes("Bouton 2").TopLeftCell.Address
 Range(position).Select

Sélectionner une cellule avec les coordonnées d'un objet

3 réponses

Discussions similaires