Comment compter les cellules non vides dans un fichier

juste pour le fun : comment compter les cellules non vides dans un fichier?

J'ai un gros fichier, ça fait des mois que j'y bosse, et juste pour le fun, je serais curieuse de connaitre le nombre de cellules non vides contenues dans ce fichier.

Quelqu'un sait-il comment faire ça?

Bonjour,

Utilise la formule NB.VIDE

Il faut juste rentrer la plage de données à inspecter.

NB.VIDE, c'est pour compter les cellules vides, non? Je voudrais compter les cellules non vides.

De plus, mon problème, c'est que je voudrais recenser les cellules non vides dans l'ensemble de mon fichier (tous feuillets confondus).

Bonjour,

Une procédure VBA à tester.

Cdlt.

Public Sub DEMO()
Dim ws As Worksheet
Dim rng As Range
Dim x As Long, y As Long, z As Long

    Application.ScreenUpdating = False

    For Each ws In ActiveWorkbook.Worksheets
        Set rng = ws.UsedRange
        x = x + rng.Cells.Count
        On Error Resume Next
        y = y + rng.SpecialCells(xlCellTypeConstants, 23).Count
        z = z + rng.SpecialCells(xlCellTypeFormulas, 23).Count
        On Error GoTo 0
    Next

    MsgBox y + z & " cellules sont non vides sur un ensemble de " & x & " cellules.", vbInformation

    Set rng = Nothing

End Sub
Rechercher des sujets similaires à "comment compter vides fichier"