End(xlDown) pour compter les cellules non vides

[awa123]

Bonjour,

je voudrais compter le nombre de ligne qui ont des cellules de données de B5 jusqu'à la cellule prochaine cellule vide (peu importe s'il y a d'autres cellules remplies de données plus bas).
Tout ceci pour affecter la valeur numérique à une de mes variables (tot_noper).
voir mon fichier excel svp.

j'ai pensé à un code du genre :

Sub test()
Dim tot_noper As Integer
    
With Worksheets("Feuil1")

        'en colonne C à partir de C5
                
        'Set Plage = .Range(.Cells(5, 2), .Cells(.Rows.Count, 2).End(xlDown))

        Set tot_noper = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

End Sub

 

[Bernard_XLD]

Re : End(xlDown) pour compter les cellules non vides

Bonjour

Dim Tot_Noper As Long
Dim Cel_Ref As Range
Set Cel_Ref = ActiveSheet.Range("B5")
Tot_Noper = Cel_Ref.End(xlDown).Row - Cel_Ref.Row + 1

Cordialement, @+