Bonsoir,

J'ai une autre fonction ou je change la couleur du bouton lorqu'on clique dessus qui fonctionne mais celle-ci me donne une erreur de compilation :

Erreur de compilation: Attendu Do ou For ou Sub ou Fonction ou Property

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Exit_Click()
    Exit.BackColor = RGB(181, 186, 244)
    réponse = MsgBox("Save and Exit ?" & Chr(13) & Chr(10) & "    Yes to quit ; No to quit without saving", vbYesNoCancel, "Exit ...")
    If réponse = vbYes Then
        For Each Workbook In Application.Workbooks
            Workbook.Save
        Next Workbook
        Application.Quit
    End If
    If réponse = vbNo Then
        ActiveWorkbook.Save
        ActiveWorkbook.Close
    End If
    Exit.BackColor = RGB(249, 250, 252)
End Sub