nombre de cellules non vide

[bbobb]

Bonjour le forum,
Voilà : j'ai un tableau avec les donnée filtrés (ligne 1).
Je souhaiterai obtenir en VBA le nombre de cellule non vide d'une colonne après filtrage.

Je ne peux pas joindre le fichier mais si vous en avez besoin je peux faire un fichier exemple...

Merci d'avance

Bonne journée à tous

Bbobb

 

[titiborregan5]

Re : nombre de cellules non vide

Avec une petite recherche je suis tombé sur ça:
https://www.excel-downloads.com/threads/fonction-nbval-en-vb.39053/

Si tu as un titre:

derligne = Range("A1000").End(xlUp).Row
MsgBox Application.WorksheetFunction.CountA(Range("a1", Cells(derligne, 1))) - 1

Si tu n'as pas de titre ou que tu souhaites le comptabiliser tu enlèves le -1!