Compter cellules non vides si

Bonjour,

Je voudrais compter le nombre de cellules non vides en colonne C lorsqu'il y a un "ok" en colonne A.

J'ai le code pour le nombre de cellules non vides de toute la colonne C, et pas uniquement celles avec "ok" en A.

Est-ce qu'il y a une solution via fonction ?

Voici mon code :

Ws.Range("R8") = Application.WorksheetFunction.CountA(Ws.Range("C:C"))

Merci d'avance !

Bonsoir

A tester

Ws.Range("R8") = Application.WorksheetFunction.CountA(Columns(3))

Merci, mais ce code fait le même calcul que celui que j'ai mis non ? Càd compter le nombre de cellules non vide dans la colonne C. J'ai besoin de ce calcul uniquement sur les lignes dont la cellule A est égale à "ok" et non pas sur toutes les lignes.

Bonsoir,

Tu as beaucoup de ligne pour vouloir le faire en vba ?

La fonction de calcul prévue pour ton cas est NB.SI.ENS (CountIfs).

Cordialement.

J'ai surtout 2000 onglets, et j'ai peur que la formule alourdisse plus le fichier que via VBA, mais s'il n'y a pas de solution via VBA je ferai avec la formule..

Fais un essai avec CountIfs.