De très nombreuses fonctions sont accessibles dans Excel. Ces fonctions peuvent parfois rendre de grands services en VBA et éviter la saisie de nombreuses instructions. Les fonctions d’Excel sont accessibles via l’objet WorksheetFunction.
Voici quelques exemples d’utilisation.
Min, Max et Average
Supposons que vous recherchiez les valeurs minimales et maximales d’une plage de cellules et que vous vouliez calculer la moyenne des valeurs de la plage. Pour cela, vous pouvez utiliser les fonctions Min(), Max() et Average() d’Excel.
Nous allons partir de cette feuille de calcul. La plage examinée sera A1:B5 :
Voici le code utilisé :
Dim minimum, maximum As Integer
Dim moyenne As Single
Set plage = Worksheets("Feuil1").Range("A1:B5")
minimum = Application.WorksheetFunction.min(plage)
maximum = Application.WorksheetFunction.max(plage)
moyenne = WorksheetFunction.Average(plage)
MsgBox "Valeur minimale : " & minimum
MsgBox "Valeur maximale : " & maximum
MsgBox "Moyenne : " & moyenne
Et voici le résultat :
Nombre de cellules supérieures à 20
Toujours à partir de la même feuille de calcul, calcul du nombre de cellules de la plage A1:B5 dont la valeur est supérieure à 20 :
Dim grand As Integer
grand = WorksheetFunction.CountIf(Range("A1:B5"), ">20")
MsgBox "Nombre de cellules supérieures à 20 : " & grand
Voici le résultat :
