lancer macro dans un CommandButton

G

Grantourismo

XLDnaute Nouveau

• 26 Août 2005

• #2

Il faut faire call + le nom de ta macro

 

Vote positif 0 Vote négatif

Gérard DEZAMIS

XLDnaute Accro

• 26 Août 2005

• #3

Bonjour RudyPerray

Dessiner un Bouton de commande, click droit, visualiser le code,
on trouve donc :

Private Sub CommandButton1_Click()
XXXXXXXXXXXXXXXXX
End Sub

A la place des XXXXXXX tu écris le code de ta macro qui sera éxécutée lors du clic sur le dit bouton ....


Est-ce suffisant ?

@+ GD

 

Vote positif 0 Vote négatif

G

guillaume

Guest

• 26 Août 2005

• #4

Essai un code de ce type

Private Sub CommandButtonX_Click()

Application.Run 'NomMacro'

End Sub


Si tu travail dans un Userform et que tu a des boutons d'option et que tu souhaite appliquer une macro différente en fonction du bouton cliqué, utilise cette macro

Private Sub CommandButton1_Click()

If MiseEnForme.OptionButton1.Value = True Then Application.Run 'NomMacro1'

If MiseEnForme.OptionButton2.Value = True Then Application.Run 'NomMacro2'

End Sub

voilà

 

Vote positif 0 Vote négatif

G

guillaume

Guest

• 26 Août 2005

• #5

Essai un code de ce type

Private Sub CommandButtonX_Click()

Application.Run 'NomMacro'

End Sub


Si tu travail dans un Userform et que tu a des boutons d'option et que tu souhaite appliquer une macro différente en fonction du bouton cliqué, utilise cette macro

Private Sub CommandButton1_Click()

If MiseEnForme.OptionButton1.Value = True Then Application.Run 'NomMacro1'

If MiseEnForme.OptionButton2.Value = True Then Application.Run 'NomMacro2'

End Sub

voilà

 

Vote positif 0 Vote négatif

R

rudaye

Guest

• 27 Août 2005

• #6

Bonjour et merci Gérard DEZAMIS , guillaume et grantourismo !

je vais utiliser cette façon qui me convient :


Private Sub CommandButtonX_Click()

Application.Run 'NomMacro'

End Sub

merci

 

Vote positif 0 Vote négatif