Compter dans VBA le nombre de cellule non vide dans une colonne [Fermé]

Signaler
Messages postés
8
Date d'inscription
dimanche 5 avril 2015
Statut
Membre
Dernière intervention
6 mai 2016
-
Messages postés
9550
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
1 septembre 2020
-
Bonjour,

Je m'excuse d'avance si le sujet a déja été abordé.

Je suis sur VBA et je cherche à compter le nombre de cellules non vide dans la colonne A de mon onglet appelé "Sheetentry", je note ce nombre n as integer. Puis je tente d'afficher ce nombre dans la cellule D1. J'ai donc ceci:
///

Dim n as integer
n = Application.Worksheets("Sheetentry").WorksheetFunction.CountA("A") - 1

Worksheets("Sheetentry").Cell("D1").Value = n

//////

La procédure bloque sur le A en gras... Quelqu'un pourrait-il m'indiquer comment débugger ?

Merci d'avance maitres Jedi !

4 réponses

Bonjour
et voir aussi
N = Application.WorksheetFunction.CountA(Columns(1))

A+
Maurice
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60527 internautes nous ont dit merci ce mois-ci

Messages postés
9550
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
1 septembre 2020
1 896
Bonjour

essaies ceci
n = plage.Cells.Count - Application.WorksheetFunction.CountBlank(plage)

Cdlmnt
Messages postés
8
Date d'inscription
dimanche 5 avril 2015
Statut
Membre
Dernière intervention
6 mai 2016

Bonjour
La méthode de Maurice est la bonne: Merci beaucoup !

A+
Messages postés
9550
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
1 septembre 2020
1 896
OK. J'ai dû mal comprendre la question.

Si la plage contient une formule qui a renvoyé "", elle sera comptée alors comme non vide, c'est donc bien cela que tu veux.

Cdlmnt