Adresse d'un CommandButton

Robert

XLDnaute Barbatruc

Repose en paix

• 27 Novembre 2009

• #2

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.

 

Dernière édition: 27 Novembre 2009

Vote positif 0 Vote négatif

Mytå

XLDnaute Occasionnel

• 27 Novembre 2009

• #3

Re : Adresse d'un CommandButton

Salut le forum

Dans le code du bouton

Code:

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

Mytå

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 27 Novembre 2009

• #4

Re : Adresse d'un CommandButton

Bonjour,

Code:

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

JB

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Novembre 2009

• #5

Re : Adresse d'un CommandButton

Bonjour à tous,

si positionné sur plusieurs cellules :

Code:

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

bonne journée
@+

 

Vote positif 0 Vote négatif

Hulk

XLDnaute Barbatruc

• 27 Novembre 2009

• #6

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 !

 

Vote positif 0 Vote négatif