Algorithme vba

BTS CG

Algorithmique – VBA

Exercice n° 1 : Société DESPLACT

La société DESPLACT souhaite automatiser le remboursement mensuel des frais de déplacement de ces commerciaux. Tous les mois, la secrétaire saisit les informations concernant les commerciaux, le nombre de kilomètres effectués. Le calcul des frais de déplacement est effectué par la feuille Excel, selon la règle de gestion suivante : le montant du remboursement est calculé en fonction du nombre de kilomètres parcourus selon le barème dégressif ci-dessous :

• Jusqu’à 10 000 km, l’indemnité kilométrique de base est de 0,3€ ;
• Au-delà de 10 000 km, l’indemnité kilométrique de base est minorée de 10%

Lorsque la saisie est terminée, la feuille est imprimée.

Il s’agit d’automatiser l’opération suivante :

[pic 1]

Travail à faire :

• Récupérer la feuille Excel « Societe Desplact ».
• Ecrire le code VBA permettant de saisir les informations des représentants et de les stocker dans la feuille de calcul.
• « Brancher » ce code VBA sur le bouton « Saisie des informations » (et vérifier que ce code fonctionne !).
• Analyser le code VBA de la fonction permettant de calculer les frais engagés.
• Appeler la fonction dans la feuille Excel.
• Enregistrer une macro permettant de faire un aperçu avant impression et « brancher » la macro sur ce bouton.
• Noter la différence entre une procédure et une fonction.

Exercice n° 2 : Société « Amasone »

Une société accorde à ses clients une ristourne annuelle calculée par tranche selon les conditions suivantes :

Caff HT ≤ 6 500 €        => Ristourne = 3%                 6 500 < Caff HT ≤ 10 500         => Ristourne = 5%

10 500 < Caff HT ≤ 15 000         => Ristourne = 7%                 15 000 < Caff HT ≤ 20 000        => Ristourne = 8%

Caff > 20 000                        => Ristourne = 10%

Travail à faire :

1. Ecrire l’algorithme du programme qui calcule et affiche le montant de la ristourne annuelle accordée à un client.
2. Ecrire l’algorithme du programme qui calcule et affiche le montant de la ristourne annuelle accordée à plusieurs clients et le montant de la ristourne totale.
3. Ecrire en VBA la fonction qui calcule le montant de la ristourne annuelle accordée à un client.
4. Tester cette fonction dans un classeur Excel : faire un jeu d’essai significatif.

...