Nombre de lignes renseignées de la feuille [VBA]

Bonjour,

je cherche simplement une ligne de code qui me permettrait de donner le nombre de lignes renseignées de la feuille où qu'elle soient. C'est à dire si les lignes 1 à 10 et 17 à 19 sont vides, mais que les lignes 11 à 16 et 20 à 24 sont renseignées, donne 11 (6 + 5).

Jai un code que voici

  Range("E14").Value = ActiveSheet.UsedRange.Rows.Count 

qui est associé a un bouton, mais la ligne de code ne fait pas ce que je demande, pouvez-vous m'aider svp ?

Cordialement

Bonjour,

Quelle est la colonne ou les colonnes de référence ?

Cdlt.

Bonjour,

Tu lui as pas demandé !

Sub Test()
    Dim n%
    With ActiveSheet
        With .UsedRange.Columns(1)
            n = .Cells.Count - .SpecialCells(xlCellTypeBlanks).Count
        End With
        .Range("E14") = n
    End With
End Sub

Cordialement.

Bonjour Mferend,

Je ne pensais pas que il fallait autant de ligne pour une simple demande haha

Sinon c'est bien ce qu'il me fallait, merci !

Re,

Ça permet d'être plus clair, et les objets étant qualifiés,ce ne sera pas moins rapide mais plus !

Note qu'on teste sur une colonne, la A en considérant qu'elle est significative du fait que la ligne soit ou non renseignée. Ce qui peut être éventuellement à adapter.

Cordialement.