Trouver la valeur minimum d'une colonne d'un tableau variant VBA à plusieurs dimensions

Version imprimable

Problème de RechercheV sur un tableau variant VBA à trois dimensions

Bonjour à tous,

J'ai un problème avec un tableau en VBA. La solution ne doit pas être complexe mais je ne trouve pas :?

Voilà, j'ai une fonction VBA que j'ai nommée Lagfind. Elle procède à des calculs dans une boucle en utilisant deux autres fonctions. (Akaike et Schwarz information criterions). Elle range les résultâts dans un tableau à trois dimensions ("temp"):
-la première colonne correspond au délai ("Lag")
-la seconde aux critères AIC pour ce délai
-la troisième aux critères SIC pour le délai

Je voudrai que si le minimum du AIC est atteint en Lag 3, elle m'indique 3. Et de même pour le minimum du SIC. Cependant je n'arrive pas déjà à trouver le minimum dans les colonnes de mon tableau.

En effet, j'ai cru comprendre qu'il ne sélectionne pas toutes les valeurs de la colonne 2 qui contient 15 nombres. Aussi, l'instruction Array n'est pas la bonne. L'instruction Range non plus

Any ideas?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Function LagFind(Y As Range, X As Range) ' Find the number of Lag using AIC and SIC information criterion Dim K, i As Integer, temp As Variant K = 15 ReDim temp(K, 3) As Variant ' For i = 1 To K temp(i, 1) = i temp(i, 2) = AIC(Y, X, i) temp(i, 3) = SIC(Y, X, i) Next i ' 'Find the Lag minimizing AIC and SIC Dim MinAic, MinSic, LagAic, LagSic MinAic = WorksheetFunction.min(range(temp(1, 2), temp(K, 2))) LagAic = Application.VLookup(MinAic, temp, 1, False) MinSic = WorksheetFunction.min(Array(temp(1, 3), temp(K, 3))) LagSic = Application.VLookup(MinAic, temp, 1, False) End Function
J'oubliais, les valeurs de mon tableau Temp sont comme cela:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 1 1,47533494 6,754085829 2 1,451687717 6,812431611 3 1,450860791 6,86650828 4 1,453698856 6,915370452 5 1,458011428 6,966012272 6 1,460715742 7,013070449 7 1,465700744 7,053706042 8 1,470644021 7,092846743 9 1,472862906 7,130334578 10 1,474822532 7,166463082 11 1,478294861 7,196580962 12 1,489471525 7,228630139 13 1,493153789 7,25874535 14 1,494039948 7,285451228 15 1,497900179 7,311176162
Merci pour votre aide ;)

Cordialement

Anthony

Bonjour à tous,

Alors j'ai fini par me résoudre à faire une petite manipulation afin de trouver les minimas de mes colonnes ci-dessus et cela fonctionne. Maintenant si quelqu'un sait utiliser VBA et la rechercheV pour un tableau de type variant je suis preneur. Cela me renvoie "erreur 2042". Peut-on par hasard utiliser la fonction VBA Vlookup sur ce type de tableau? ou bien est-ce impossible?

Merci d'avance de votre aide.

Anthony

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Function LagFind(Y As Range, X As Range)
'   Find the number of Lag using AIC and SIC information criterion
    Dim K As Integer, i As Integer, temp As Variant
    K = 15
    ReDim temp(1 To K, 1 To 3) As Variant
    '
    For i = 1 To K
        temp(i, 1) = i
        temp(i, 2) = AIC(Y, X, i)
        temp(i, 3) = SIC(Y, X, i)
    Next i
    '
    'Find the minimum of AIC and SIC
    Dim MinAic As Double, MinSic As Double
    MinSic = 1000
    MinAic = 1000
        For i = 1 To K
            MinAic = Application.Min(temp(i, 2), MinAic)
            MinSic = Application.Min(temp(i, 3), MinSic)
        Next i
    '
    'find the lag minimizing
    Dim LagAic As Integer, LagSic As Integer
    LagAic = Application.VLookup(MinAic, temp, 1, False)
    LagSic = Application.VLookup(MinSic, temp, 1, False)
End Function

Salut
Si j'ai bien compris, tu veux la valeur de K (1ere dimension de ton tableau) en fonction de la valeur la plus petit de Aic (2eme dimension) et pour la plus petit valeur de Sic(3eme dimension).
si c'est bien ça, pourquoi ne pas faire ça?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    'Find the minimum of AIC and SIC
    Dim MinAic As Double, MinSic As Double
    Dim TmpMin As Double, TheKAic As Byte, TheKSic As Byte
 
    MinSic = 1000
    MinAic = 1000
        For i = 1 To K
            TmpMin = Application.Min(temp(i, 2), MinAic)
            If TmpMin < MinAic Then TheKAic = i
            MinAic = Application.Min(temp(i, 2), MinAic)
 
            TmpMin = Application.Min(temp(i, 3), MinSic)
            If TmpMin < MinSic Then TheKSic = i
            MinSic = Application.Min(temp(i, 3), MinSic)
        Next i

A++
Qwaz

29/01/2010, 14h28
Anthony75

Merci Qwazerty pour ton aide, j'avais fait quelquechose de similaire mais en deux boucles. En fait je me cassais la tête pour pas grand chose car je voulais garder le code le plus petit possible. Mais t'as solution est très bien et simplissime. Merci bien ;-) ==> RESOLU