Un bouton pour 2 macros

[guy72]

Bonjour,
Je souhaiterais avoir un bouton pour deux macros (genre bouton à bascule).
Bouton enfoncé rouge = macro 1
Bouton Normal Vert = Macro 2.
J'ai regardé dans "recherche", mais je n'ai pas trouvé ou je ne sais pas appliqué ce qui existe.
Merci de votre aide
Guy

 

[fhoest]

Re : Un bouton pour 2 macros

Bonjour guy
voici une proposition:
A+

 

[bond]

Re : Un bouton pour 2 macros

Une proposition de bouton sur la feuille (vs UF) :

 

[guy72]

Re : Un bouton pour 2 macros

Bonjour,
Avec le bouton à bascule, (suivant les exemples) vous faite apparaitre un Usf.
Mais il faut appuyer sur un autre bouton pour le faire disparaître, alors que je souhaiterais le faire disparaître avec le même bouton.

 

[bond]

Re : Un bouton pour 2 macros

j'allume, j'éteinds, j'allume, j'éteinds, j'allume, j'éteinds,...

 

[fhoest]

Re : Un bouton pour 2 macros

Re,
il suffit d'adapter
A+

 

[guy72]

Re : Un bouton pour 2 macros

Non, je n'y arrive pas.
Bouton enfoncé Rouge = ma macro "Add".

'Mets en action la touche "q" pour utiliser la macro "Addition"
Sub Add()
  Application.OnKey "q", "Addition"
End Sub

Bouton Normal Vert = ma macro "NoAdd".

'Annule la touche "q" et revient à la normale
Sub NoAdd()
  Application.OnKey "q"
End Sub

 

[Pierrot93]

Re : Un bouton pour 2 macros

Bonjour,

petite réflexion au passage, pas top de nommer ta procédure "Add", c'est un mot clé vba, méthode d'ajout dans une collection .... risque fort de poser des problèmes...
bon après midi
@+

 

[fhoest]

Re : Un bouton pour 2 macros

Re,
sache que l'application onkey joue uniquement sur une feuille de classeur excel et non dans un userform
je ne sais pas ou tu veux utilisé ce code
si c'est sur une feuiile de classeur tu dois utilisé l'exemple fournis par Bond et y adapter le code que j'ai mis en dernier lieu pour l'appel des macro
A+

 

[guy72]

Re : Un bouton pour 2 macros

Je ne peux pas utilisé le modèle de "Bond" il est en EXCEL 2010

 

[DoubleZero]

Re : Un bouton pour 2 macros

Bonjour, le Fil, le Forum,

Une autre suggestion dans le fichier joint.

Bon courage .

 

[Fo_rum]

Re : Un bouton pour 2 macros

Bonsoir,

encore une (avec 2 cas) !

As-tu lu ?

 

[job75]

Re : Un bouton pour 2 macros

Bonsoir guy72, le fil,

Ce bouton a quelque chose à voir avec ce fil, non ?

https://www.excel-downloads.com/threads/additionner-plusieurs-cellules.165531/

Voyez le fichier joint avec ces macros :

1) Dans le code de la feuille du bouton :

Private Sub CommandButton1_Click()
With CommandButton1
  If .BackColor = &H8080FF Then 'si rouge
    Application.OnKey "q", "ThisWorkbook.Addition"
    .BackColor = &HFF00& 'vert
  Else
    Application.OnKey "q"
    .BackColor = &H8080FF 'rouge
  End If
End With
End Sub

2) Dans ThisWorkbook :

Private Sub Workbook_Open()
If Sheets("Feuil1").CommandButton1.BackColor = &HFF00& _
  Then Application.OnKey "q", "ThisWorkbook.Addition" 'si vert
End Sub

Sub Addition()
MsgBox "La macro Addition s'exécutera" 'Mettre là la macro
End Sub

J'ai mis la macro Addition dans Thisworkbook, comme j'avais fait dans l'autre fil.

A+

 

[guy72]

Re : Un bouton pour 2 macros

Bonjour Job75
Oui c'est en rapport avec ce fil (message #32).
C'est exatement ça qu'il me faut.
Merci encore
Cordialement
Guy

 

[Fo_rum]

Re : Un bouton pour 2 macros

Bonjour (notamment aux personnes qui ont essayé de répondre),

@guy72 :
même si les autres intervenants ne t'ont pas apporté la réponse que tu souhaitais, la moindre des politesses est de les saluer et de leur faire savoir ce qui cloche dans leur proposition.