Discussion :

[mercatog]

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

[Krovax]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

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

[Pierrot93]

Bonjour Mercatog, Krovax

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

bonne journée
@+

[Krovax]

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

[ouskel'n'or]

Pour toute la feuille :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Application.CountA(ActiveSheet.UsedRange)

[mercatog]

MERCI A TOUS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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