Version imprimable
Bonjour à tous!
J'ai un problème lorsque j'ouvre mon fichier excel-vba ou lorsque j'exécute une macro. Le message d'erreur suivant s'ouvre : Erreur de compilation: Projet ou bibliothèque introuvable; et il me surligne le code suivant: "CP=LCase(CP)".
Je ne comprend pas pourquoi car j'ai pourtant défini au préalable mon "CP": dim CP as string. Merci de m'aider !!
Bonjour,
Poste la totalité de ton code en utilisant les balise "code" (c'est l'icône #).
Bonjour,
Plus que probablement un problème de référence manquante.
Bonjour à tous, voici mon code:
Merci de m'aider, ce problème me tracasse depuis 2 jours !!!Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Bien cordialement.
Et pour cela :
il en est quoi ?Citation:
Envoyé par AlainTech
menu outils / référence ...
En fait quand j'ai ce message d'erreur, je ne peux pas accéder à Références...
Du coup, j'ai essayé de définir LCase au début en faisant:.Code:Dim LCase as variant
En conséquence, je n'ai plus de message d'erreur, mais mon code ne fonctionneme pas dans ma page excel. A ce moment, là, vu qu'il n'y a pas d'erreur, je peux aller dans le menu références, et je vois les références disponibles cochés: Visual Bassi for applications, Microsoft Excel 14.0 Object Library, QLE Automation, Microsoft Office 14.0 Object Library, Microsoft Forms 2.0 Object Library, MANQUANT: Microsoft Office Web Components 11.0, MANQUANT: Microsoft Office XP Web Component!
Le reste est une infinité de références non cochés.
Je vous mets mon code:
Code:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32Function BSM(ByVal S As Double, ByVal K As Double, ByVal T As Double, ByVal Vol As Double, ByVal r As Double, ByVal q As Double, ByVal CP As String) As Double ' Fonction qui calcule le prix d'une option vanille européenne selon le modèle de Black, Scholes et Merton (1973) ' S est le prix de l'ASJ ' K est le strike de l'option ' T est la maturité restante de l'option ' vol est la volatilité annuelle des rendements composés continuement ' r est le taux sans risque (annuel) composé continument ' q est le taux de dividende (annuel) composé continument ' CP désigne le type d'option (Call ou Put) : "Call" pour un Call ou "Put" pour un Put 'Ici on déclaire directement les variables dans la fonction. Byval plutôt que byref pour pouvoir utiliser les valeurs des variables plutôt 'que leur référence dans le calcul de la vol implicite par exemple Dim d1 As Double, d2 As Double, Nd1 As Double, Nd2 As Double, error As Variant, LCase As Variant d1 = Log((S * Exp(-q * T)) / (K * Exp(-r * T))) / (Vol * Sqr(T)) + 0.5 * Vol * Sqr(T) d2 = d1 - Vol * Sqr(T) Nd1 = Application.WorksheetFunction.NormSDist(d1) Nd2 = Application.WorksheetFunction.NormSDist(d2) CP = LCase(CP) Ici: If CP = "call" Then BSM = S * Exp(-q * T) * Nd1 - K * Exp(-r * T) * Nd2 ElseIf CP = "put" Then BSM = -S * Exp(-q * T) * (1 - Nd1) + K * Exp(-r * T) * (1 - Nd2) Else error = MsgBox("il faut rentrer ""call"" pour un Call et ""put"" pour un Put", vbOKCancel) If error = vbOK Then CP = InputBox("Alors un Put ou un Call ?") GoTo Ici Else Exit Function End If End If
décoche les références marquées manquante ....
si tu utilise vraiment les WebComposant dans ton classeur voir :
http://www.microsoft.com/downloads/f...e-5f3a499515dd
Si tu mets un point d'arrêt sur la ligne qui suit cette ligne, tu vois que la fonction est correctement exécutée.
le problème est connu et ne viens pas du code mais des références manquantes..Citation:
Envoyé par Daniel.C
Essaie d'exécuter cette macro :
Code:
2
3
4
5
6
7
8
9
10
11
12
J'ai réussi à résoudre le problème!!!
En effet, vous aviez raison, il s'agit des références: j'ai décoché les références manquantes .
Merci beaucoup de m'avoir aider pour résoudre ce problème.
Bien cordialement.