compter des lignes vides

[cacal70]

bonsoir
je cherche à compter les lignes vides dans un tableau...
comment faire
merci de votre aide
A+
cacal :ermm:

 

[XanorK]

Bonjour Cacal70


Bien sur, il faut adapter le contenu du range :

Sub compt_vide()
    Dim cell As Range
    Dim i As Integer
    
    For Each cell In Range('A1', 'A20')
        If cell = '' Then i = i + 1
    Next cell

    MsgBox i
    
End Sub

Edit : en fait, cela compte les cellules vides

Message édité par: XanorK, à: 23/05/2006 19:06

 

[AV]

Salut,

Sub zz_NbreLgVides()
For i = [tablo].Find('*').Row To [tablo].Find('*', , , , , xlPrevious).Row
x = x + (Evaluate('CountA(' & i & ':' & i & ')') > 0) * -1
Next
MsgBox 'Nbre lignes vides : ' & [tablo].Rows.Count - (x * 1)
End Sub

AV [aaa]