[RESOLU] : VBA compter nombre cellule non vide dans une plage

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir chers membres
Si vous pouvez m'aider svp de comprendre comment compter le nombre de cellule non vide dans une plage precise comme exemple A3:A100 ..avec macro VBA
Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK

 

[excfl]

Re : VBA compter nombre cellule non vide dans une plage

Bonsoir le forum,

En attendant la solution en VBA :

=SOMMEPROD((A1:A100<>"")*1)

 

[Modeste geedee]

Re : VBA compter nombre cellule non vide dans une plage

Bonsour®

Bonsoir le forum,

En attendant la solution en VBA :

=SOMMEPROD((A1:A100<>"")*1)

MsgBox Evaluate("=SUMPRODUCT((A1:A100<>"""")*1)")

 

[MADAGASCAR]

Re : VBA compter nombre cellule non vide dans une plage

Bonsoir excfl
Bonsoir Modeste geedee
La formule d'excfl ..Le code de Modeste geedee .. les deux suggestions me donnent resultat exacte ..soit par formule ou par le msgbox
Merci beaucoup a vous deux
Cordialement
MADA BLACK

 

[Modeste geedee]

Re : VBA compter nombre cellule non vide dans une plage

Bonsour®

Bonsoir excfl
Bonsoir Modeste geedee
La formule d'excfl ..Le code de Modeste geedee .. les deux suggestions me donnent resultat exacte ..soit par formule ou par le msgbox
Merci beaucoup a vous deux
Cordialement
MADA BLACK

Ouf ! comme disais Magic-Doctor https://www.excel-downloads.com/thr...mes-possibles-dune-liste-de-nombres.20001288/
j'ai eu peur ...

je suis bien content que l'évaluation par VBA d'une formule fournisse le même résultat que la formule elle-même !

 

[Si...]

Re : [RESOLU] : VBA compter nombre cellule non vide dans une plage

salut

bien que des réponses aient été données, contrôle (pour avoir moins peur )

formule

=NBVAL(A1:A100)

VBA

MsgBox Application.CountA([A1:A100])

et pour compter le nombre de cellules vides

MsgBox Application.CountBlank([A1:A100])

Il est intéressant de connaître la méthode illustrée par