Excel NB.SI en VBA

Nous vous présentons dans ce qui suit un code VBA qui remplace la fonction Excel NB.SI (). Ce code s'exécute par l'insertion d'une ActiveX dans la Feuil à laquelle est associé le code:

Private Sub CommandButton1_Click()
Dim i As Double
Dim nbnomvide As Double
'Nombre de cellule non vide
nbnomvide = Range("I2").End(xlDown).Row

'Update Screen pour accélerer l'exécution du code  Application.ScreenUpdating = False

'Boucle pour calculer le nombre de chaque critère dans la colonne I:I
For i = 2 To nbnomvide
Cells(i, 10).Value = Application.WorksheetFunction.CountIf(Range("I2:I" & UCase(nbnomvide)), Cells(i, 9))
Next
Application.ScreenUpdating = True
MsgBox (nbnomvide)

End Sub

Pour Plus d'information sur le comptage et  sommes conditionnels dans Excel voir le lien suivant:
http://connaissance-de-base.blogspot.com/2016/02/comptage-et-somme-conditionnel-sous.html

Auteur: N’hésitez pas à me signaler les erreurs qui peuvent glisser dans cet article afin de les corriger.