Problème Application.Countif avec Redim

[lebarbo]

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

 

[lebarbo]

Re : Problème Application.Countif avec Redim

Personne ? : (

 

[Pierrot93]

Re : Problème Application.Countif avec Redim

Bonjour Lebarbo

essaye peut être ainsi :

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

bonne fin d'après midi
@+

 

[lebarbo]

Re : Problème Application.Countif avec Redim

Merci Pierrot93,

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.

 

[Pierrot93]

Re : Problème Application.Countif avec Redim

Re

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...

bonne soirée
@+