quelqu'un pourrais t'il m'expliquer comment je peux controler que l'on a
cliquer sur un commandbutton.
Voila le pb, sur un classeur j'ai trois command button qui doivent activer
chacun une partie de ma macro .
Ce que j'ai besoin c'est de reconnaitre sur quel button on a cliquer pour
pouvoir
agir sur tel ou tel partie de la macro.
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
anonymousA
bonjour,
'*********************************************************************************** 'Comment détecter la légende d'un bouton actionné et ce quelque soit le bouton '************************************************************************************
'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 ' '3)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 ' 'MsgBox ActiveSheet.shapes("Button1").TextFrame.Characters.Caption ' '4)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 a tous et a toutes
quelqu'un pourrais t'il m'expliquer comment je peux controler que l'on a cliquer sur un commandbutton. Voila le pb, sur un classeur j'ai trois command button qui doivent activer chacun une partie de ma macro . Ce que j'ai besoin c'est de reconnaitre sur quel button on a cliquer pour pouvoir agir sur tel ou tel partie de la macro.
merci d'avance
bonjour,
'***********************************************************************************
'Comment détecter la légende d'un bouton actionné et ce quelque soit le
bouton
'************************************************************************************
'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
'
'3)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
'
'MsgBox ActiveSheet.shapes("Button1").TextFrame.Characters.Caption
'
'4)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 a tous et a toutes
quelqu'un pourrais t'il m'expliquer comment je peux controler que l'on a
cliquer sur un commandbutton.
Voila le pb, sur un classeur j'ai trois command button qui doivent activer
chacun une partie de ma macro .
Ce que j'ai besoin c'est de reconnaitre sur quel button on a cliquer pour
pouvoir
agir sur tel ou tel partie de la macro.
'*********************************************************************************** 'Comment détecter la légende d'un bouton actionné et ce quelque soit le bouton '************************************************************************************
'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 ' '3)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 ' 'MsgBox ActiveSheet.shapes("Button1").TextFrame.Characters.Caption ' '4)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 a tous et a toutes
quelqu'un pourrais t'il m'expliquer comment je peux controler que l'on a cliquer sur un commandbutton. Voila le pb, sur un classeur j'ai trois command button qui doivent activer chacun une partie de ma macro . Ce que j'ai besoin c'est de reconnaitre sur quel button on a cliquer pour pouvoir agir sur tel ou tel partie de la macro.
merci d'avance
christophe
Bonjour
avec un peu de retard je te remercie pour ton aide qui m'a ete tres utile
A+
Christophe
bonjour,
'*********************************************************************************** 'Comment détecter la légende d'un bouton actionné et ce quelque soit le bouton '************************************************************************************
'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 ' '3)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 ' 'MsgBox ActiveSheet.shapes("Button1").TextFrame.Characters.Caption ' '4)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 a tous et a toutes
quelqu'un pourrais t'il m'expliquer comment je peux controler que l'on a cliquer sur un commandbutton. Voila le pb, sur un classeur j'ai trois command button qui doivent activer chacun une partie de ma macro . Ce que j'ai besoin c'est de reconnaitre sur quel button on a cliquer pour pouvoir agir sur tel ou tel partie de la macro.
merci d'avance
Bonjour
avec un peu de retard je te remercie pour ton aide qui m'a ete tres utile
A+
Christophe
bonjour,
'***********************************************************************************
'Comment détecter la légende d'un bouton actionné et ce quelque soit le
bouton
'************************************************************************************
'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
'
'3)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
'
'MsgBox ActiveSheet.shapes("Button1").TextFrame.Characters.Caption
'
'4)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 a tous et a toutes
quelqu'un pourrais t'il m'expliquer comment je peux controler que l'on a
cliquer sur un commandbutton.
Voila le pb, sur un classeur j'ai trois command button qui doivent activer
chacun une partie de ma macro .
Ce que j'ai besoin c'est de reconnaitre sur quel button on a cliquer pour
pouvoir
agir sur tel ou tel partie de la macro.
avec un peu de retard je te remercie pour ton aide qui m'a ete tres utile
A+
Christophe
bonjour,
'*********************************************************************************** 'Comment détecter la légende d'un bouton actionné et ce quelque soit le bouton '************************************************************************************
'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 ' '3)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 ' 'MsgBox ActiveSheet.shapes("Button1").TextFrame.Characters.Caption ' '4)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 a tous et a toutes
quelqu'un pourrais t'il m'expliquer comment je peux controler que l'on a cliquer sur un commandbutton. Voila le pb, sur un classeur j'ai trois command button qui doivent activer chacun une partie de ma macro . Ce que j'ai besoin c'est de reconnaitre sur quel button on a cliquer pour pouvoir agir sur tel ou tel partie de la macro.
