Bonjour à tous;

Je demande l'aide;on faite j'ai un formulaire à remplire sous Excel,avant l'imprission,je vérifier les champs obligatoire à remplire.
Ici tout est bon.
Mon probléme c'est je veux indiquer ce champs n'est pas remplire pendant l'imprission(en colorant la cellule par exemple ou pointer dessus ...).
Voilà Mon code de controle les champs:

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
20
21
22
23
24
25
26
27
28
29
30
'***************************************************
'  vérification que les champs sont bien remplire:                           *
'***************************************************
 
Function TestChampsOblig() As Integer
Dim MandatoryField As Range
Dim Cell As Range
Dim Bad As Integer
 
Set MandatoryField = Application.Union(Range("E17"), Range("E18"), Range("E23"), Range("E28"), Range("B33"), Range("B32"), Range("B17"), Range("B19"), Range("B23"), Range("B24"), Range("B30"), Range("B32"), Range("I23"), Range("L23"), Range("K28"), Range("K29"))
 
For Each Cell In MandatoryField
If IsError(Cell) = False Then
    If Cell.Value = "" Then
        Bad = Bad + 1
    End If
Else
    Bad = Bad + 1
End If
Next
 
Select Case Bad
Case 0:
Case 1: MsgBox Bad & " Champs Obligatoire n'est pas rempli", vbCritical
Case Else: MsgBox Bad & " Champs Obligatoires ne sont pas remplis", vbCritical
End Select
 
TestChampsOblig = Bad
 
End Function
Merci de votre attention