Discussion :

[kristoch91]

Bonjour
j'ai besoin de trouver le maximum du colonne de donnée ainsi que les coordonné de la sa cellule ( exemple : (12;3) ).
c'est la deuxième partie que je ne vois pas comment faire.

Merci d'avance pour l'aide

[jolop35]

Bonjour

Le max
=MAX(A:A)

La ligne du Max
=EQUIV(MAX(A:A);A:A,0)

A+


J.L

[kristoch91]

et en VBA sa donne quoi ?
enfaite j'ai surtout besoin de connaître la ligne car à coté de cette valeur max je dois récupérer d'autre valeurs.

[jolop35]

Re

En VBA, alors voici

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub MACRO_TEST()
Dim mx As Double
Dim lmx As Long
mx = _
Application.Max(Range("A:A"))
lmx = _
Application.Match(Application.Max(Range("A:A")), Range("A:A"),0)
MsgBox "Valeur maximale : " & mx & _
vbCrLf & "Numéro de ligne du maximum : " & lmx
End Sub

A+

J.L

[decondelite]

On ne met pas de parenthèses autour des arguments d'une méthode lorsqu'elle est soumise à un appel simple sans affectation ni test.

[jolop35]

Bonjour decodelite


Peux-tu préciser ta remarque, stp ?
(En espérant que ma question ne soit pas du type de celles spécifiées dans ta signature )

Car j'ai testé avant de soumettre le code VBA précédent, il fonctionne.

Voici une variante, testée elle aussi.

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 MACRO_TESTDEUX()
Dim aWS As Worksheet: Dim Plg As Range
Dim strFMax$, strFLigne$, mx$, lmx$
Set aWS = _
    ActiveSheet
Set Plg = _
    aWS.Range("A1:A" & aWS.Rows.Count)
strFMax = _
    "=MAX(" & Plg.Address & ")"
strFLigne = _
    "=MATCH(MAX(" & Plg.Address & ")," & Plg.Address & ",0)"
mx = _
    aWS.Evaluate(strFMax)
lmx = _
    aWS.Evaluate(strFLigne)
MsgBox _
    "Valeur maximale : " & _
    mx & Chr(13) & _
    "Numéro de le ligne du maximun : " _
    & lmx
End Sub

A+

J.L

[decondelite]

J'avais pas vu le retour à la ligne, désolé.