trouver le maximum en fonction d'une clé

Bonjour forum,

Je veux mettre en vba l'équivalent de la fonction excel max.si.ens.
J'ai la colonne A ou j'ai mes clés et la colonne AF ou j'ai les valeurs ou trouver le maximum en fonction de la clé. Pour chaque clé je veux inscrire le maximum trouver dans la colonne AG.
Pour se faire j'ai écrit le programme ci-dessous; Quand je l’exécute ça me met: " erreur de compilation next sans for. "

Code:

---

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 48 49 50 51 52 53 54

Sub retenir()   Dim i, j, k, max, cle As Integer   i = 5 j = 5 k = 5 max = 0 cle = 0 For i = 5 To 261   For j = i + 1 To 261   cle = Range("A" & i).Value   max = Range("AF" & i).Value   If Range("A" & j).Value <> cle Then   Next j   Else   If Range("AF" & j).Value > max Then   max = Range("AF" & j).Value   Else: max = Range("AF" & i).Value   End If   End If   Next j   For k = i To 261   If Range("A" & k).Value <> "" Then Next k   Else   If Range("A" & k).Value = Range("A" & i).Value Then   Range("AG" & k).Value = max   Else End If End If   Next k   Next i   End Sub

---

Pourriez-vous svp m'apporter vos lumières ?

Merci beaucoup!

Bonjour

Si pour trouver pour chaque clé le maximum correspondant, utilise un tableau croisé dynamique! c'est fait pour ça.

Si pour un exercice scolaire, revois tes boucles car tu mélange tout.

bonjour
aussi y a la fonction standard excel BDMAX et BDMIN.. beaucoup de tuto et exemple sur le net
BONNE CONTINUATION

Citation:

---

Envoyé par erlerwade

Quand je l’exécute ça me met: " erreur de compilation next sans for. "

---

Le premier problème que tu aurais dû repérer, c'est qu'il y a plus de Next que de For.

Mais je pense que ton plus gros problème, c'est que tu as voulu croiser une structure If et une structure For.

Code:

---

1 2 3

If Range("A" & j).Value <> cle Then Next j Else

---

Ca, c'est interdit.

Une formulation correcte :

Code:

---

1 2 3 4 5

For j = i + 1 To 261 cle = Range("A" & i).Value max = Range("AF" & i).Value If Range("A" & j).Value = cle Then max = Range("AF" & IIf(Range("AF" & j).Value > max, j, i)).Value Next j

---

Cela dit, pour faire l'équivalent d'un MAX.SI.ENS(), il serait beaucoup plus simple d'utiliser cette fonction avec un Evaluate ou un WorksheetFunction.
https://docs.microsoft.com/fr-fr/off...ation.evaluate
https://docs.microsoft.com/fr-fr/off...ksheetfunction

Merci beaucoup!

Une formulation correcte :

Code:

---

1 2 3

If Range("A" & j).Value = cle Then max = Range("AF" & IIf(Range("AF" & j).Value > max, j, i)).Value Next j

---

Il n’y-aurait pas d'erreur de frappe ou c'est moi qui ne comprend pas la structure de ton if test ?

Citation:

---

Envoyé par erlerwade

Il n’y-aurait pas d'erreur de frappe ou c'est moi qui ne comprend pas la structure de ton if test ?

---

Ma structure est calquée sur la tienne.
Je n'ai pas cherché à corriger ton algorithme mais juste ta syntaxe.

Qu'est-ce qui te fait penser qu'il puisse y avoir une erreur de frappe ?
C'est une erreur signalée par l'éditeur ? Un message à l'exécution ? Un résultat incorrect ?

Bonjour,

Citation:

---

Envoyé par Menhir

Qu'est-ce qui te fait penser qu'il puisse y avoir une erreur de frappe ?

---

Ca peut le iif (avec deux i) qui le dérange.
Mais ce n'est pas une erreur de frappe :https://support.office.com/fr-fr/art...0-647539C764E3

Citation:

---

Envoyé par Menhir

Ma structure est calquée sur la tienne.
Je n'ai pas cherché à corriger ton algorithme mais juste ta syntaxe.

---

Ta partie que tu me propose est-elle censée remplacer ma partie de code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

or i = 5 To 261   For j = i + 1 To 261   cle = Range("A" & i).Value   max = Range("AF" & i).Value   If Range("A" & j).Value <> cle Then   Next j

---

Citation:

---

Envoyé par Menhir

Qu'est-ce qui te fait penser qu'il puisse y avoir une erreur de frappe ?

---

le "IIF" dans ta formule m'a perturbé. Je ne connaissais pas avant.

Merci beaucoup pour l'aide !

Citation:

---

Envoyé par erlerwade

Ta partie que tu me propose est-elle censée remplacer ma partie de code

---

Elle remplace :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

For j = i + 1 To 261 cle = Range("A" & i).Value max = Range("AF" & i).Value If Range("A" & j).Value <> cle Then Next j Else If Range("AF" & j).Value > max Then max = Range("AF" & j).Value Else: max = Range("AF" & i).Value End If End If Next j

---

Cela dit, comme je l'ai déjà suggéré, je pense que ton algorithme ne tient pas la route.
Mais je ne l'ai pas regardé en détail.
D'autant plus que tout ça pourrait se faire en une seule ligne de code, comme signalé dans mon premier message.