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
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.
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
@+
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+
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 :
Code:
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.
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.