Discussion :

[Tseppy]

Bonjour,
je veux créer une fonction qui fait une somme logarithmique et je n'ai malheureusement pas trouver d'exemple de la fonction somme() pour m'inspirer.
Je viens donc vers vous, la fonction que j'ai créé donne une résultat #VALEUR et je comprends pas pourquoi. Merci de votre aide

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Function Logsum(x() As Double)
 
Dim c
For Each c In x.Cells
Logsum = Logsum + 10 ^ (c / 10)
Next
Logsum = Round(Log(Logsum) / Log(10) * 10, 1)
End Function

[Philippe Tulliez]

Bonjour,
Si tu souhaites que l'argument x de ta fonction soit un objet Range, il faut le déclarer comme ceci Function Logsum(x As Range)
Je donnerais un autre nom que x pour une plage de cellules mais c'est totalement personnel

[Menhir]

Et, tant que tu y es à faire propre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim c As Range