Exemples d’utilisation des objets

1. Calcul du montant d’une prime

Lorsque l’utilisateur clique sur le bouton de commande Calcul des primes la procédure Calc_primes est exécutée. Cette procédure sélectionne la plage de cellules nommée CA (cellules "D6:D14") et fait appel à la fonction Prime pour calculer la prime et l’affecter à la cellule de droite.

Sub Calc_Primes() 
   Dim dblCaMoyen As Double 
   Dim oCellule As Range 
 
   ' Sélection de la plage nommée CA 
   ThisWorkbook.Names("CA").RefersToRange.Select 
   ' Calcul de la moyenne de la sélection 
   dblCaMoyen = Evaluate("AVERAGE(CA)") 
   ' Parcours des cellules de la sélection 
   ' La prime calculée est affectée à la cellule de droite 
   For Each oCellule In Selection 
       Cells(oCellule.Row, oCellule.Column + 1) = _ 
       Prime(oCellule.Value, dblCaMoyen) 
   Next oCellule 
End Sub 

La fonction Prime permet de calculer la prime en fonction du CA (chiffre d’affaires) réalisé et de la moyenne des autres...