Comptage de cellules on vides

Bonjour le forum

le bout de code ci-dessous permet de compter le nombre de cellules non vide de la colonne "A"

N = Application.WorksheetFunction.CountA(Columns(1))
   [D1] = N

Comment faire pour l'adapter afin de ne compter que les cellules non vides de la même colonne sans compter les 3 premières cellules soit "A1", "A2" et "A3"

D'avance merci pour votre aide et votre disponibilité

Bonjour Eole, bonjour le forum,

Trop de vent dans ta tête certainement...

N = Application.WorksheetFunction.CountA(Range("A4:A" & Application.Rows.Count))
Range("D1").Value = N

Bonjour @Eole-33,

Tu peux aussi, dans la celle D1, mettre la formule suivante :

=SOMMEPROD(($A$4:$A$1048576="")*1)

Pas besoin de fonction personnalisée dans ce cas.

Bonjour à toute et tous,

A tester aussi par formule.

En "D1"

=NB.SI(A4:A1048576;"")

Cordialement.

Bonjour à tous

le bout de code ci-dessous permet de compter le nombre de cellules non vide de la colonne "A"

Comment faire pour l'adapter afin de ne compter que les cellules non vides de la même colonne sans compter les 3 premières cellules soit "A1", "A2" et "A3"

Il me semble que Valky68 et MDO100 n'aient pas bien lu d'autant que ThauThème, lui, avait répondu à la demande...

Mince !

Tu as bien raison @78Chris, j'ai lu trop vite ! Merci de m'avoir remis sur les rails !

La formule à mettre en D1 devient alors :

=NBVAL($A$4:$A$1048576)

Bonjour Le forum

Bonjour Valky68, mdo100,78chris, ThauThème, merci pour votre aide

ok pour moi, mais ce matin avant même de regarder mon poste j'ai eu une révélation

j'ai fait:

N-3

et ça marche

Je garde quand même la proposition de ThauThème qui sait me canaliser les courants d'air

en tout cas merci à vous

Re

On peut aussi, si A1 à A3 risquent de na pas toujours être remplies utiliser :

=NBVAL(A;A)-NBVAL(A1:A3)

Ainsi quand Excel aura 2 millions de lignes elle reste valable, lol

Ce que fait d’ailleurs le Application.Rows.Count du VBA

Rechercher des sujets similaires à "comptage vides"