'Mets en action la touche "q" pour utiliser la macro "Addition"
Sub Add()
Application.OnKey "q", "Addition"
End Sub
'Annule la touche "q" et revient à la normale
Sub NoAdd()
Application.OnKey "q"
End Sub
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
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