Type d'argument ByRef incompatible

ya_v_ka

XLDnaute Impliqué

• 5 Juin 2006

• #2

Salut

Je ne suis pas certain, j'ai travaillé ca à l'aveugle et te le livre tel quel...

Sub Option_Achat()

If zonelist1 = 'CARREFOUR' Then
K = 25
If zonelist2 = 'Moyenne Journalière' Then
S = worksheets('Feuil1').range('B261')
ElseIf zonelist2 = 'Moyenne Mensuelle' Then
S = worksheets('Feuil1').range('B262')
Else
S = worksheets('Feuil1').range('B263')
End If
elseIf zonelist1 = 'TOTAL' Then
K = 35
If zonelist2 = 'Moyenne Journalière' Then
S = worksheets('Feuil1').range('c261')
ElseIf zonelist2 = 'Moyenne Mensuelle' Then
S = worksheets('Feuil1').range('c262')
Else
S = worksheets('Feuil1').range('c263')
End If
End If
MsgBox 'La valeur du Call Asiatique avec la méthode d'évaluation de Black & Scholes est : ' & S &' 0.1,0.1,0.5 '& K
End Sub

Je n'ai pas compris l'affichage de la msgbox mais si le reste fonctionne tu arriveras certainement a rectifier de toi-même

Ya'v

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 5 Juin 2006

• #3

bonsoir etudiant, re Ya_v

sinon, merci de nous montré la procédure Call_BS.

salut

 

Vote positif 0 Vote négatif

E

Etudiant en galère

Guest

• 5 Juin 2006

• #4

Voilà la procédure B&S

Function Call_BS(S As Double, R As Double, Sig As Double, T As Single, K As Double)
d1 = (Log(S / K) + (R + Sig ^ 2 / 2) * T) / (Sig * T ^ (1 / 2))
d2 = d1 - (Sig * T ^ (1 / 2))
Call_BS = S * WorksheetFunction.NormSDist(d1) - K * Exp(-R * T) * WorksheetFunction.NormSDist(d2)
End Function

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Juin 2006

• #5

bonjour

as tu déclaré les variables K et S ?


Sub Option_Achat()
Dim K As Double, S As Double

If zonelist1 = 'CARREFOUR' Then
K = 25
'
'...
'


cet exemple simplifié fonctionne chez moi

Sub Option_Achat()
Dim K As Double, S As Double

K = 35
S = 43

MsgBox Call_BS(S, 0.1, 0.1, 0.5, K)
End Sub

Function Call_BS(S As Double, R As Double, Sig As Double, T As Single, K As Double)
Dim d1, d2
d1 = (Log(S / K) + (R + Sig ^ 2 / 2) * T) / (Sig * T ^ (1 / 2))
d2 = d1 - (Sig * T ^ (1 / 2))
Call_BS = S * WorksheetFunction.NormSDist(d1) - K * Exp(-R * T) * WorksheetFunction.NormSDist(d2)
End Function


bonne journée
MichelXld


ps
Hervé tu m'envoie un MP si tu veux passer cette semaine .N'oublie pas les bieres...;o)

 

Vote positif 0 Vote négatif

E

Etudiant en galère

Guest

• 5 Juin 2006

• #6

Merci pour ton aide MichelXld...

En fait maintenant je rencontre un nouveau problème...

Comme vous avez pu le comprendre j'ai une zonelist sur ma feuille excel...

If zonelist1 = 'CARREFOUR' n'est pas reconnu

dans la fonction précédente...

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Juin 2006

• #7

bonjour

tu dois préciser le nom de la feuille qui contient l'objet

If Sheets('Feuil1').zonelist1 = 'CARREFOUR' Then


bonne journée
MichelXld

 

Vote positif 0 Vote négatif

E

Etudiant en galère

Guest

• 5 Juin 2006

• #8

Voilà ce que j'ai essayer

Sub Essai()
If Sheets('Feuil2').zonedeliste1 = 'TOTAL' Then
MsgBox 'OK'
Else
MsgBox 'No'
End If
End Sub


avec zonelist ou zonedeliste parce que je sais pas exactement quelle est la référence

et il me met erreur d'execution '9'

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Juin 2006

• #9

rebonjour

avec zonelist ou zonedeliste parce que je sais pas exactement quelle est la référence

Cliquez pour agrandir...

désolé mais je ne comprend pas :
tu ne connais pas le nom de l'objet ?
il s'agit d'une ListBox ou d'un combobox ?
est ce un objet de la barre d'outils formulaires ou de la boite à outils controles ?


bonne journée
MichelXld

 

Vote positif 0 Vote négatif

E

Etudiant en galère

Guest

• 5 Juin 2006

• #10

J'ai une zone de liste de la barre formulaire (listboxes)

J'ai des éléments dans cette liste (Carrefour, Total,...)

Dans le programme que je projette de faire, je voudrais que l'utilisateur choisisse dans la liste la valeur qu'il veut

En fonction de cette valeur il y a un S et un K donné

Mon problème est de spécifier l'élément sélectionné de la zone de liste sachant que cette zone de liste est dans la feuille 2

le code devrait ressembler à :

Sheets('Feuil2').listboxes(1).value = 1 par exemple pour l'élément 1 de la zone de liste

Mais ça marche pas...

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 5 Juin 2006

• #11

rebonjour

il est préférable d'utiliser les objets de la boite à outils controles qui offrent plus de possibilité



néanmoins pour recuperer la valeur selectionnée dans une listbox de la barre d'outils formulaire :

Sub test()
MsgBox Sheets('Feuil2').Shapes('Zone de liste 1').ControlFormat. _
List(Sheets('Feuil2').Shapes('Zone de liste 1').ControlFormat.ListIndex)
End Sub



bonne journée
MichelXld

 

Vote positif 0 Vote négatif