Discussion :

[jojo86]

Bonjour,
Lorsque je souhaite rechercher la valeur mini d'une variable tableau, j'ai la valeur 0 qui ressort.
Voici ma méthode :

Code :

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

1
2
3
4
5
6
7
8
9
Sub TestMin()
Dim test(0 To 2) As Double
test(0) = 7.45
test(1) = 2.79
test(2) = 4.5
With Application.WorksheetFunction
    Debug.Print "Min test: " & .Min(test) ' affiche 0 ?
End With
End Sub

Pourtant si j'affiche la valeur Max j'ai bien 7.45 qui ressort.

Avez vous une idée?
Merci beaucoup

[Invité]

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
18
19
20
Sub TestMin()
Dim test(0 To 2) As Double
test(0) = 7.45
test(1) = 2.79
test(2) = 4.5
    Debug.Print "Min test: " & MyMin(test) ' affiche 0 ?
    Debug.Print "Max test: " & MyMAx(test) ' affiche 0 ?
End Sub
Function MyMin(v) As Double
Dim I As Long
For I = 0 To UBound(v)
    If MyMin > CDbl(v(I)) Or MyMin = 0 Then MyMin = CDbl(v(I))
Next
End Function
Function MyMAx(v) As Double
Dim I As Long
For I = 0 To UBound(v)
    If MyMAx < CDbl(v(I)) Or MyMAx = 0 Then MyMAx = CDbl(v(I))
Next
End Function

[Marc-L]

Bonjour.

Code :

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

1
2
3
4
Sub Demo()
    Test = Array(7.45, 2.79, 4.5)
    Debug.Print "Min test: " & Application.Min(Test)
End Sub

Cela me renvoie bien 2.79 …

Edit : le code de jojo86 fonctionne bien tel quel sous Excel 2003 …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Invité]

autant pour moi

[jojo86]

Bonjour,
Merci de votre aide.
Ma variable est une variable dynamique qui est renseignée en parcourant des cellules d'une feuille.

Pour remplir la variable je fait quelque chose comme :

Code :

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

1
2
3
For i = 0 To 3
    test(i) = Cells(i+1,2) 
Next i

Comment faire pour remplir la variable de cette manière :

Code :

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

Array(7.45, 2.79, 4.5)

Merci !

[jojo86]

J'ai un gros soucis... Peut être est-ce lié au surmenage...

J'ai encore 0 avec la fonction que tu m'as donné...
Mon code de test :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub TestMyMin()
Dim i As Integer
Dim Test() As Double
ReDim Test(0) 'Initialise la variable
 
For i = 1 To 3
    ReDim Preserve Test(UBound(Test) + 1) 'j'ajoute une ligne dans la variable
    Test(UBound(Test) - 1) = i 
Next i
 
Debug.Print MyMin(Test) ' =0...
End Sub

Je ne pige plus rien...
Merci de votre aide.

[EngueEngue]

normal...

Min(0,1,2,3)=0

[jojo86]

normal...

Min(0,1,2,3)=0

Pourtant ma boucle saisi les valeurs en partant de 1...

Code :

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

1
2
3
4
For i = 1 To 3
    ReDim Preserve Test(UBound(Test) + 1) 'j'ajoute une ligne dans la variable
    Test(UBound(Test) - 1) = i 'Ajout de 1 puis 2 puis 3 sur les lignes 0, 1, 2 du tableau.
Next i

Ca revient au même que de faire :

Code :

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

1
2
3
4
5
 
Dim Test(0 To 2) as Double
Test(0) = 1
Test(1) = 2
Test(2) = 3

[EngueEngue]

Tu oublies ton:

Code :

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

ReDim Test(0)

[jojo86]

Redim Test(0) c'est pour remettre à 0 la variable et pour l'initialiser...
Si je ne met pas de Redim Test(0), il est impossible de faire un

Code :

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

redim preserve test(...)

J'ai une erreur dans ce cas.

Comment faire?

[EngueEngue]

Code :

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

option base 1

for example
Ne te prends pas la tête et utilise l'application min de ton tableau de doubles que tu ne vas pas redimensionner à chaque step mais dès le début...
Le redimensionnement est très gourmand..

[jojo86]

Le souci c'est que je suis obligé d'avoir un tableau dynamique car je ne connais pas à l'avance le nombre de lignes de ma variable...

Le option base 1 ne change rien.
Je l'ai mis en tête de module, mais j'ai toujours une erreur si je fait :

Code :

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

1
2
3
4
5
6
Option base 1
 
Sub test
dim test() as double
 
Debug.print UBound(test) ' = ERREUR

[Invité]

Bonjour,

C'est assez confu. Il faudrai plus d'info pour comprendre ce que tu veux faire.

En attendant, essaie:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub TestMyMin()
Dim i As Integer
Dim Test() As Double
ReDim Test(1 To 1) 'Initialise la variable
 
For i = 1 To 3
    ReDim Preserve Test(1 To i) 'j'ajoute une ligne dans la variable
    Test(i) = i
Next i
 
MsgBox MyMin(Test) ' =0...
End Sub

Mais le redim n'est pas une solution lorsque c'est employé dans une boucle. Ici, le tableau varie de 1 To 1 à 1 To i et prends la valeur i pour le UBOUND du tableau.

[EngueEngue]

Comme cité REDIMENSIONNE UNE FOIS, pas cinquante, tu trouves la loingueur de ton tableau et tu redimensionnes dès le début, pas dans ta boucle

[jojo86]

Ok, ça fonctionne en Initialisant avec :

Code :

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

Redim test(0 To i)

Merci beaucoup.

[Invité]

Ne te prends pas la tête et utilise l'application min de ton tableau de doubles que tu ne vas pas redimensionner à chaque step mais dès le début...
Le redimensionnement est très gourmand..

Comme cité REDIMENSIONNE UNE FOIS, pas cinquante, tu trouves la loingueur de ton tableau et tu redimensionnes dès le début, pas dans ta boucle

Entièrement d'accord.

[EngueEngue]

pour i > 200 je pense que tu ferais directement mieux de faire dim(1 to 1000000) en terme de temps d'allocation mémoire.

[Invité]

Je viens de faire un bench.
- La variable en Integer ou en Long ne change rien ici. J'ai fait le test en Long.
- J'ai mis un DoEvents tous les 150 000 passages (tout juste suffisant). Ici, il n'influe pas sur le temps. 1 DoEvents doit prendre 0,085 ms ici environ. Ici, il y en a 10 au Maximum soit 0,85 ms de perdu (soit rien dutout).
- J'ai fais le test avec et sans la ligne Test(i) = i et ça ne change rien.
- ScreenUpdating = False non plus ne change rien.


25 000 redimensions = 7,8125 ms (le 1er pas du Timer au niveau précision)
250 000 = 390~445 ms (5 essais)
2 500 000 = 49 ~ 50,5 s

On a du x100 au lieu d'avoir du x10 au niveau temps.

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
18
19
20
Sub TestMyMin()
 
Dim t(1 To 10) As Single
t(1) = Timer
Dim i As Long
Dim Test() As Double
ReDim Test(1 To 1) 'Initialise la variable
t(2) = Timer
For i = 1 To 2500000
    ReDim Preserve Test(1 To i) 'j'ajoute une ligne dans la variable
    If i Mod (150000) = 0 Then DoEvents
Next i
t(3) = Timer
 
t(4) = (t(2) - t(1)) * 1000
t(5) = (t(3) - t(1)) * 1000
 
MsgBox Format(t(4), "###,###.####") & " ms" & Chr(10) & Format(t(5), "###,###.####") & " ms"
 
End Sub

Conclusion: Pour les grandes valeurs, le Redim prends du temps, pour les petite valeurs par contre, c'est instantanée.


-------------------------------------------------- EDIT --------------------------------------------------

Sans redim à l'intérieur de la boucle:

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
18
19
20
Sub TestMyMin()
 
Dim t(1 To 10) As Single
t(1) = Timer
Dim i As Long
Dim Test() As Double
ReDim Test(1 To 250000) 'Initialise la variable
t(2) = Timer
For i = LBound(Test) To UBound(Test)
    'Test(i) = i
    If i Mod (250000) = 0 Then DoEvents
Next i
t(3) = Timer
 
t(4) = (t(2) - t(1)) * 1000
t(5) = (t(3) - t(1)) * 1000
 
MsgBox Format(t(4), "###,###.####") & " ms" & Chr(10) & Format(t(5), "###,###.####") & " ms"
 
End Sub

Temps initialisation du Redim // Temps total :
250 000 passages = 0 ms / 7,8125 ms (le 1er pas du Timer au niveau précision)
2 500 000 = 7,8 ~ 15 ms // 80 ~ 105 ms
25 000 000 = 110 ~ 130 ms // 930 ~ 950 ms
250 000 000 (250 Millions) = 1 s // 9,5 s (ScreenUpdating = True)
250 000 000 (250 Millions) = 1 s // 6,6 s (ScreenUpdating = False)

[Marc-L]

Pour remplir la variable je fait quelque chose comme :

Code :

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

1
2
3
For i = 0 To 3
    test(i) = Cells(i+1,2) 
Next i

Comment faire pour remplir la variable de cette manière :

Code :

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

Array(7.45, 2.79, 4.5)

Merci !

Donc là on a un tableau de quatre indices de B1 à B4 pouvant s'alimenter directement par Test = [B1:B4] ,

comme s'il avait été dimensionné ainsi : Dim Test(1 to 4, 1 to 1) …
Normal car la source est bien de quatre lignes sur une seule colonne.

Sinon Test = Application.Transpose([B1:B4]) afin de n'avoir qu'une seule dimension de 1 à 4 …

Entre les deux, tout dépend de l'utilité réelle de la variable tableau.

Pour le reste, sans voir plus de code ni de claires explications …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


__________________________________________________________________________________________
L'expérience, c'est une connerie par jour, mais jamais la même …