Discussion :

[ezkbkt]

Bonjour,

J'ai un projet d'automatisation à réaliser et je souhaite faire la moyenne de mon fichier en sachant que le nombre de ligne n'est pas stable il me faudrait donc faire une moyenne qui apparaitrait à la première cellule vide pour qu'elle apparaisse en dessous du total mais qu'elle ne prenne pas en compte le total.

Utilisateur	TOTAL CV
1	187
2	1063
3	598
4	436
total	2284
Moyenne	571
Objectif

j'ai vraiment du mal avec les boucles, j'ai fais ceci pour l'instant qui fonctionne bien mais que si il y a toujours 4 lignes.

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
Sub moyenne()
 
    Dim C As Range
    Range("B7") = Application.Average(Range("B2:B5"))
    Range("B7").Select
    For Each C In Range("B2:B5")
        If C.Value < Range("B7") Then
            If C.Value < Range("B7") And C.Value > Range("B8") Then
            C.Interior.ColorIndex = 46
            Else
            C.Interior.ColorIndex = 3
            End If
        Else
            C.Interior.ColorIndex = 43
        End If
    Next C

Je ne comprend pas comment il est possible d'appeler la dernière ligne -1 pour le calcul de la moyenne puis la dernière ligne plus un pour mettre le résultat et la dernière ligne +2 pour récupérer la valeur objectif.
j'ai essayé plusieurs solution en partant de ceci :

Code :

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

lastrow = Range("B" & Rows.Count).End(xlUp).Row

Mais il n'y a rien qui marche

[ARTURO83]

Bonjour,

Supprimez les 2 lignes "Total" et "Moyenne" et appliquez ceci

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
Sub Moyenne()
    Dim C As Range
    Derlig = Range("A" & Rows.Count).End(xlUp).Row
    For Each C In Range("B2:B" & Derlig)
        If C.Value < Range("B" & Derlig) Then
            If C.Value > C.Offset(1, 0).Value Then
                C.Interior.ColorIndex = 46
            Else
                C.Interior.ColorIndex = 3
            End If
        Else
            C.Interior.ColorIndex = 43
        End If
    Next C
    Cells(Derlig + 1, "A") = "Total"
    Cells(Derlig + 1, "B") = Application.WorksheetFunction.Sum(Cells(2, "B"), Cells(Derlig, "B"))
    Cells(Derlig + 2, "A") = "Moyenne"
    Cells(Derlig + 2, "B") = Application.Average(Range("B2:B" & Derlig))
End Sub

Cdlt

[78chris]

Bonjour

Un tableau structuré avec la ligne de total activée et paramétrée sur Moyenne fait cela tout seul sans coder...

[ezkbkt]

Bonjour

Un tableau structuré avec la ligne de total activée et paramétrée sur Moyenne fait cela tout seul sans coder...

Oui je suis totalement d'accord avec vous mais j'essaie de mettre en place quelque chose de stable pour un service RH qui doit analyser des données exporter et ils ne sont pas très portés excel.

[ARTURO83]

Bonjour,

Ceci est-il mieux? toujours effacer les lignes "Total" et "Moyenne" avant de lancer la macro

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
Sub Moyenne()
    Dim C As Range
    Derlig = Range("A" & Rows.Count).End(xlUp).Row
    Moy = Application.Average(Range("B2:B" & Derlig))
    For Each C In Range("B2:B" & Derlig)
        If C.Value < Moy Then
            If C.Value > C.Offset(1, 0).Value Then
                C.Interior.ColorIndex = 46
            Else
                C.Interior.ColorIndex = 3
            End If
        Else
            C.Interior.ColorIndex = 43
        End If
    Next C
    Cells(Derlig + 1, "A") = "Total"
    Cells(Derlig + 1, "B") = Application.WorksheetFunction.Sum(Range(Cells(2, "B"), Cells(Derlig, "B")))
    Cells(Derlig + 2, "A") = "Moyenne"
    Cells(Derlig + 2, "B") = Moy
End Sub

Cdlt

[ezkbkt]

Bonjour,

Ceci est-il mieux? toujours effacer les lignes "Total" et "Moyenne" avant de lancer la macro

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
Sub Moyenne()
    Dim C As Range
    Derlig = Range("A" & Rows.Count).End(xlUp).Row
    Moy = Application.Average(Range("B2:B" & Derlig))
    For Each C In Range("B2:B" & Derlig)
        If C.Value < Moy Then
            If C.Value > C.Offset(1, 0).Value Then
                C.Interior.ColorIndex = 46
            Else
                C.Interior.ColorIndex = 3
            End If
        Else
            C.Interior.ColorIndex = 43
        End If
    Next C
    Cells(Derlig + 1, "A") = "Total"
    Cells(Derlig + 1, "B") = Application.WorksheetFunction.Sum(Range(Cells(2, "B"), Cells(Derlig, "B")))
    Cells(Derlig + 2, "A") = "Moyenne"
    Cells(Derlig + 2, "B") = Moy
End Sub

Cdlt

Merci oui ca fonctionne !! C'est génial !

[ezkbkt]

Bonjour merci beaucoup pour votre aide j'ai un petit problème au niveau de la somme il m'additionne la cellule de avec la dernière ligne et non pas la totalité des lignes

EDIT : J'ai trouvé du coup j'ai fait comme pour la moyenne

Code :

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

Cells(Derlig + 1, "B") = Application.WorksheetFunction.Sum(Range("B2:B" & Derlig))

Encore merci !!!

EDIT 2 : Je viens de me rendre compte que les couleurs ne sont pas bonnes j'ai tout qui se met en vert alors que j'ai bien des autre couleurs qui devrait apparaitre :

Code :

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

If C.Value < Range("B" & Derlig) Then

est-ce que cette ligne prend bien en compte la moyenne ?