Discussion :

[erlerwade]

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 :

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
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!

[mercatog]

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.

[BENNASR]

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

[Menhir]

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 :

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

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

Ca, c'est interdit.

Une formulation correcte :

Code :

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

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

[erlerwade]

Merci beaucoup!

Une formulation correcte :

Code :

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

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 ?

[Menhir]

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 ?

[halaster08]

Bonjour,

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

[erlerwade]

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 :

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

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

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 !

[Menhir]

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

Elle remplace :

Code :

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

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.