lebarbo
XLDnaute Occasionnel
Bonjour le forum, bonjour à tous,
Je suis en train d'essayer de construire une fonction en utilisant Redim et Countif :
-------------------------------
Function Essai(Plage As Range)
Dim TabResult As Variant
Dim L As Long
ReDim TabResult(1 To Plage.Count - 1)
For L = 2 To Plage.Count
TabResult(L - 1) = Application.Ln(Plage(L).Value / Plage(L - 1).Value)
Next L
Essai = Application.CountIf(TabResult, ">=2")
End Function
---------------------------
J'ai simplifié la formule que je compte construire pour que ce soit plus clair.
Et donc malheureusement, le formule ne fonctionne pas. J'ai bien peur qu'il y ai un problème de "compatibilité" entre le "tableau virtuel" TabResult et la fonction CountIf.
Merci d'avance pour votre aide
Je suis en train d'essayer de construire une fonction en utilisant Redim et Countif :
-------------------------------
Function Essai(Plage As Range)
Dim TabResult As Variant
Dim L As Long
ReDim TabResult(1 To Plage.Count - 1)
For L = 2 To Plage.Count
TabResult(L - 1) = Application.Ln(Plage(L).Value / Plage(L - 1).Value)
Next L
Essai = Application.CountIf(TabResult, ">=2")
End Function
---------------------------
J'ai simplifié la formule que je compte construire pour que ce soit plus clair.
Et donc malheureusement, le formule ne fonctionne pas. J'ai bien peur qu'il y ai un problème de "compatibilité" entre le "tableau virtuel" TabResult et la fonction CountIf.
Merci d'avance pour votre aide