fonction : Tableau en argument d'entré Fermé

Question

Bonjour, Dès que je crée une fonction qui prend un vecteur en entrée et lorsque je l'essaye excel me dit à chaque fois : #valeur! je poste les 2 fonctions en question au cas où : Function Mult(ByRef M() as Double) as Double Dim a As Integer a = 1 Dim k As Integer For k = 0 To UBound(M()) a = a * M(k) Next Mult = a End Function et la seconde : Function Sol(ByRef MaBr() As Double) As Double Dim k As Integer Dim a As Double a = 0 Dim Tac As Double Tact = 0.5 Dim TacSup As Double TacSup = 1 Dim TacInf As Double TacInf = 0 Do Dim alpha(UBound(MaBr())) As Double For k = 0 To UBound(alpha()) alpha(k) = 1 / (1 + Tac) ^ k Next For k = 0 To UBound(MaBr()) a = a = MaBr(k) * alpha(k) Next If a < 0 Then TacSup = Tac Tac = TacSup - TacInf / 2 Else TacInf = Tac Tac = TacSup - TacInf / 2 End If Loop While ((a > 10 ^ -4 Or a < 10 ^ -4) And (a > 10 ^ -10 Or a < 10 ^ 10)) Sol = Tac End Function EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages. Configuration: Windows 7 / Chrome 49.0.2623.112

f894009 · Answer

Bonjour,

me dit à chaque fois : #valeur! Peut-etre, mais comment appelez-vous ces fonctions ????

ccm81 · Answer

Bonjour à tous les deux

Un exemple où le tableau M est passé à ta fonction Mult

Public Function Mult(ByRef M) As DoubleDim a As Long, k As Longa = 1For k = 0 To UBound(M)  a = a * M(k)NextMult = aEnd FunctionPublic Sub OK()Dim T(), v As DoubleT = Array(1, 2, 3, 4)v = Mult(T)MsgBox vEnd SubCdlmnt

ccm81 · Answer

Salut f894009

Exact !
Si la fonction est destinée à être utilisée dans la feuille et qu'on doit lui passer un tableau situé dans la feuille

Public Function Multi(T As Range) As DoubleDim a As Long, cel As Rangea = 1For Each cel In T  a = a * cel.ValueNext celMulti = aEnd Function
Cdlmnt

Fonction : Tableau en argument d'entré

3 réponses

Discussions similaires