Identifier un bouton créé dynamiquement

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2013

• #2

Re : Identifier un bouton créé dynamiquement

Bonjour,
si bouton de la barre d'outil formulaire, code ci-dessous renverra son nom :

Code:

MsgBox Application.Caller

bonne journée
@+

 

Vote positif 0 Vote négatif

F

FredeAub

Guest

• 24 Juillet 2013

• #3

Re : Identifier un bouton créé dynamiquement

Bonjour,
Apres un essai, Application.Caller retourne 'Bouton XX' avec XX un nombre (ds mon cas 29).
Je ne comprends pas trop a quoi correspond ce nombre.
Comment faire le lien entre ce nombre et le nom des 2 boutons que j'ai créé ?
Merci.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2013

• #4

Re : Identifier un bouton créé dynamiquement

Re,

euh... pas tout compris moi.... "Bouton XX" est le nom du bouton cliqué..... vois pas où tu veux en venir....

 

Vote positif 0 Vote négatif

F

FredeAub

Guest

• 24 Juillet 2013

• #5

Re : Identifier un bouton créé dynamiquement

Dans le programme fourni, je crée 2 boutons, l'un s'appelle 'Bouton1' l'autre 'Bouton2'. Ces 2 boutons appellent la même fonction 'AfficheMessage'.
Quand je clique ensuite sur ces 2 boutons, dans ma fonction AfficheMessage j'aimerais identifier le bouton qui a été cliqué en récupérant son nom, or, avec Application.caller j'obtiens 'bouton 29' et 'bouton30'. Comment savoir que bouton29 correspond au 'Bouton1' et que bouton30 correspond au 'Bouton2'. A terme je risque d'avoir plusieurs boutons créés dynamiquement et se serait plus simple pour moi d'identifier le bouton par son nom.
J'espère avoir été plus clair.
Merci.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2013

• #6

Re : Identifier un bouton créé dynamiquement

Re,

avec Application.caller j'obtiens 'bouton 29' et 'bouton30'.

Cliquez pour agrandir...

bah... c'est leur nom... A noter que dans ton ficfhier les boutons se superposent à l'infini.... Peut être qu'avant d'en créer d'autres, il serait bon de supprimer ceux déjà existant.... enfin c'est juste un avis.... Après voir également le but final.....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2013

• #7

Re : Identifier un bouton créé dynamiquement

Re,

ceci devrait renvoyer le "caption" :

Code:

MsgBox Feuil2.Shapes(Application.Caller).AlternativeText

 

Vote positif 0 Vote négatif

F

FredeAub

Guest

• 24 Juillet 2013

• #8

Re : Identifier un bouton créé dynamiquement

C'est exactement ce que je cherchais !
Merci.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Juillet 2013

• #9

Re : Identifier un bouton créé dynamiquement

Re,

perso je rajouterais tout de même ceci au code...

Code:

Private Sub Worksheet_Activate()
Feuil2.Buttons.Delete
AjouterBouton "bouton1", 200
AjouterBouton "bouton2", 300
End Sub

afin d'éviter l'accumation de boutons qui finira par "peser" sur ton classeur....

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 24 Juillet 2013

• #10

Re : Identifier un bouton créé dynamiquement

Bonjour FredeAub, salut Pierrot 🙂

Bien vu AlternativeText, je ne connaissais pas.

Noter qu'on peut aussi utiliser DrawingObjects et la propriété Text :

Code:

Sub AfficheMessage()
MsgBox "Appel macro: " & Feuil2.DrawingObjects(Application.Caller).Text
End Sub

A+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 24 Juillet 2013

• #11

Re : Identifier un bouton créé dynamiquement

Bonsoir à tous.

FredeAub à dit:

C'est exactement ce que je cherchais !
Merci.

Cliquez pour agrandir...

Étonnant !​

ROGER2327
#6703

Mercredi 11 Tatane 140 (Saintes Canicule et Canule, jouvencelles - fête Suprême Quarte)
6 Thermidor An CCXXI, 7,7625h - prêle
2013-W30-3T18:37:48Z

 

Pièces jointes

• Bouton de formulaire.xlsm

  18.1 KB · Affichages: 27

Vote positif 0 Vote négatif