Obliger saisie avant enregistrer

[ZAREK]

Rebonjour le Forum,

Quelqu'un pourrait-il me donner le code pour empêcher l'enregistrement d'un fichier TANT qu'une certaine cellule (F9 par ex) n'est pas égale à 1 ?
(Un UserForm est sans doute nécessaire alors pour renvoyer l'utilisateur à la feuille incomplète).

MMMMMerci,

Philippe

 

[jmps]

Bonjour ZAREK,

Place ce code dans le ThisWorkbook de ton fichier. Pas besoin de userform.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
&nbsp;&nbsp;If Sheets("Feuil2").Range("F9").Value <> 1 Then
&nbsp;&nbsp;&nbsp;&nbsp;MsgBox ("Saisie obligatoire avant d'enregistrer.")
&nbsp;&nbsp;&nbsp;&nbsp;Sheets("Feuil2").Select
&nbsp;&nbsp;Range("F9").Select
&nbsp;&nbsp;Cancel = True
&nbsp;&nbsp;End If
End Sub

Bon après-midi.

José

 

[jmps]

J'ai oublié de te dire de remplacer "Feuil2" par le nom de ta feuille.

A+

José

 

[ZAREK]

Bonsoir José,

Extra !

C'est exactement ce que je cherchais !

Encore merci et à +,

Philippe