C cacal70 Guest 23 Mai 2006 #1 bonsoir je cherche à compter les lignes vides dans un tableau... comment faire merci de votre aide A+ cacal :ermm:
bonsoir je cherche à compter les lignes vides dans un tableau... comment faire merci de votre aide A+ cacal :ermm:
XanorK XLDnaute Occasionnel 23 Mai 2006 #2 Bonjour Cacal70 Bien sur, il faut adapter le contenu du range : Code: 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 Vote positif 0 Vote négatif
Bonjour Cacal70 Bien sur, il faut adapter le contenu du range : Code: 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
A AV Guest 23 Mai 2006 #3 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] Vote positif 0 Vote négatif
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]