programme dans Excel VBA qui crée une fonction définie par l’utilisateur qui calcule la moyenne d’une plage sélectionnée au hasard

Ci-dessous, nous examinerons un programme dans Excel VBA qui crée une fonction définie par l’utilisateur qui calcule la moyenne d’une plage sélectionnée au hasard à l’exclusion d’une ou plusieurs valeurs qui sont aberrantes et ne doivent pas être moyennées.

Situation:

Les fonctions définies par l’utilisateur doivent être placées dans un module.

1. Ouvrez l’éditeur Visual Basic et cliquez sur Insérer, module.

2. Ajoutez la ligne de code suivante:

Function MOYENNEPERSONNALISEE(rng As Range, inferieur As Integer, plushaut As Integer)

Le nom de notre fonction es MOYENNEPERSONNALISEE. La partie entre les crochets signifie que nous donnons à Excel VBA une plage et deux variables entières en entrée. Nous nommons notre plage rng, une variable entière que nous appelons inférieure et une variable entière que nous appelons supérieure, mais vous pouvez utiliser n’importe quel nom.

3. Ensuite, nous déclarons un objet Range et deux variables de type Integer. Nous appelons la cellule d’objet Range. Une variable Integer que nous appelons total et une variable Integer que nous appelons compte.

Dim cell As Range, total As Integer, compte As Integer

4. Nous voulons vérifier chaque cellule dans une plage sélectionnée au hasard (cette plage peut être de n’importe quelle taille). Dans Excel

VBA, vous pouvez utiliser la boucle For Each Next pour cela. Ajoutez les lignes de code suivantes: Pour chaque cellule dans rng

For Each cell In rng
Next cell

 

Remarque: rng et cellule sont choisis au hasard ici, vous pouvez utiliser n’importe quel nom. N’oubliez pas de vous référer à ces noms dans le reste de votre code.

  1. 5. Ensuite, nous vérifions chaque valeur de cette plage si elle se situe entre les deux valeurs (inférieure et plushaut). Si vrai, nous incrémentons le total de la valeur de la cellule et nous incrémentons le nombre de 1. Ajoutez les lignes de code suivantes à la boucle.

If cell.Value >= inferieur And cell.Value <= plushaut Then

    total = total + cell.Value

    compte = compte + 1

End If

  1. 6. Pour renvoyer le résultat de cette fonction (la moyenne souhaitée), ajoutez la ligne de code suivante en dehors de la boucle.

MOYENNEPERSONNALISEE = total / compte

7. N’oubliez pas de terminer la fonction. Ajoutez la ligne:

End Function

8. Vous pouvez maintenant utiliser cette fonction comme n’importe quelle autre fonction Excel pour calculer la moyenne des nombres compris entre deux valeurs.

Résultat:

À titre de vérification, vous pouvez supprimer toutes les valeurs inférieures à 10 et supérieures à 30 et utiliser la norme

Fonction moyenne dans Excel pour voir si Excel calcule la même moyenne que notre fonction moyenne personnalisée.

Notre fonction moyenne personnalisée fonctionne! Remarque: cette fonction est uniquement disponible dans ce classeur.

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Fonctions Excel

Macro VBA Utiles

Excel Pratique

Programmation VBA

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x