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")

[m@tix]

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

Code :

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

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

[jfontaine]

Code :

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

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

[m@tix]

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.

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

Code :

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

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

(renvoie 0)