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

Résolu

Jfou42 -
jfou42 - 11 juil. 2016 à 09:09

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

Afficher la suite

A voir également:

Sélectionner une cellule avec les coordonnées d'un objet
Coordonnées gps - Guide
Excel cellule couleur si condition texte - Guide
Aller à la ligne dans une cellule excel - Guide
Proteger cellule excel - Guide
Vente objet occasion entre particulier - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

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

Réponse 2 / 3

Jfou42

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 ?

Réponse 3 / 3

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour a vous 2,

Comme ceci;

Dim position
  position = ActiveSheet.shapes("Bouton 2").TopLeftCell.Address
 Range(position).Select

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

Meme code que moi, avec le select en plus, j'espère que le gars a eu l'idee de le rajouter .......!!!!!

jfou42

Merci beaucoup, ça fonctionne !

Discussions similaires

additionner nombres dans cellules avec texte

excel fractionner une cellule horizontalement

Excel formule : savoir si une cellule contient partie texte

Excel : colorer une cellule sous condition d'une autre ?

Votre réponse

Discussions similaires