VBA Count() : macro pour compter les cellules non vides

La fonction VBA Count() permet de réaliser une macro pour renvoyer le nombre de cellules non vides d'une ou plusieurs plages données.

La fonction Count

La fonction Count suit la syntaxe suivante :

Application.WorksheetFunction.Count(plage1, plage2, plage3, ...)

Exemple de macro avec Count

La macro

Sub macro()

Dim Tableau1, Tableau2 As Range
Dim Nb As Single

Set Tableau1 = Range("A1:A5")
Set Tableau2 = Range("B1:B5")

Nb = Application.WorksheetFunction.Count(Tableau1, Tableau2)

ActiveCell.Offset(0, 0).FormulaR1C1 = _
Nb
ActiveCell.Offset(1, 0).Select

End Sub

Les données sources

Le résultat

Articles similaires

• VBA Average() : macro pour calculer la moyenne (2)
• VBA Int() : macro pour renvoyer l’entier d’un nombre (2)
• VBA Rnd() : macro pour renvoyer un nombre aléatoire (2)
• VBA Round() : macro pour renvoyer un nombre arrondi (2)
• VBA Exp() : macro pour calculer la valeur exponentielle (2)
• VBA Log() : macro pour indiquer le logarithme népérien d’un nombre (2)
• VBA Sgn() : macro pour indiquer le signe d’un nombre (2)
• VBA Abs() : macro pour renvoyer la valeur absolue (2)
• VBA Max() : macro pour renvoyer la valeur maximale (2)
• VBA Min() : macro pour renvoyer la valeur minimale (2)