Compter cellules pleines

[SPEA]

Bonsoir forum,

Je cherche à compter les nombre d'enregistrements sur une feuilles, pour cela je dois compter le nombre de cellules pleines sur la colonne A (à partir de la ligne n°2) et afficher le resultat dans un msgbox.

Merci.

 

[Excel-lent]

Re : Compter cellules pleines

Slt SPEA,

Tu as essayé la fonction '=NBVAL()' ?

 

[SPEA]

Re : Compter cellules pleines

Re

Bonsoir Excel-lent

Non je ne connais pas cette fonction, comment l'appliquer pour afficher le resultat dans un msgbox ?

 

[Excel-lent]

Re : Compter cellules pleines

Re

La question a déjà été posé et résolu.

Voir à l'adresse suivante : https://www.excel-downloads.com/threads/nbval-en-vba.28595/

Bon travail

 

[Besnard68]

Re : Compter cellules pleines

Bonsoir SPEA,

Regarde le fichier joint.

La formule est en A1 et le code VBA dans la Feuil1, où bien, clic droit sur le bouton (en mode création) et 'visualiser le code'.

Bonne continuation.

 

[Excel-lent]

Re : Compter cellules pleines

Bsr à ts,

Voici une autre solution qui devrait mieux convenir à ton cas de figure

Private Sub CommandButton1_Click()

Dim R As Long

With Application.WorksheetFunction
R = .CountA(Range("A2:A65536"))
MsgBox ("il y a " & R & " cellules non vides dans la colonne A")

End With

End Sub

Code à saisir à la place du code de Besnard68

 

[Excel-lent]

Re : Compter cellules pleines

Pour information :

Différence entre les deux méthodes

Méthode de Besnard68 :
La formule comptant le nombre de cellules pleines se trouve dans la cellule [A1], la macro enregistre ce nombre dans la variable "R". La msgbox affiche ce nombre.

Ma méthode :
La macro compte le nombre de cellules pleines, et l'enregistre dans la variable "R". La msgbox affiche ce nombre. Avantage : ce nombre n'est écrit null part dans ta feuille Excel (il est uniquement dans la variable R)

 

[SPEA]

Re : Compter cellules pleines

Bonsoir,

merci pour les 2 methodes.