Compter cellules non vides

Bonjour,
s'il existe une fonction vba qui donnerait le nombre de cellules non vides d'une plage.
je me suis débrouillé par boucle qui vérifie la contenu de chaque cellule et d'incrémenter un compteur!
vu les plages de données qui grossissent, cette boucle prends assez de temps
merci

Bonjour,
Désolé je sais compté toutes les cellule et les cellule vide du coup je fais une soustraction, attend un peu quelqu'un devrais avoir mieux

Code:

---

1 2	MsgBox Range("A1:D5").Count - Range("A1:D5").SpecialCells(xlCellTypeBlanks).Count

---

Mais c'est déjà impeccable!!!
je teste et je me contente de cela
merci

Bonjour Mercatog, Krovax

essaye peut être ainsi, attention avec "SpecialCells", si pas de cellule correspondante, renvoie un message d'erreur :

Code:

---

MsgBox Application.CountA(Range("A1:D5"))

---

bonne journée
@+

Je savais bien qu'il y avais un CountA j'avais juste oublié le application :roll:

Pour toute la feuille :

Code:

---

MsgBox Application.CountA(ActiveSheet.UsedRange)

---

MERCI A TOUS

Code:

---

NN = Application.CountA(ActiveSheet.Range("I4:I" & lf))

---

J'ai testé et sur le champs! pas besoin d'attendre les 10 secondes!!!