Discussion :

[corentinBEG]

Bonjour,

Je cherche désespérément une façon de sélectionner facilement l'ensemble des valeurs d'une colonne d'une variable tableau 2, pour par exemple en calculer le maximum.

Voici un exemple très concret :

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 Single
Dim a As Single
 
tableau(0, 0) = 10
tableau(0, 1) = -5
tableau(0, 2) = 4
tableau(1, 0) = 11
tableau(1, 1) = 11
tableau(1, 2) = 11
tableau(2, 0) = 11
tableau(2, 1) = 11
tableau(2, 2) = 11
 
a = WorksheetFunction.Max(tableau.Column(1))
Debug.Print a
End Sub

Rem : la réponse attendue est 10, maximum de 10 -5 et 4.

Malheureusement la commande suivante ne fonctionne pas :

Code :

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

a = WorksheetFunction.Max(tableau.Column(1))

Et je ne trouve pas la bonne syntaxe pour récupérer la première colonne de mon tableau 2D.
Je sais qu'il y a moyen de le faire via une boucle, néanmoins ça m'étonne qu'il n'existe pas une façon simple comme pour d'autres langage, comme par exemple dans Matlab : tableau(:,1).

Merci d'avance

[joe.levrai]

Bonjour,

une proposition pour te mettre sur la piste

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
 Sub test()
 
Dim tableau(2, 2) As Single
Dim a As Single
Dim i As Integer
Dim Col As Integer
Dim Cpt As Integer
 
' ici on indique la colonne du tableau sur laquelle on fait la recherche du Max
Col = 0
 
Cpt = 0
 
tableau(0, 0) = 10
tableau(0, 1) = -5
tableau(0, 2) = 4
tableau(1, 0) = 11
tableau(1, 1) = 11
tableau(1, 2) = 11
tableau(2, 0) = 11
tableau(2, 1) = 11
tableau(2, 2) = 11
 
For i = LBound(tableau, 2) To UBound(tableau, 2)
 
    If Cpt = 0 Then
 
        a = tableau(Col, i)
 
    Else
 
        If tableau(Col, i) > a Then
 
            a = tableau(Col, i)
 
        End If
 
    End If
 
    Cpt = Cpt + 1
 
Next i
 
Debug.Print a
 
End Sub

[corentinBEG]

Merci pour ta réponse.

Je sais qu'il y a moyen facilement de le faire via une boucle comme tu l'as fais.
Cependant, j'aimerai bien faire ceci plus succinctement, et je reste consterné par le fait qu'il faille 10 lignes en VBA, alors que dans d'autres langage ceci tient en une ligne [matlab : a = max(tableau(:,1)) ].

[mercatog]

Il suffit

Code :

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

a = Application.Max(Application.Index(Tableau, 1))

[joe.levrai]

Bonjour mercatog

oh c'est super ça, je vais pouvoir simplifier pas mal de choses avec ça !

faut vraiment que je sorte des mes sentiers

[corentinBEG]

Merci beaucoup ! Exactement ce que je cherchais. Je me disais bien que ça devait exister.

Petite question subsidiaire (niveau performance / principe / ...) :
Quelle est la différence entre worksheetfunction.max() et application.max() ?

Connaitre cette différence me permettrait de savoir laquelle utilisée de préférence.

[EDIT]
Pour sélectionner la première colonne et non la première ligne il faut faire :

Code :

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

a = Application.Max(Application.Index(Tableau, ,1))

[Thautheme]

Bonsoir le fil, bonsoir le forum,

P... que j'aime ce forum ! Excusez ma ferveur mais j'ai tellement cherché...

Alors maintenant je complique un peu (ne ris pas Mercatog...). Est-il possible, avec le même exemple de Corentin de récupérer les index de la valeur MAX (10) dans le tableau, qui seraient 0 et 0 (Tableau(0, 0) = 10) ?