nombre de lignes non vides

Cousinhub

XLDnaute Barbatruc

• 16 Février 2008

• #2

Re : nombre de lignes non vides

bonsoir, essaie avec ce code :

Code:

Sub compte()
derlig = [A65000].End(xlUp).Row
With Range("A1:A" & derlig)
    x = derlig - .SpecialCells(xlCellTypeBlanks).Count
End With
End Sub

Edit : si tu as des cellules vides dans la colonne A

et si tu ne sais pas s'il peut y en avoir :

Code:

Sub compte()
derlig = [A65000].End(xlUp).Row
With Range("A1:A" & derlig)
On Error Resume Next
    nbvide = .SpecialCells(xlCellTypeBlanks).Count
    If nbvide <> "" Then
        x = derlig - .SpecialCells(xlCellTypeBlanks).Count
    Else
        x = derlig
    End If
On Error GoTo 0
End With
End Sub

 

Dernière édition: 16 Février 2008

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 16 Février 2008

• #3

Re : nombre de lignes non vides

je te remercie pour la réponse,
mais c'est pour afficher le résultat dans un label comme indique mon exemple.

merci si tu a une solution

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 16 Février 2008

• #4

Re : nombre de lignes non vides

Re-,
essaie alors :

Code:

TextBox1.Value = " Nombre d'éléments dans la liste: " & Sheets("Feuil1").[A65000].End(xlUp).Row

 

Vote positif 0 Vote négatif

abtony

XLDnaute Impliqué

• 16 Février 2008

• #5

Re : nombre de lignes non vides

C'est tout simplement impeccable, rien dire c'est parfait !

merci beaucoup bhbh

vous êtes vraiment des pro ici bravo

 

Vote positif 0 Vote négatif

T

tapha20

XLDnaute Occasionnel

• 17 Juillet 2012

• #6

Re : nombre de lignes non vides

bjr à tous

je recherche la même chose mais en formule excel et pas en VBA

le raisonnement est le suivant:

colonne C: on séléctionne les C5 comme segment

Colonne H: ses cellulles doivent être non vide.

Colonne I: ses celulles doivente être vide

remarque: les celulles de H et I comportent des numéro de semaines.

en résumé: si sur le segment C5, on a un numéro de semaine en colonne H et on a un vide en colonne I, alors on compte le nombre de ligne.



Merci pour votre aide

Cordialement

 

Vote positif 0 Vote négatif