Nombre de cellule vide

[deni29]

Bonjour le forum,

Je cherche a connaitre le nbre de cellule vide dans une plage (exemple "B10:B100").

sub essai()
dim Valeur as integer
Valeur = ???? ("B10:B100")..... ou ????
'après (par exemple)
if Valeur > 10 then
:
:
end if
end sub

Mais je ne trouve pas le code !

Merci d'avance

Deni29

 

[Brigitte]

Re : Nombre de cellule vide

Bonjour,

Et en formule, ca te plait pas ?

A tout zazard : =NB.VIDE(A4:A8) Plage à adapter bien sûr.

 

[Hervé]

Re : Nombre de cellule vide

bonjour

une solution possible par une boucle :

Dim c As Range
Dim valeur As Integer

For Each c In Range("b1:b100")
    valeur = valeur - IsEmpty(c)
Next c

salut

 

[Hervé]

Re : Nombre de cellule vide

re, coucou brigitte

la version vba de la formule de ptite olive :

valeur = Application.CountBlank(Range("b1:b100"))


salut

 

[deni29]

Re : Nombre de cellule vide

Bonjour Brigitte, Hervé

Merci beaucoup, les solution fonctionnent trés bien.

SLT

Deni29