Max calculé sur une partie de cellule

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 !

Bonjour,

Tu peux utiliser la formule matricielle suivante

Code:

---

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

---

Formule a confirmer par CTRL+MAJ+ENTREE

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 ?

Ci dessous une fonction

Code:

---

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

---

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 ?

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

Code:

---

msgbox MaxCritere("a")

---

soit en tant que formule dans une feuille

Code:

---

=MaxCritere("a")

---

Ok merci. Par contre, me concernant, je souhaiterais l'utiliser dans une instruction du type:

Code:

---

Sheets(CStr(xxx)).Cells(yyy, rech.Column).Value = ?

---

Code:

---

Sheets(CStr(xxx)).Cells(yyy, rech.Column).Value=MaxCritere("a")

---

Bon... Je viens de le tester, j'ai "0" qui s'affiche comme résultat.. Donc ça ne va pas, je dois mal faire les choses.. :( J'ai placé la fonction dans le module2, et je l'ai appelée dans le module1 avec le reste du code. Je ne vois pas de quoi cela peut venir.. :? Veux-tu que je t'envoie un exemple de fichier similaire au mien pour voir si tu comprends ce qui ne va pas ?

Je rajoute que c'est forcément mon code qui est mal "agencé", car ta fonction fait ce que je voulais (je l'ai essayée via =MaxCritere("a")) et ça me retourne bien la bonne valeur. :ccool:

C'est à n'y rien comprendre: =MaxCritere("a")) fonctionne, mais pas

Code:

---

1 2	res = MaxCritere("a") MsgBox res

---

(renvoie 0)
:cry: