Fonction : calculer le dividende net à payer

Version imprimable

27/10/2005, 10h59
Bernard123

Fonction : calculer le dividende net à payer

J'ai fait une "analyse" de ce que j'aimerais obtenir mais comme je n'y connais pas grand chose en VBA... Quelqu'un pourrait-il "traduire" ceci???
Merci d'avance

Formules

Nt= Nombre de titres détenus provient d'une requête
Nst= Nombre de strips détenus provient d'une requête
Bru= Dividende brut unitaire provient d'une requête
Txp= Taux plein constante (=25%)
Txr= Taux réduit constante (=15%)
Avu= Avantage fiscal unitaire variable calculée
Net= Dividende net total variable calculée
Avt= Avantage fiscal total variable calculée
Tot= Total à payer variable calculée

Cas où l'actionnaire est exonéré si "exonéré" = OUI alors (Nt*Bru)=Tot
Détermination du net sans tenir compte de l'avantage fiscal(Nt*Bru)-(Nt*Txp)=Net
Détermination de l'avantage fiscal unitaire (Bru*Txp)-(Bru*Txr)=Avu
Cas où il y a autant de strips que de titres si (Nst = Nt) alors (Nst * Avu)=Avt
Cas où il y a des strips en surnombre si (Nst > Nt) alors (Nt * Avu)=Avt
Cas où il y a moins de strips que de titres si (Nst < Nt) alors (Nst * Avu)=Avt
Cas où il n'y a pas de strips si (Nst = 0) alors Avt = 0
Total à payer à l'actionnaire (ou obligataire) (Net + Avt) = Tot

Je pensais à un truc comme ça... mais ça marche pas... :(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function dividende_a_payer(Nt As [R_PAIEMENT DIVIDENDES TITRES].SommeDeCERT_QTE, nst As [R_PAIEMENT DIVIDENDES STRIPS].SommeDeCERT_QTE, Bru As [R_PAIEMENT DIVIDENDES TITRES].TIT_DIVOUINTBRUT, exo As [R_PAIEMENT DIVIDENDES TITRES].TIE_EXONEREACT)
Txp = 0.25
Txr = 0.15
Net = (Nt * Bru) - (Nt * Txp)
Avu = (Bru * Txp) - (Bru * Txr)
If exo = True Then tot = Nt * Bru
Else
If nst = Nt Then Avt = (nst * Avu) Else If nst > Nt Then Avt = Nt * Avu
Else: If nst < Nt Then Avt = nst * Avu Else Avt = 0
End If
End If
End If
End If
tot = Net + Avt
End Function

Merci de mettre impérativement les balises code | cafeine

je suppose que tu veux utiliser cette fonction dans une requête

alors il faut procéder de la manière suivante:
dans une colonne de la requête tu mets

Code:

1
2
 
Dividende: dividende_a_payer( [R_PAIEMENT DIVIDENDES TITRES].SommeDeCERT_QTE,  [R_PAIEMENT DIVIDENDES STRIPS].SommeDeCERT_QTE, [R_PAIEMENT DIVIDENDES TITRES].TIT_DIVOUINTBRUT,  [R_PAIEMENT DIVIDENDES TITRES].TIE_EXONEREACT)

Ensuite tu transforme ta fonction

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Function dividende_a_payer(Nt, nst , Bru , exo ) 
dim Txp as double
dim Txr as double
Txp = 0.25 
Txr = 0.15 
Net = (Nt * Bru) - (Nt * Txp) 
Avu = (Bru * Txp) - (Bru * Txr) 
If exo = True Then tot = Nt * Bru 
Else 
If nst = Nt Then Avt = (nst * Avu) Else If nst > Nt Then Avt = Nt * Avu 
Else: If nst < Nt Then Avt = nst * Avu Else Avt = 0 
End If 
End If 
End If 
End If 
dividende_a_payer = Net + Avt 
End Function

et çà devrait aller
A+

27/10/2005, 14h18
Bernard123

Lorsque je copie
Dividende: dividende_a_payer( [R_PAIEMENT DIVIDENDES TITRES].SommeDeCERT_QTE, [R_PAIEMENT DIVIDENDES STRIPS].SommeDeCERT_QTE, [R_PAIEMENT DIVIDENDES TITRES].TIT_DIVOUINTBRUT, [R_PAIEMENT DIVIDENDES TITRES].TIE_EXONEREACT)
dans un des champs de la requête il m'affiche
La syntaxe de l'expression n'ets pas correcte Vous avez omis une opérande ou un opérateur, vous avez entré un caractère ou un opérateur non valide, ou du texte non délimité par des guillemets.

En mettant des ";" ça passe.

J'ai également recopié la fonction modifiée mais lorsque je lance la requête il me demande de rentrer des valeurs pour Nt, nst , Bru , exo, ce qui me semble assez logique vu que je ne vois pas à quel endroit ces variables sont alimentées...

modifie la fonction de la manière suivante

Code:

1
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
 
Public Function dividende_a_payer(Nt as double, nst as double, Bru  as double, exo as Boolean ) 
' çà vient peut être qu'il faut définir les variables
dim Txp as double , Net as double, Avu as double
dim Txr as double 
 
Txp = 0.25 
Txr = 0.15 
Net = (Nt * Bru) - (Nt * Txp) 
Avu = (Bru * Txp) - (Bru * Txr) 
If exo = True Then 
 dividende_a_payer = Nt * Bru 
 Else 
  If nst = Nt Then 
   Avt = (nst * Avu) 
  Else 
   If nst > Nt Then 
    Avt = Nt * Avu 
   Else
    If nst < Nt Then 
     Avt = nst * Avu 
    Else
      Avt = 0 
    End If 
   End If 
  End If 
  dividende_a_payer = Net + Avt 
End If 
 
End Function

pour ton info les variables sont alimentées par l'appel de la requête. Il te demande les valeurs car elle n'ont pas été définie (as ...) essaie pour voir
J'ai aussi modifier ton code à toi de vérifier si c'est ok car j'avais vu une incohérance. Comme je l'ai réécrit çà me semble plus lisible

A+

27/10/2005, 14h45
Bernard123

Wow ça marche... merci bien, tu es un chef :D
Juste une chose que j'ai du modifier : nst as variant au lieu de nst as double car Nst peut être zéro et si je mets double il me renvoie une erreur...
Super en tout cas.