Médiaforma

VBA Excel – Utiliser les fonctions d’Excel en VBA

Partagez cet article sur vos réseaux

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 :