Bonjour le Forum,
Comment récupérer le caption d'un CommandButton pour le mettre dans une
variable ,
quand on ne connais pas à l'avance celui qui va être selectionné.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
anomymousA
bonjour,
Dans ce qui tu remplaces tous les msgbox par une variable
1)pour un Userform p.e. si on a cliqué sur le bouton celui-ci est forcément actif à ce moment-là.
Private Sub CommandButton1_Click() MsgBox ActiveControl.Object.Caption End Sub
2) pour un objet OLE dans un onglet, dans l'exemple celui-ci s'appelle CBTATA
Private Sub CBTATA_Click() msgbox ActiveSheet.OLEObjects("CBTATA").Object.Caption ou directement msgbox CBTATA.Object.Caption End Sub
pour un objet xlButton issu de la barre de formulaires et placé dans l'onglet, le code suivant est à mettre dans la macro qui est affectée au bouton en supposant que le bouton s'appelle Button1
pour un objet bouton de commande d'une barre menus donc un controle, lignes de code à rajouter dans la procédure OnAction stipulée
msgbox CommandBars.ActionControl.caption
A+
Bonjour le Forum, Comment récupérer le caption d'un CommandButton pour le mettre dans une variable , quand on ne connais pas à l'avance celui qui va être selectionné.
Merci d'avance Bonne journée à tous . Yves
bonjour,
Dans ce qui tu remplaces tous les msgbox par une variable
1)pour un Userform p.e. si on a cliqué sur le bouton celui-ci est forcément
actif à ce moment-là.
Private Sub CommandButton1_Click()
MsgBox ActiveControl.Object.Caption
End Sub
2) pour un objet OLE dans un onglet, dans l'exemple celui-ci s'appelle CBTATA
Private Sub CBTATA_Click()
msgbox ActiveSheet.OLEObjects("CBTATA").Object.Caption
ou directement
msgbox CBTATA.Object.Caption
End Sub
pour un objet xlButton issu de la barre de formulaires et placé dans
l'onglet, le code suivant est à mettre dans la macro qui est affectée au
bouton en supposant que le bouton s'appelle Button1
pour un objet bouton de commande d'une barre menus donc un controle, lignes
de code à rajouter dans la procédure OnAction stipulée
msgbox CommandBars.ActionControl.caption
A+
Bonjour le Forum,
Comment récupérer le caption d'un CommandButton pour le mettre dans une
variable ,
quand on ne connais pas à l'avance celui qui va être selectionné.
Dans ce qui tu remplaces tous les msgbox par une variable
1)pour un Userform p.e. si on a cliqué sur le bouton celui-ci est forcément actif à ce moment-là.
Private Sub CommandButton1_Click() MsgBox ActiveControl.Object.Caption End Sub
2) pour un objet OLE dans un onglet, dans l'exemple celui-ci s'appelle CBTATA
Private Sub CBTATA_Click() msgbox ActiveSheet.OLEObjects("CBTATA").Object.Caption ou directement msgbox CBTATA.Object.Caption End Sub
pour un objet xlButton issu de la barre de formulaires et placé dans l'onglet, le code suivant est à mettre dans la macro qui est affectée au bouton en supposant que le bouton s'appelle Button1
pour un objet bouton de commande d'une barre menus donc un controle, lignes de code à rajouter dans la procédure OnAction stipulée
msgbox CommandBars.ActionControl.caption
A+
Bonjour le Forum, Comment récupérer le caption d'un CommandButton pour le mettre dans une variable , quand on ne connais pas à l'avance celui qui va être selectionné.
Merci d'avance Bonne journée à tous . Yves
ziopizza
Bonjour anomymous, Grand Merci tout a fait ça. Yves "anomymousA" a écrit dans le message de news:
bonjour,
Dans ce qui tu remplaces tous les msgbox par une variable
1)pour un Userform p.e. si on a cliqué sur le bouton celui-ci est forcément
actif à ce moment-là.
Private Sub CommandButton1_Click() MsgBox ActiveControl.Object.Caption End Sub
2) pour un objet OLE dans un onglet, dans l'exemple celui-ci s'appelle CBTATA
Private Sub CBTATA_Click() msgbox ActiveSheet.OLEObjects("CBTATA").Object.Caption ou directement msgbox CBTATA.Object.Caption End Sub
pour un objet xlButton issu de la barre de formulaires et placé dans l'onglet, le code suivant est à mettre dans la macro qui est affectée au bouton en supposant que le bouton s'appelle Button1
pour un objet bouton de commande d'une barre menus donc un controle, lignes
de code à rajouter dans la procédure OnAction stipulée
msgbox CommandBars.ActionControl.caption
A+
Bonjour le Forum, Comment récupérer le caption d'un CommandButton pour le mettre dans une variable , quand on ne connais pas à l'avance celui qui va être selectionné.
Merci d'avance Bonne journée à tous . Yves
Bonjour anomymous,
Grand Merci tout a fait ça.
Yves
"anomymousA" <anomymousA@discussions.microsoft.com> a écrit dans le message
de news:5975C0C8-C1C3-4BFA-96B8-06E8E116BCA0@microsoft.com...
bonjour,
Dans ce qui tu remplaces tous les msgbox par une variable
1)pour un Userform p.e. si on a cliqué sur le bouton celui-ci est
forcément
actif à ce moment-là.
Private Sub CommandButton1_Click()
MsgBox ActiveControl.Object.Caption
End Sub
2) pour un objet OLE dans un onglet, dans l'exemple celui-ci s'appelle
CBTATA
Private Sub CBTATA_Click()
msgbox ActiveSheet.OLEObjects("CBTATA").Object.Caption
ou directement
msgbox CBTATA.Object.Caption
End Sub
pour un objet xlButton issu de la barre de formulaires et placé dans
l'onglet, le code suivant est à mettre dans la macro qui est affectée au
bouton en supposant que le bouton s'appelle Button1
pour un objet bouton de commande d'une barre menus donc un controle,
lignes
de code à rajouter dans la procédure OnAction stipulée
msgbox CommandBars.ActionControl.caption
A+
Bonjour le Forum,
Comment récupérer le caption d'un CommandButton pour le mettre dans une
variable ,
quand on ne connais pas à l'avance celui qui va être selectionné.
Bonjour anomymous, Grand Merci tout a fait ça. Yves "anomymousA" a écrit dans le message de news:
bonjour,
Dans ce qui tu remplaces tous les msgbox par une variable
1)pour un Userform p.e. si on a cliqué sur le bouton celui-ci est forcément
actif à ce moment-là.
Private Sub CommandButton1_Click() MsgBox ActiveControl.Object.Caption End Sub
2) pour un objet OLE dans un onglet, dans l'exemple celui-ci s'appelle CBTATA
Private Sub CBTATA_Click() msgbox ActiveSheet.OLEObjects("CBTATA").Object.Caption ou directement msgbox CBTATA.Object.Caption End Sub
pour un objet xlButton issu de la barre de formulaires et placé dans l'onglet, le code suivant est à mettre dans la macro qui est affectée au bouton en supposant que le bouton s'appelle Button1
pour un objet bouton de commande d'une barre menus donc un controle, lignes
de code à rajouter dans la procédure OnAction stipulée
msgbox CommandBars.ActionControl.caption
A+
Bonjour le Forum, Comment récupérer le caption d'un CommandButton pour le mettre dans une variable , quand on ne connais pas à l'avance celui qui va être selectionné.
