Exemples d’utilisation des objets

Objet:exemples d’utilisation

1. Calcul du montant d’une prime

images/04RIN12.PNG

La plage de cellules "D6:D14" doit être nommée CA.

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...

couv_RI21EXCV.png

Découvrez 

le livre :

Aussi inclus dans nos :

Précédent
L'objet Range
Suivant
Les tableaux croisés dynamiques