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

[chifounou]

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

 

[Dranreb]

Bonjour.
…Et IsEmpty détecte la moindre cellule vide.

 

[chifounou]

Autant pour moi !

 

[chifounou]

Non, je délire.

If Not IsEmpty(Range("A1:B3")) Then

ne peut pas tester si toutes les 6 cellules sont remplies à la fois

 

[Dranreb]

Non, faites le avec un boucle For Each V In [A1:B2].Value: PasBon = IsEmty(V): If PasBon Then Exit For

 

[chifounou]

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

 

[Dranreb]

Alors pour ne pas avoir à poser la formule vous pouvez aussi utiliser l'expression WorksheetFunction.CountBlank([B2:C4]) ou bien [COUNTBLANK(B2:C4)]

 

[chifounou]

Merci !