Bonjour à vous,


J'aurais besoin de votre aide pour l'amélioration d'un projet que j'ai en cours.
Pour faire simple, j'ai déjà la base en dessous, et j'aurais aimé ajouter quelques chose en plus.
Puisqu'il reconnait qu'une case dans la zone définie n'est pas valide, je me demandais si il était possible de la sélectionner, puis de la mettre en évidence (couleur, gras etc...), tout ça sous vBA évidemment.

module :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Function nbVides(zone As Range) As Boolean
Dim cel As Range
For Each cel In zone
If Not IsNumeric(cel) Or cel < 0 Or cel = "" Then
nbVides = True
Exit Function
End If
Next
 
End Function
et fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Deactivate()
 
 
 
If nbVides(Range("nonvall")) Then
MsgBox "Saisie Incorrectes", vbOKOnly + vbCritical
Feuil2.Activate
End If
 
 
 
End Sub
PS : ici la cellule "nonvall" est un groupement de cellules fait sous excell répondant à la même requête..
Pourriez-vous m'aider?
Merci d'avance
Cordialement,
Ela_