Validation dans les cellules avant d'enregistrer
c
Bonjour,
Ma validation se fait dans la cellule A1 de l'onglet Validation.
Comment l'exprimer dans le code suivant ?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If (Range("A1").Value > 0) Then
MsgBox "Vous n'avez pas complété tous les champs requis. Vous devez catégoriser chacun des titres d'emplois en veille ou requis et compléter la section d'identification."
Cancel = True
Else
Cancel = False
End If
End SubMerci
3
Bonjour,
On ne sait pas vraiment sur quoi repose la valeur de A1 mais ça parait correct. Je dirais qu'il vaut mieux préciser la feuille au cas où :
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Sheets("Validation").Range("A1").Value > 0 Then 'bien s'assurer que > 0 suffit et qu'il ne faut pas <> 0 ou <> ""
Cancel = True
MsgBox "Vous n'avez pas complété tous les champs requis. Vous devez catégoriser chacun des titres d'emplois en veille ou requis et compléter la section d'identification."
End If
End SubCdlt,