Selection d'une case non valide et zoom - VBA

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 :

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 :

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_

Bonjour,

Une proposition

A+

Serait-il possible également de centre la feuille sur la cellule non valide ?

Je travaille sur une feuille à 300 lignes.

Merci beaucoup pour la première partie, en tout cas

A+