trouver le maximum de chaque groupe vb

Version imprimable

31/05/2011, 17h34
isabela

1 pièce(s) jointe(s)

trouver le maximum de chaque groupe vb

Bonjour,

je doit trouver l'effectif le plus grand de chaque groupe

dans un fichier excel, j'ai:
colone A: GROUPE et colonne B: effectif
j'ai scinder le fichier sur plusieur colonnes afin de trouver le maximum dans chaque groupe avec vb mais mon tuteur ne veut pas que je scinde le fichier, merci de m'aider car je ne trouve pas de solution.

je vous envoie un fichier exemple en pièce jointe avec le code vb.

cordialement
isabela

Bonjour

Une proposition

Dans un module public, on se construit une fonction personnalisée
Code:

1 2 3 4 5 6 7 8 9 10 'Rng: Plage de recherche du critère 'Crit: Critère 'MxRng: Plage de recherche du max correspondant Public Function MaxIf(Rng As Range, ByVal Crit As String, MxRng As Range) As Double Dim Frml As String Frml = "=MAX(IF(" & Rng.Address & "=""" & Crit & """," & MxRng.Address & ",""""))" MaxIf = Evaluate(Frml) End Function
Sur ton fichier, on l'applique comme une fonction d'excel

Exemple en D4 pour rechercher le maximum du groupe A

Code:

=MaxIf(A2:A23;"A";B2:B23)

01/06/2011, 11h19
isabela

Bonjour mercatog,

merci pour votre réponse aussi rapide, ça ne fonctionne pas, quand j'éxécute il me dit erreur 424 objet requis.
vous pouvez me donner une idéé svp?
merci
01/06/2011, 12h18
Godzestla

Bonjour,

en suivant exactement les explications complètes de Mercatog, cela fonctionne parfaitement chez moi.
01/06/2011, 12h34
isabela

Bonjour Godzestla,

vous utilisez excel 2007 ou 2003?
moi je travaille sur 2007 et ça na pas fonctinné
01/06/2011, 12h38
Godzestla

Isabela,
j'utilise 2003, mais je doute que ton problème vienne de la.
01/06/2011, 13h17
mercatog
Bonjour Godzestla, isabela

Tu as bien mis la fonction dans un module public.
Tu utilise la fonction directement sur la feuille (comme une fonction Excel) ou tu l'utilise dans une procédure?

1. Pour l'utiliser directement dans une feuille, mettre la formule:

Code:

=MaxIf(A2:A23;"A";B2:B23)

2. Pour l'utiliser dans une procédure (exemple)
Code:

1 2 3 4 5 6 Sub Test() With Sheets("Feuil1") MsgBox MaxIf(.Range("A2:A23"), "A", .Range("B2:B23")) End With End Sub
Maintenant explique nous comment tu l'utilise.
01/06/2011, 13h44
isabela
Bonjour,

je l'utilise dans une procédure, avec vb.

j'ai essayé avec le code
Code:

1 2 3 4 5 6 Sub Test() With Sheets("Feuil1") MsgBox MaxIf(.Range("A2:A23"), "A", .Range("B2:B23")) End With End Sub
et ça fonctionne, mais ma base de donné contient 16000 ligne et 3000 groupe, comment je fais...?
01/06/2011, 14h00
Godzestla

Re,

tu n'as toujours pas répondu à cette question de Mercatog?

Citation:

Tu as bien mis la fonction dans un module public.

Car ta réponse ici ne veut pas dire grand-chose !

Citation:

Bonjour,

je l'utilise dans une procédure, avec vb.
01/06/2011, 14h13
isabela

Oui jl'ai mis dans un module public,
et il me met que des #NOM dans les cellules
01/06/2011, 14h25
Godzestla

Remet ton exemple.zip à jour en attachement (et supprime celui de tantôt).

J'attend ton fichier.

Une proposition, données en Feuil 1 colonnes A:B et résultat en Feuil2

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
'Activer la référence Microsoft Scripting Runtime
Sub Test()
Dim Kol As New Collection
Dim LastLig As Long, i As Long, j As Long
Dim PlageA As Range, PlageB As Range
Dim Groupe As Object
Dim Gpe As String
 
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    For i = 2 To LastLig
        Gpe = .Range("A" & i).Value
        If Trim(Gpe) <> "" Then
            On Error Resume Next
            Kol.Add Gpe, Gpe
            On Error GoTo 0
        End If
    Next i
    Set PlageA = .Range("A2:A" & LastLig)
    Set PlageB = .Range("B2:B" & LastLig)
End With
 
With Sheets("Feuil2")
    .UsedRange.ClearContents
    .Range("A1:B1").Value = Array("Groupe", "Max")
    If Kol.Count > 0 Then
        For i = 1 To Kol.Count
            .Range("A" & i + 1).Value = Kol(i)
            .Range("B" & i + 1).Value = MaxIf(PlageA, Kol(i), PlageB)
        Next i
    End If
End With
Set Kol = Nothing
Set PlageA = Nothing
Set PlageB = Nothing
End Sub
 
 
'Rng: Plage de recherche du critère
'Crit: Critère
'MxRng: Plage de recherche du max correspondant
 
Public Function MaxIf(Rng As Range, ByVal Crit As String, MxRng As Range) As Double
Dim Frml As String
 
Frml = "=MAX(IF(" & Rng.Parent.Name & "!" & Rng.Address & "=""" & Crit & """," & MxRng.Parent.Name & "!" & MxRng.Address & ",""""))"
MaxIf = Evaluate(Frml)
End Function

PS: Dans la fonction MaxIf, j'ai ajouté la feuille aux plages.

01/06/2011, 14h47
isabela

1 pièce(s) jointe(s)

je vous envoie le fichier Godzestla
01/06/2011, 15h04
isabela

merci mercatog, ton code fonctionne parfaitement, et merci Godzestla.
01/06/2011, 15h09
Godzestla

Au secoursssssssssssssss.

Ce n'est pas encore le moment des vacances :

1) Ta fonction Maxif est fausse . tu as une double déclaration de maxif
2) Ta fonction dans la cellule c'est du GRAND n'importequoi.

Je m'avance peut-être beaucoup, mais je crois que l'informatique et toi, ce n'est pas le grand amour ...:cry:

Donc, j'en reviens à ce que j'ai dit : suis EXACTEMENT ce que t'as dit Mercatog et tu iras au paradis.

Allez, je suis bon prince :

2 pistes pour toi :

1) Tu as complètement bousillé la fonction qui t'as été donnée par des manips insensées. Reprend ce qui t'a été donné.
2) Tu remplaces cette abomination de =Test.xlsm!Module1.MaxIf() dans ta cellule et tu reprends l'exemple pour une cellule donné par mercatog à 13h17.

En conclusion, si tu n'essaies pas de comprendre, alors à quoi bon !!.
01/06/2011, 15h13
isabela

merci Godzestla

si j'essaie de comprendre, mais moi et vb ont est pas du tout ami, jpréfère sas que vb.
01/06/2011, 15h24
Godzestla

Citation:

moi et vb ont est pas du tout ami

Je l'avais senti.

Courage.... bientôt les exams... et petite confidence, les codes de Mercatog sont toujours :ccool:
01/06/2011, 15h26
isabela

merci j'en ai vraiment besoin ;)
01/06/2011, 17h04
isabela

Au secours :cry:

je suis perdu, je doit modifier tout mon code de départ
dans ma base de donné il ya plusieur variables
groupe, effectif, code, secteur
en fait je devais chercher le max de chaque groupe, puis si un groupe un code qui est = x ou y il aut le remplacer par celui qui a le plus grand effectif ainsi que pour le secteur.
merci de m'aider encore jsuis vraiment une débutente en vb