Adresse d'un CommandButton

[Hulk]

Re 😀

Encore une petite question, peut-on savoir l'adresse d'une cellule sur laquelle il y a un bouton ? Ai rien trouvé sur ça...

Un exemple concret de ma demande dans le classeur joint.

Et encore un grand merci pour votre aide !

Cdt, Hulk.

 

[Robert]

Re : Adresse d'un CommandButton

Bonsoir Hulk, bonsoir le forum,

Je crois malheureusement qu'il n'y a pas de lien entre un objet Ole placé dessus l'onglet et les cellules de cet onglet. La solution que je te propose, mais je doute quelle convienne, c'est que tu ecrives dans la cellule, sous le bouton, le nom du bouton. Là une macro te permettra de balayer les cellules et renvoyer l'adresse dans une msgbox...

Édition :

Je crois malheureusement... que j'aurais dû fermer ma g... Mais heureusement qu'il y a les b pour remplacer les c. Mais non ça marche marche avec bouillon et couillon ! Mais on dit que ça marche.

 

[Mytå]

Re : Adresse d'un CommandButton

Salut le forum

Dans le code du bouton

Private Sub Btn1_Click()
MsgBox Btn1.TopLeftCell.Address(0, 0)
End Sub

Mytå

 

[BOISGONTIER]

Re : Adresse d'un CommandButton

Bonjour,

   For Each s In ActiveSheet.Shapes
    If s.Type = 12 Then MsgBox s.Name & " " & s.TopLeftCell.Address
   Next s

JB

 

[Pierrot93]

Re : Adresse d'un CommandButton

Bonjour à tous,

si positionné sur plusieurs cellules :

MsgBox CommandButton1.TopLeftCell.Address & ":" _
    & CommandButton1.BottomRightCell.Address

bonne journée
@+

 

[Hulk]

Re : Adresse d'un CommandButton

Hello tout le monde,

Et bien merci à tous !

Finalement j'opte pour la version à Boisgontier, juste mis un petit If en plus pour exclure le CommandButton1 et tout bien !

P.S. Voilà Robert on s'endormira moins cête ce soir 😀

Cdt, Hulk et bon week à tous !