Discussion :

[Capsule]

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

[myrddin772]

C'est certainement parce que l'appel se fait comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Ensuite, je te conseille de préciser la feuille dans laquelle tu prend la cellule.

[Gorfael]

Saliut
Pour en revenir à Excel, soit feignant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Dim MistakePlace As String
MistakePlace = Range("cc11")
 
If MistakePlace <> "" Then
    MsgBox ("There's a wrong input in the cell " & MistakePlace & " ! Please make adjustements and save again.")
    Cancel = True
End If
 
End Sub

testes-la
A+

[Capsule]

Saliut
Pour en revenir à Excel, soit feignant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 
Dim MistakePlace As String
MistakePlace = Range("cc11")
 
If MistakePlace <> "" Then
    MsgBox ("There's a wrong input in the cell " & MistakePlace & " ! Please make adjustements and save again.")
    Cancel = True
End If
 
End Sub

testes-la
A+

Parfait ca fonctionne correctement !

Merci bcp, et à l'avenir j'essaierai d'être encore plus fainéante la prochaine fois !