Discussion :

[mémoinfo]

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
...
If Cell.Value = "" Then
Cell.Interior.ColorIndex = 5 'code couleur 5 = Blue
...

A+

[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?

merci

[Fvandermeulen]

J'aurais du y penser ...

Place ceci après ton Set MandatoryField

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[mémoinfo]

Parfait Monsieur Fvandermeulen,ce que je cherche exactement.


Merci beaucoup