Bonjour tout le monde,

Je me sens très bête car ej n'arrive pas à utiliser l'évènement beforeSave...

J'ai écris le code suivent dans le module ThisWorkbook

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
17
18
19
Private Sub Workbook_BeforeSave(Cancel As Boolean)
 
    Dim MistakePlace As String
    Dim WarningMsg As String
 
    MistakePlace = Range("cc11").Value
 
    If MistakePlace <> "" Then
 
    WarningMsg = MsgBox("There's a wrong input in the cell " & MistakePlace & " ! Please make adjustements and save again.")
    Cancel = True
 
    Else
 
    Cancel = False
 
    End If
 
End Sub
J'aimerais que l'on ne puisse pas sauver si la valeur de la cellule CC11 est différente de ""

Maintenant, qd je veux sauver, j'ai le msg d'erreur suivent:

"Compile error
Procedure declaration does not match description event"

Qqn peut-il m'aider et me dire ce qui n'est pas bon dans mon code ????

Merci bcp pour votre aide