1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25
| Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ' <-- Teste si les cellules à remplir obligatoirement, le sont !
Dim FL1 As Worksheet, TabloChamp As Variant, TabloMsg As Variant, i As Integer
Set FL1 = Worksheets("Remplacement")
TabloChamp = Array("B2", "D3", "C5", "G6", "B9", "B19", "C20", "G20", "D21", "I21", "I21")
TabloMsg = Array("CASS ou Unité ", "Nom et prénom de la personne à remplacer ", _
"Taux d'activité du collaborateur ", "N° du bureau ", "Justification de la demande ", _
"Remplaçant(e) désiré(e) ", "Début de mission ", "Fin de mission ", _
"Votre nom et prénom ", "Date de la demande ") ' <-- Texte du champ oublié
For i = 0 To UBound(TabloChamp) - 1 ' <-- test sur les 10 éléments du tableau, remplis ou pas remplis
If FL1.Range(TabloChamp(i)) = "" Then
MsgBox "Nous sommes le " & Date & " " + Chr$(13) + Chr$(13) & "Vous êtes : " & Environ("username") + Chr$(13) + Chr$(13) & "Vous avez oublié de saisir le champ : " + Chr$(13) + Chr$(13) & TabloMsg(i) + Chr$(13) + Chr$(13) & "Veuillez le saisir svp ! !", vbOKOnly + vbExclamation, " - ERREUR DE SAISIE - " ' <-- Mise en forme du message erreur
ActiveCell.Interior.ColorIndex = 5 ' <-- La cellule non remplie est colorisée en bleu
Cancel = True
Exit For
End If
Next
End Sub |
Partager