Discussion :

[toufik135]

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

[Invité]

Bonjour,

Exit est un mot réservé. Changez de nom à votre contrôle.

Cordialement.