affecter 2 Macro à un seul boutton

[Am alive]

Bonsoir à tous
est-il possible d'affecter 2 macro à un seul boutton
exemple: If Range('A1').value = date Then
exécuter la 2ème Macro, sinon exécuter la 1ère macro
Merci d'avance

 

[Paladin]

Bonjour Am Alive,

Je vois pas trop où est ton problème. Tu peux créer un module dans lequel tu mets :

Sub Macro1()
...
End Sub

Sub Macro2()
...
End Sub

Et dans ton bouton tu marques :

Private Button_Click()
If Range('A1').Value = Date Then
Macro1
Else
Macro2
End If
End Sub

Tu peux même faire en sorte d'utiliser un Select Case ... ce qui peut faire que ton bouton se voit 'affecter', comme tu dis, plus que deux macros.

 

[antiphot]

Bonjour Am alive, Paladin et le forum

Dans le fichier ci-joint une autre option avec un bouton va et vient. A voir si cela te convient

tient nous au courant

 

[antiphot]

Bon voila ce fameux fichier [file name=boutonvaetvient.zip size=9781]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/boutonvaetvient.zip[/file]

 

[antiphot]

Bonjour Am alive, Paladin et le forum

Dans le fichier ci-joint une autre option avec un bouton va et vient. A voir si cela te convient

tient nous au courant

 

[Am alive]

Bonjour à tous
Merci Paladin Merci Antiphot
Voici un exemple dans fichier joint pour le code de paladin,il ya une erreur et je narrive pas à trouver
Merci d'avance [file name=Classeur1_20060503123601.zip size=5689]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060503123601.zip[/file]

 

[antiphot]

Désolé de te répondre si tard mais je reviens sur le forum à l'instant.

Bon c'est pas bien grâve. Il n'y a pas d'erreur dans le code de Palladin. Tu as juste fais une erreur concernant l'emplacement de la routine du bouton situé en feuil1.

Ci-joint le fichier corrigé

[file name=AmAlive.zip size=9908]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/AmAlive.zip[/file]

 

[Am alive]

Bonsoir à Tous
Bonsoir Antiphot et merci pour votre aide,mais comment placer une commandbutton sur la feuille1
car je suis nul de créer une commandbuton sur une feuille excel
Merci d'avance

 

[ccpapy]

bonjour à tous
clic droit sur la barre d'outils
cocher boite à outils controle
clic sur l'equerre (mode creation)
clic sur bouton de commande
se reporter sur la feuille et etirer bouton gauche enfonçé
enfin clic droit sur le bouton crée et
visualiser le code
tu reportes le code donné par antiphot
reclic sur mode création (quitter )

voilà :assez détaillé ?
à+