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.
Voici une autre solution qui devrait mieux convenir à ton cas de figure
Code:
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
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)