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.
Function Essai(Plage As Range) As Byte
Dim L As Long, x As Byte
For L = 2 To Plage.Count
If Application.Ln(Plage(L).Value / Plage(L - 1).Value) >= 2 Then x = x + 1
Next L
Essai = x
End Function
Je pensais effectivement contourner le problème si il n'y avait pas de solution, toutefois je n'arrive pas à comprendre pourquoi sur un tableau "virtuel" une fonction du type :
Application.min(TabResult) fonctionne alors que .Countif ne fonctionne pas, même la fonction Count fonctionne.
Mais bon si c'est normal, je vais effectivement m'amuser à compter grâce à une boucle.
oui, j'ai cherché également, mais pas moyen de faire fonctionner le "countif" sur ce tableau... Attendons un peu, peut être quelqu'un d'autre aura une astuce à nous proposer... ou bien une explication...