XL 2016 VBA détecter si aucune cellule du range vide

chifounou

XLDnaute Occasionnel
Bonjour,

Comment détecter si la totalité des cellules d'un range sont remplies en VBA ?

Not IsEmpty je crois détecte la moindre cellule non vide

Merci
 

chifounou

XLDnaute Occasionnel
Finalement j'ai pris cette option

Sub chifounou()
Dim rng As Range
Set rng = Range("B2:C4")
Cells(5, "B").Formula = "=COUNTBLANK(" & rng.Address & ")"
If Cells(5, "B") = rng.Cells.Count Then
MsgBox "The Range is empty"
Else
MsgBox "The Range is not empty"
End If
End Sub
 

Discussions similaires

Réponses
4
Affichages
186