valeur dans une plage

[thombar]

Bonjour le forum,

Je voudrais pouvoir obtenir un message si une plage ne détient aucune valeur. Attention : je ne veux pas le message à chaque cellule vide mais seulement si l'ensemble est vide.

Ceci ne fonctionne pas :

If IsEmpty(Range("C8:C10")) Then
message = MsgBox("Merci de remplir une des trois cellules")
Exit Sub
End If

merci de votre aide !!

 

[Robert]

Bonjour Thombar, bonjour le forum,

Ceci est un peu plus long mais foncitionne.

For Each cel In Range("C8:C10")
If cel.Value <> "" Then
Exit Sub 'ou goto selon tes besoins
End If
Next
Message = MsgBox("Merci de remplir une des trois cellules")

À plus,

Robert