Création d'une fonction

job75

XLDnaute Barbatruc

• 21 Septembre 2009

• #2

Re : Création d'une fonction

Bonjour Sebwan,

Ben dites donc, faut travailler un peu VBA...

Cela dit, si vous nous disiez clairement ce que vous voulez que la fonction vous renvoie, on pourrait peut-être vous aider.

A+

 

Vote positif 0 Vote négatif

S

Sebwan

Guest

• 21 Septembre 2009

• #3

Re : Création d'une fonction

Pour vous permettre de mieux visualiser ce que je souhaite faire, voici un exemple en excel...

 

Pièces jointes

• exemplefonctionactualisation.xls

  22 KB · Affichages: 50
• exemplefonctionactualisation.xls

  22 KB · Affichages: 51
• exemplefonctionactualisation.xls

  22 KB · Affichages: 53

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 21 Septembre 2009

• #4

Re : Création d'une fonction

Salut Job75 😉
Bonjour Sebwan

En plus de ce qu'a dis Job75, une petite feuille avec des données et le résultat excompté serait la bienvenue

A+

 

Vote positif 0 Vote négatif

S

Sebwan

Guest

• 21 Septembre 2009

• #5

Re : Création d'une fonction

L'idée par rapport à mon exemple, c'est d'avoir actu(B2:B5;C2:C5) qui me donne le résultat en C8!

 

Vote positif 0 Vote négatif

mromain

XLDnaute Barbatruc

• 21 Septembre 2009

• #6

Re : Création d'une fonction

bonjour Sebwan, Bruno, job,

voici un essai :

Code:

Public Function actu(zone1 As Range, zone2 As Range) As Double
Dim i As Integer, j As Integer, tmp As Double
'zone1 et zone2 doivent être des données sous formes de colonnes
Set zone1 = zone1.Resize(zone1.Rows.Count, 1)
Set zone2 = zone2.Resize(zone2.Rows.Count, 1)
'si zone1 et zone2 ne font pas la même taille, quitter la fonction
If zone1.Cells.Count <> zone2.Cells.Count Then Exit Function
For i = 1 To zone1.Cells.Count
    tmp = 1
    For j = 1 To i
        tmp = tmp * (1 + zone2(j))
    Next j
    actu = actu + zone1(i) / tmp
Next i
End Function

a+

 

Vote positif 0 Vote négatif

S

Sebwan

Guest

• 21 Septembre 2009

• #7

Re : Création d'une fonction

Super, ça fonctionne! (ça me permet au passage d'apprendre un peu le VBA ;-) )

Un grand merci à vous!

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 21 Septembre 2009

• #8

Re : Création d'une fonction

Re, salut mromain, tu es rapide 🙂

Ma solution (avec des plages dynamiques nommées dans la feuille) :

Code:

Function Actu(taux As Range, vale As Range) As Double
Dim prod As Double, i As Long
prod = 1
For i = 1 To taux.Count
prod = prod * (1 + taux.Cells(i, 1))
Actu = Actu + vale.Cells(i, 1) / prod
Next
End Function

Edit : peut-être peut-on se passer de VBA, avec une formule générale dans la feuille (quelque soit la dimension des vecteurs) ?

A+

 

Pièces jointes

• exemplefonctionactualisation.xls

  39.5 KB · Affichages: 46
• exemplefonctionactualisation.xls

  39.5 KB · Affichages: 48
• exemplefonctionactualisation.xls

  39.5 KB · Affichages: 47

Dernière édition: 21 Septembre 2009

Vote positif 0 Vote négatif