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

Dranreb

XLDnaute Barbatruc

• 2 Février 2017

• #2

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

 

Vote positif 0 Vote négatif

chifounou

XLDnaute Occasionnel

• 2 Février 2017

• #3

Autant pour moi !

 

Vote positif 0 Vote négatif

chifounou

XLDnaute Occasionnel

• 2 Février 2017

• #4

Non, je délire.

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

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Février 2017

• #5

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

 

Vote positif 0 Vote négatif

chifounou

XLDnaute Occasionnel

• 2 Février 2017

• #6

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Février 2017

• #7

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

 

Vote positif 0 Vote négatif

chifounou

XLDnaute Occasionnel

• 2 Février 2017

• #8

Merci !

 

Vote positif 0 Vote négatif