Rapport de message :*
 

Re: Sauvegarde conditionnelle avec msgbox

Titre du sujet : Re: Sauvegarde conditionnelle avec msgbox
par myDearFriend! le 01/06/2008 01:09:32

Bonsoir Ghandra,

Une façon de faire :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim F As Byte
Dim Ko As Boolean
    For F = 1 To 12
        If Sheets(F).AutoFilter.Filters(1).On Then
            Ko = True
            Exit For
        End If
    Next F
    If Ko Then
        MsgBox "Pas de sauvegarde possible sans avoir enlevé " & _
                "les filtres ^^ (Feuille """ & Sheets(F).Name & """)"
        Cancel = True
    End If
End Sub

Cordialement,