nombre de lignes non vides

[abtony]

Bonsoir le forum,

dans une feuille de calcul en colonne A, je souhaite compter en vba le nombre de lignes non vides
j'ai ca actuellement mais ca fonctionne pas

textbox1.Value = " Nombre d'éléments dans la liste: " & ActiveSheet.UsedRange.Rows.Count

merci pour votre aide

 

[Cousinhub]

Re : nombre de lignes non vides

bonsoir, essaie avec ce 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 :

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

 

[abtony]

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

 

[Cousinhub]

Re : nombre de lignes non vides

Re-,
essaie alors :

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

 

[abtony]

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

 

[tapha20]

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