Afficher un message
Vieux 02/11/2004, 21h58   #2 (permalink)
michel
Guest
 
Messages: n/a
Par défaut Re: Passer paramètre code click bouton

bonsoir Clark


si un CommandButton , est inséré dans une feuille appelée "Activite" et qu'une procedure est associée à l'evenement Clic du bouton .
par exemple :

Private Sub CommandButton1_Click()
MsgBox "Le forum XLD"
End Sub


la procedure ci-dessous , insérée dans un module , permet d'activer la macro du CommandButton

Sub lanceEvenementClickBouton()
Application.Run Sheets("Activite").CodeName & ".CommandButton1_Click"
End Sub


bonne soirée
MichelXld