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

[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 …