VBA Excel controle les champs

Version imprimable

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:

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

08/06/2009, 14h07
Fvandermeulen
Salut,
Tu peux, si tu veux, colorer la cellule concernée directement dans ta boucle.
Je suppose qu'elle doit l'etre si elle est égale à "" donc:
Code:

1 2 3 4 ... If Cell.Value = "" Then Cell.Interior.ColorIndex = 5 'code couleur 5 = Blue ...
A+
08/06/2009, 14h28
mémoinfo

Merci Fvandermeulen ça fonctionne trés bien,juste un petit souci,on faite les cellule reste tjrs coloré,mais aprés la remplission,je veux que ces cellule reprendre leur couleur normale.
Je ne sais pas si vous avez compris ce que je voulais dire? :P

merci
08/06/2009, 14h43
Fvandermeulen

J'aurais du y penser ...:oops:

Place ceci après ton Set MandatoryField

Code:

MandatoryField.Interior.ColorIndex = xlNone

Les cellules contenues dans cette plage n'auront alors pas de fond.
Par contre le fond restera jusqu'à ce que cette macro soit réactivée.
Si tu veux que le fond disparaisse lorsque l'utilisateur rempli le champs il faudra passer par un module de feuille.
A toi de voir ce que tu préfères.

A+
08/06/2009, 15h23
mémoinfo

Parfait Monsieur Fvandermeulen,ce que je cherche exactement.

Merci beaucoup :P