Discussion :

[Vincent32]

Bonjour,

J'ai une variable tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim recap (24,1000)

et je recherche dans la colonne 23 la valeur minimale. J'ai testé ces 2 hypothèses qui semblent erronées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'Hypothèse 1 :
 
For i = 1 To UBound(recap) Step 1
        If recap(23, i) = Application.Min(Application.index(recap, , 23)) Then
            Feuil4.Range("A2") = recap(1, i)
        End If
Next i
 
'Hypothèse 2 :
 
For i = 1 To UBound(recap) Step 1
        If recap(23, i) = Application.Min(recap(23,)) Then
            Feuil4.Range("A2") = recap(1, i)
        End If
Next i

Auriez vous des suggestions ? ou encore mieux une solution ?

[joe.levrai]

Bonjour,

travailles-tu en base 0 ou base 1 ?

En base 0, la 23è colonne porte l'indice 22... ce qui expliquerait ton problème si tu cherches sur l'indice 23

Et je te conseille de capturer une fois ton Min() plutôt que de le calculer à chaque itération de boucle

voici un exemple à tester sur une feuille vierge, et te montre que ça fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub ioi()
Dim Tabl(1 To 1000, 1 To 23)
    For i = LBound(Tabl, 1) To UBound(Tabl, 1)
        For j = LBound(Tabl, 2) To UBound(Tabl, 2)
            Tabl(i, j) = i + j
        Next j
    Next i
Range("A1").Resize(1000, 23).Value = Tabl
MsgBox Application.Min(Application.Index(Tabl, , 23))
End Sub

ici, j'ai défini la Base 1 lors du dimensionnement de mon tableau
Mais on peut aussi rester sur ta méthode, en ajoutant tout en haut du module

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Option Base 1

[boisgontierjacques]

Bonjour,

2 remarques:
-Application.Min est 10 fois plus lent que la méthode classique
-Application.Index ne fonctionne pas pour des Arrays > 65.536

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub MiniArray()
  n = 64000
  Dim a(): ReDim a(1 To n, 1 To 2)
  For i = LBound(a) To UBound(a)
    a(i, 2) = 100000 - i
  Next i
  t = Timer()
  mini = a(1, 2)
  For i = LBound(a) To UBound(a)
    If a(i, 2) < mini Then mini = a(i, 2)
  Next i
  MsgBox Timer() - t
  MsgBox mini
End Sub

Avec Application.Min()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub MiniArray2()
  n = 64000
  Dim a(): ReDim a(1 To n, 1 To 2)
  For i = LBound(a) To UBound(a)
    a(i, 2) = 100000 - i
  Next i
  t = Timer()
  mini = Application.Min(Application.Index(a, , 2))
  MsgBox Timer() - t
  MsgBox mini
End Sub

[Vincent32]

Bonjour et merci pour ces retours qui me sont d'une grande aide.

[boisgontierjacques]

Bonsoir,

Application.index(tbl,,colonne) ne fonctionne plus pour un Array de plus de 65536 lignes.
Avec une fonction, le calcul est 10 fois plus rapide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub AppelFonctionMini()
  n = 64000
  Dim a(): ReDim a(1 To n, 1 To 2)
  For i = LBound(a) To UBound(a)
    a(i, 2) = 100000 - i
  Next i
  Min = Mini(a, 2)
  MsgBox Min
End Sub
 
Function Mini(a, col) ' minimum d'une colonne d'Array
  Mini = a(1, col)
  For i = LBound(a) To UBound(a)
    If a(i, 2) < Mini Then Mini = a(i, col)
  Next i
End Function

Boisgontier
http://boisgontierjacques.free.fr

[RyuAutodidacte]

Bonsoir,

en supposant que ton tableau provient de l'une de tes feuilles de ton classeur et donc que l'on a toutes les données à dispo (possible aussi sur un autre classeur ouvert, …)
sans passer par le tableau on peut aisément récupérer la valeur très rapidement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Demo()
    Feuille$ = "Feuil1"
    Col$ = Split(Columns(23).Address, "$")(2) ' ici Colonne W
    Debug.Print Evaluate("=MIN(" & Feuille & "!A2:A100000)")
    Debug.Print Evaluate("=MIN(" & Feuille & "!" & Col & "2:" & Col & "100000)")
End Sub