Licence Creative Commons TD L2S4 Informatique et programmation Capsule 1

22 mars 2022
Durée : 00:04:50
Nombre de vues 96
Nombre de favoris 0

 

Assurance Viticole de la cave Guillerette dans le pays d'Oc

 

Cette première capsule aide l'étudiant à comprendre le contexte de l'exercice Assurance Viticole de la cave Guillerette dans le pays d'Oc. Les capsules suivantes apporteront les réponses aux questions du TD.

 

La législation des vins français d'Indication Géographique Protégée (IGP) impose un rendement maximal de 90 hl/ha soit environ 10.000 kg/ha pour le pays d'oc.

 

La Cave Guillerette, pour répondre au besoin du marché, décide d'encourager la production de vin de qualité en rétribuant un prix supérieur aux vins de qualité supérieure et réduit le rendement maximal à 80 hl/ha. Ce prix dépend donc du cépage et du degré d’alcool résultant de l'opération de vinification. Pour fidéliser ses adhérents, elle souscrit 'pour compte' une assurance rendement qui prend en compte la perte de qualité, au taux avantageux de 2,5 %.

 

Les bonifications sont proposées avant la récolte aux adhérents. Par contre, le prix de référence de la vendange est fixé a posteriori en fonction des résultats de la coopérative.

Pour simplifier notre exercice, on considère que les bonifications et les prix de référence sont connus à l'avance et sont les mêmes en 2010, 2011 et 2012. Le prix est de 96€/hl, le déclassement en vin de table donne un prix de 59€/hl. Il peut être déclassé soit par un manque de sucre (ou d'alcool) soit par une mauvaise conduite culturale (non-respect du cahier des charges).

Grenache Noir
Degré sup. ou égal à 13°: : +4,57€ / hl
Degré 12°5 à 12°9 : +2,29€ / hl
Degré 11°5 à 12°4 : prix de référence
Degré inf. à 11°5 : -3,05€ / hl
Degré inf. à 10°5 : prix vin de table
Altesse
Degré sup. ou égal à 13°: : +4,57€ / hl
Degré 12°5 à 12°9 : +2,29€ / hl
Degré 11°5 à 12°4 : prix de référence
Degré 10°5 à 11°4 : -3,05€ / hl
Degré inf. à 10°5 : prix vin de table
Cabernet Sauvignon
Degré sup. ou égal à 12°5: : +4,57€ / hl
Degré 12° à 12°4 : +2,29€ / hl
Degré 11° à 11°9 : prix de référence
Degré 10° à 10°9 : -3,05€ / hl
Degré inf. à 10° : prix vin de table

 

1) Créer une base de parcelles (environ 10), avec le numéro de la parcelle 'PXXX', le numérode l'adhérent 'AXXXX', le cépage (majuscule), sa surface (en are) et la commune de la parcelle. Bien sûr, la liste des cépages est préenregistrée.
2) Créer une base d'Adhérent (environ 6), avec le numéro de l'adhérent 'AXXXX', son nom, son prénom, sa commune de domiciliation. Vérifier maintenant dans la base parcelle que l'adhérent existe.
3) Grâce aux fonctions 'Recherchev', automatiser dans un nouvel onglet le calcul du prix et du classement en fonction du degré d’alcool et du cépage dans le cas où il n'a pas été déclassé.
4) Création d'une base de récolte (environ 20), avec l'année de récolte, le numéro de parcelle, le rendement en kg, le rendement en hl, le taux d'alcool et si elle a été déclassée pour mauvaise conduite culturale. On ajoute aussi le rendement historique de la parcelle. Un contrôle de cohérence est fait pour vérifier que le rendement en hl soit entre 100 et 150 fois plus petit que le rendement en kg. On vérifie également que le rendement obtenu est inférieur au rendement autorisé.
5) Automatiser la création d'une base détaillée avec toutes les informations :
    1. le numéro de la parcelle 'PXXX', le numéro de l'adhérent 'AXXXX', le cépage (majuscule), sa surface (en are) et la commune de la parcelle
    2. son nom, son prénom, sa commune de domiciliation
    3. l'année de récolte, le rendement en kg, le rendement en hl, le taux d'alcool,déclassé ou non,
4. le prix de référence, le prix obtenu, la bonification, le capital souscrit pour l'assurance (égal au prix de référence fois le rendement historique si la production n'est pas déclassé), la production en hl et en €.
6) Mettre un bouton permettant l'édition des résultats d'un adhérent sur une année (on utilise ActiveSheet.PrintPreview).
7) L'assurance récolte intervient si la perte de rendement par rapport au rendement historique est supérieure à 30 %. Elle applique une franchise de 25 %.
    1. Calculer les indemnités dans le cas où nous ne tenons pas compte de la qualité.
    2. La prise en compte de la qualité :
        1. L'assureur est exempté de payer l'indemnité en cas de mauvaise conduite culturale
        2. La perte de qualité est égale à (1- le prix obtenu / le prix de référence).
        3. Recalculer les indemnités dans le cas où on applique la perte de qualité.

 

 

 

Mots clés : informatique et programmation vba visual basic

 Informations