Discussion :

[menzo_]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[nibledispo]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[EngueEngue]

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

Question 2: A mettre dans le module Thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[nibledispo]

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.