Code pour contrôle sur plage non vide

[chris6999]

Bonjour


Pourriez-vous m'aider sur ma problématique actuelle.

J'ai un code qui réalise divers tests en s'assurant que certaines cellules sont bien renseignées (cellules non vides).
J'utilise pour cela la fonction

Function EstVide(Rng As Range) As Boolean
EstVide = Application.CountA(Rng) < Rng.Count
End Function

Je dois inclure dans cette même chaine un contrôle sur une plage afin de vérifier le contraire à savoir que cette plage est bien vide (colonnes AE à AI).

Du coup j'avais pensé à positionner un if not mais cela ne fonctionne pas.

If Not EstVide(Range("AE" & ActiveCell.Row & ":AH" & ActiveCell.Row)) Then '
MsgBox "Une des cellules n'est pas vide"

Pouvez-vous me dire comment faire ce contrôle sur plage non vide ?
J'insiste sur plage non vide car je ne voudrais pas un code du type :
Si vide ...
Sinon...

Merci d'avance pour votre aide

 

[phlaurent55]

Bonjour chris,

voir fichier joint

à+
Philippe

 

[Si...]

bon_soir

2 propositions dans le fichier : avec VBA, avec MFC.

 

[chris6999]

Bonjour et merci encore pour vos réponses.

Après quelques tests, je me suis finalement inspirée de la proposition de Barbatruc qui correspondait plus aux besoins de mon projet.

Du coup c'est relancé pour la suite....

Bonne journée à tous