Discussion :

[awa123]

Bonjour,

je cherche comment peut-on trouver le minimum de chaque ligne dans un tableau à 2 dimensions

par exemple avec le code 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
    Sub test()
 
    Dim tableau(2, 2) As Variant
 
        tableau(0, 1) = 1
        tableau(0, 2) = 2
        tableau(1, 1) = 1
        tableau(1, 2) = 3
        tableau(2, 1) = 1
        tableau(2, 2) = 4
 
    For i = 0 To UBound(tableau,1)
         For j = 1 To UBound(tableau,2)
 
            Min tableau(i, j) ' c'est là que je ne sais pas la syntaxe pour lui demander le min
           MsgBox (tableau(i, j))
 
        Next j
    Next i
 
    End Sub

Je voudrais qu'il m'afficher le min sur la première ligne de mon tableau (qui est égale à 1 ) puis sur ma 2eme ligne (qui est égale à 1 également ) et enfin sur ma dernière ligne (qui est égale à 1 aussi) mais ma syntaxe n'est pas bonne...

merci

[awa123]

c'est bon merci je viens de trouver

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
 
 
    Sub test()
    Dim tableau(2, 2) As Variant, i%, j%, m As Double
      tableau(0, 1) = 1
      tableau(0, 2) = 2
      tableau(1, 1) = 1
      tableau(1, 2) = 3
      tableau(2, 1) = 1
      tableau(2, 2) = 4
      For i = 0 To UBound(tableau)
        m = 1.79769313486231E+308
        For j = 1 To UBound(tableau, 2)
          If tableau(i, j) < m Then m = tableau(i, j)
        Next
        MsgBox "Minimum(ligne " & i & ") = " & m
      Next
    End Sub

[nibledispo]

bonjour,

essai cela:

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
 
Option Base 1
Sub test()
 
Dim tableau(5, 2) As Variant
 
tableau(1, 1) = 1
tableau(1, 2) = 3
tableau(2, 1) = 1
tableau(2, 2) = 4
tableau(3, 1) = 2
tableau(3, 2) = 5
tableau(4, 1) = 8
tableau(4, 2) = 4
tableau(5, 1) = 10
tableau(5, 2) = 6
 
For i = 1 To UBound(tableau, 1)
     minimum = Application.Min(tableau(i, 1), tableau(i, 2)) ' c'est là que je sais
     MsgBox "le minimum de la ligne " & i & " = " & minimum
Next i
End Sub
 
Cordialement,