Discussion :

[m@tix]

Bonjour,

Je cherche le max d'une "partie" de colonne. Je m'explique.

Colonne A (par exemple), j'ai le nom de certains paramètres (a,b,c,...), et colonne B les valeurs mesurées concernant ces paramètres. Seulement, il y a plusieurs mesures concernant le même paramètre, et j'aimerais par exemple connaître le max parmi ces valeurs. Le problème est que je ne peux pas réduire la zone de B1 à B4 par exemple, car le nombre de valeurs mesurées peut varier d'un mois à l'autre. Je joins un fichier excel qui sera plus parlant. Dans cet exemple, comment récupérer la valeur max prise par le paramètre a (là ça va de B1 à B5, mais ça pourrait très bien être autrement) ?

Merci d'avance !

[jfontaine]

Bonjour,

Tu peux utiliser la formule matricielle suivante

Code :

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

=MAX(SI(A1:A18="B";B1:B18))

Formule a confirmer par CTRL+MAJ+ENTREE

[m@tix]

Merci pour ta réponse jfontaine, mais je ne suis pas sûr que ce soit ce que j'aimerais.. En effet, dans ta formule tu considère qu'il y a 18 colonnes de remplies, or, de façon générale, je ne saurai pas ! De plus, je fais ça en VBA..
Je pense qu'il faudrait, "algorithmiquement" parlant, faire quelque chose comme ça:

tant qu'on trouve le paramètre "a" dans la colonne A, chercher le max des valeurs correspondantes dans la colonne B

Non ?

[jfontaine]

Ci dessous une fonction

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Function MaxCritere(Critere As String)
 
Dim i As Long
Dim Max As Double
 
For i = 1 To Range("A:A").End(xlDown).Row
    If Range("A" & i).Value = Critere And Range("B" & i).Value > Max Then Max = Range("B" & i).Value
Next i
 
MaxCritere = Max
 
End Function

[m@tix]

Merci bien !
Par contre pour la tester, j'ai besoin de quelques précisions.. Débutant totalement en VBA, dois-je insérer cette fonction dans le "module" à la suite du reste du code, puis l'appeler en suivant ?

[jfontaine]

En effet,ce code doit etre copier dans un module et peut être appelé
soit par VBA

Code :

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

msgbox MaxCritere("a")

soit en tant que formule dans une feuille

Code :

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

=MaxCritere("a")