Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 variation des cotisations

btibti

XLDnaute Nouveau
Bonjour,
j'ai des cotisations que je dois les faire majorer annuellement avec un taux de majoration.
j'ai crée sous Vba la fonction correspondante à cela, mais comme je dois utiliser en paramètre de cette fonction un tableau qui me stock les résultats annuellement et puis les renvoie dans une zone de liste déroulante que j'ai crée dans ma feuille excel à l'aide d'une procédure.
mais le programme que j'ai effectué ne marche pas et me renvoie erreur d’exécution '13' :

Voici le programme que j'ai écrit :

Function Cot(vecteur1, cotisation, taux)
Dim i As Integer
vecteur1(0) = CDbl(Cotisation)
For i = 0 To 39
vecteur1(i) = vecteur1(0) * (1 + taux) ^ i
Next
Cot = vecteur1
End Function

Private Sub Simul_Rslts_Click()
Dim Cotis, tx As Double
Cotis = CDbl(Cotisation)
tx = CDbl(TxVar)
Dim VarCot(0 To 40) As Double
VariCot = Cot(VarCot, Cotis, tx)
vectCoti.AddItem VariCot
End Sub
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…