Aide sujet VBA

Etant en master Gestion des risques financiers, je fais du VBA en informatique. Le prof va assez vite et j'ai du mal à comprendre. Voici un sujet d'annales qu'il a proposé :


Question 1
Renommez le module "Module" en "Essai". (ok lol)
Dans la fonction « Essai_Fonction_Longue », remplacez les caractères «AAAA», «BBBB»,«CCCC» et «DDDD» en fonction des instructions ci-dessous:
- Le contenu de la cellule active doit apparaître dans la variable «Prix_n».

- Le contenu de la cellule au-dessous de la cellule active doit apparaître dans la variable«Prix_n_1».

- Complétez la ligne de code commençant par «Inflation». Le taux d’inflation doit être transféré dans la variable.

- Le résultat final doit apparaître dans la cellule située deux lignes au-dessous de la cellule active.


Le module en question se présente comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Essai_Fonction_Longue() ' Solution détaillée avec l'utilisation de variables Dim Inflation As Double ' Variable pour le taux d'inflation Dim Prix_N As Double ' Variable pour indice des prix de l'année n Dim Prix_N_1 As Double ' Variable pour indice des prix de l'année n-1   ' Récupération des données à partir de la cellule courante Prix_N = AAAA Prix_N_1 = BBBB ' Calcul du taux d'inflation Inflation = CCCC ' Restitution du résultat DDDD   End Sub

---

Il faut donc remplacer les groupes de 4 lettres selon les indications au-dessus. Mais je ne comprends rien :S Pouvez vous m'aider s'il vous plait !


Question 2
À l’ouverture du classeur, le calcul du taux d’inflation doit être effectué automatiquement.
Programmez cette fonction.

=> Il me semble qu'il faut mettre la formule sous une fonction et l'inclure dans"thisworkbook" option "open", non ?

Bonjour,

question 1 : Peut-être cela mais sans garantie du gouvernement.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Essai_Fonction_Longue() ' Solution détaillée avec l'utilisation de variables Dim Inflation As Double ' Variable pour le taux d'inflation Dim Prix_N As Double ' Variable pour indice des prix de l'année n Dim Prix_N_1 As Double ' Variable pour indice des prix de l'année n-1   ' Récupération des données à partir de la cellule courante Prix_N = ActiveCell Prix_N_1 = ActiveCell.Offset(1, 0) ' Calcul du taux d'inflation Inflation = (Prix_N - Prix_N_1) / 100 ' Restitution du résultat ActiveCell.Offset(2, 0) = Inflation   End Sub

---

Question 2 : je pense que ta suggestion est la bonne.

Edit : J'ai été méchant, navré :P
Supposons que le prix N soit en A1 de la feuille active

Question 2: A mettre dans le module Thisworkbook

Code:

---

1 2 3 4

Private Sub Workbook_Open() ActiveSheet.Range("A1").Select Call Essai_Fonction_Longue End Sub

---

Question 1: A mettre dans un nouveau module Essai

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub Essai_Fonction_Longue() ' Solution détaillée avec l'utilisation de variables Dim Inflation As Double ' Variable pour le taux d'inflation Dim Prix_N As Double ' Variable pour indice des prix de l'année n Dim Prix_N_1 As Double ' Variable pour indice des prix de l'année n-1   ' Récupération des données à partir de la cellule courante Prix_N = ActiveCell Prix_N_1 = ActiveCell.Offset(1, 0) ' Calcul du taux d'inflation Inflation = (Prix_N / Prix_N_1) - 1 ' Restitution du résultat ActiveCell.Offset(2, 0) = Inflation   End Sub

---

Taux de variation = [(Arrivée - Départ) * 100]/Départ = (Arrivée/Départ)-1
Mais pas (Arrivée - Départ)/100

Bonjour Engue Engue,

Effectivement, j'ai un neurone qui a disjoncté.

C'est la partie purement VBA qui chagrinait Menzo d’après ce que j'ai compris.

C'est pourquoi je n'ai pas apporté la garantie du gouvernement à quelqu'un qui est tout de même en master de gestion et sait mieux que moi les bonnes formules à utiliser.

Cordialement.