[Résolu][Calc] Récupérer le Texte d'aide du Bouton actionné

[FLOUREN]

Bonjour,

J"ai crée une série de bouton dans une feuille Calc en m'inspirant, sur le Forum, du sujet "Macro qui crée un bouton et y assigne une macro" (12/2009). Je voudrais récupérer dans une cellule de la feuille le texte d'aide voire le nom du bouton actionné. Lorsque j'actionne un des boutons créés par le bouton de commande... au lieu de récupérer le nom ou le Helptext du bouton actionné, c'est le nom du bouton de commande qui est modifié et je récupère son Texte d'aide !!!
Merci de votre aide, car je dois inverser quelque chose qui m'échappe.

[luky-luke]

Bonjour

c'est le nom du bouton de commande qui est modifié

Normal, c'est une "égalité"

Code : Tout sélectionner

oControl.label = "Btn "&i

Change l'étiquette du bouton par la valeur de i dans la boucle

Code : Tout sélectionner

oControl.Name = i

change le nom du bouton par la valeur de i dans cette même boucle.

Pour récupérer le nom du bouton il faut s'intéresser à l’événement qui vient de lancer la macro.

Code : Tout sélectionner

Sub NomBouton(oEvt)
Print oEvt.source.Model.Name
Print oEvt.source.Model.HelpText
End Sub

Ajout : Un lien vers le fil cité est toujours plus efficace qu'une date... Macro qui crée un bouton, et y assigne une macro Par Alain de la Chaume Création de boutons Par le même gars "complètement à l'Ouest"

Cordialement
Luke

[FLOUREN]

Re,
Ok pour la boucle; par contre j'ai, effectivement, essayé d'inclure "oEvt.Source.Model.Parent" pour pouvoir identifier le bouton actionné, mais à chaque fois j'ai "Variable non définie". Il faut dire que, pratiquant récent, beaucoup de choses m'échappent !

[luky-luke]

Bonjour
Je pense que j'ai été un peu rapide sur ce coup là

Code : Tout sélectionner

Sub Boutonx(oEvt As Object)
Dim oDoc As Object, oSheet As Object, oCell As Object
	oDoc = ThisComponent
	oSheet = oDoc.Sheets.GetByName("Feuille1")
	oCell = oSheet.GetCellRangeByName("M22")
	oCell.String = oEvt.source.Model.HelpText
End Sub

Et le fichier modifier

Help_Text_Bouton_Flouren.ods

Cordialement
Luke

[FLOUREN]

Re,
Effectivement !.... Vu comme ça, c'est tellement simple que je regarde mes pieds !!
Un grand Merci et bonne soirée