chris6999
XLDnaute Impliqué
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
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