Discussion :

[mathrix77]

bonjour
voila j'ai des variables Compteur(x) comprise entre 0 et 13
exemple:

Code :

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

1
2
3
4
5
Compteur(1)=0
Compteur(2)=13
Compteur(3)=0
Compteur(4)=6
Compteur(5)=9

ou

Code :

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

1
2
3
4
5
Compteur(1)=11
Compteur(2)=5
Compteur(3)=8
Compteur(4)=0
Compteur(5)=3

etc...

bref je voudrais dans tous les cas faire une soustraction entre la variable Compteur(x) la plus forte et la plus faible HORMI le 0
ce qui donne dans mes exemples:
1) Compteur(2)-Compteur(4)= 13-6 = 7
2) Compteur(1)-Compteur(5)= 11-3 = 8

merci de vos aides

[ucfoutu]

Je dois reconnaître qu'avec le titre donné à la discussion dont il s'agit, il faut se lever de bonne heure pour s'y retrouver, comme il faudra également se lever de bonne heure pour s'y retrouver un jour avec le tien (de titre).

S'où l'importance du titre ....!!!!
Pense donc à modifier le tien (puisque ce que tu cherches, c'est la détermitation des valeurs extrêmes d'un tableau dynamique). Celà permettra à d'autres de s'y retrouver un jour....

[mathrix77]

voila c'est fait,
en effet j'avais plus baser mon titre sur le calcul entre les variable plutot que sur l'extraction des variables

[ucfoutu]

Voilà !
Merci de l'avoir fait.

La discussion dont il s'agit est donc la suivante :

http://www.developpez.net/forums/sho...hlight=tableau

L'une des questions qui y sont traitées est celle de la détermination des 2 plus grandes valeurs (Max1 et Max2)

Ce que toi, tu veux faire, y ressemble étrangement et est encore plus simple puisque tu n'auras pas à substituer sans cesse un max à l'autre, mais le principe est rigoureusement le même : remplacer chaque fois le Max par le nouveau Max et le Min par le nouveau Min.

Edit : ce qui se traduit dans ton cas par cette chose toute simple, avec tes valeurs dans un tableau dynamique titi(à :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Command1_Click()
   Dim max As Single, min As Single, I as integer
   max = titi(0)
   min = max
   For i = 1 To UBound(titi)
      If titi(i) > max Then
        max = titi(i)
      ElseIf titi(i) < min Then
        min = titi(i)
      End If
   Next i
   MsgBox "max =" & max & vbCrLf & "min = " & min
End Sub

[mathrix77]

merci beaucoup de ta reponse je vais m'y mettre de ca pas
et si j'ai a nouveau un probleme je viendrai crier au secour

[mathrix77]

c'est bon ca marche sauf que je voulais eviter le 0 mon code est donc le suivant:

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
21
22
23
24
Private Sub Command1_Click()
    Dim Compteur(5) As Integer
 
    Compteur(1) = 4
    Compteur(2) = 0
    Compteur(3) = 8
    Compteur(4) = 0
    Compteur(5) = 13
 
 Dim max As Single, min As Single, I As Integer
   max = Compteur(1)
   min = max
   For I = 1 To UBound(Compteur)
      If Compteur(I) > max Then
        max = Compteur(I)
      ElseIf Compteur(I) = 0 Then GoTo saut
      ElseIf Compteur(I) < min Then
        min = Compteur(I)
      End If
saut:
   Next I
   MsgBox "max =" & max & vbCrLf & "min = " & min
 
End Sub

encore merci a toi

[Vld44]

beuaaaark

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
21
22
23
24
25
26
Private Sub Command1_Click()
Dim Compteur(5) As Integer
Dim max As Single
Dim min As Single
Dim I As Integer
 
    Compteur(1) = 4
    Compteur(2) = 0
    Compteur(3) = 8
    Compteur(4) = 0
    Compteur(5) = 13
 
   max = Compteur(Lbound(compteur))
   min = max
 
   For I = Lbound(Compteur) + 1 To UBound(Compteur)
      If Compteur(I) > max Then
        max = Compteur(I)
      ElseIf ((Compteur(I) < min) and (Compteur(I) <> 0)) Then
        min = Compteur(I)
      End If
   Next I
 
   MsgBox "max =" & max & vbCrLf & "min = " & min
 
End Sub