Moyenne VBA + rouge et vert

Version imprimable

11/12/2014, 16h27
gaever

Moyenne VBA + rouge et vert

Bonjour la communauté,
Je dois créer des codes VBA et je suis totalement perdu...
Je dois créer un code pour calculer une moyenne d'une colonne C allant de C2 à C12 et de plus j'aimerais que les valeurs au dessus de la moyenne soit en rouge et celle en dessous soit en verte !
Quelqu'un pourrait m'aider svp ?
Merci d'avance
11/12/2014, 17h01
Kimy_Ire

gaever,

Euh... et tu es obligé de passer par VBA pour faire ça ?
C'est très simple sans...

Fonction "=MOYENNE" pour la moyenne et mise en forme conditionnelle pour les couleurs. :ccool:

Cordialement,
Kimy
11/12/2014, 17h18
gaever

Obligé de passer par la VBA...

Bonjour,

Kimy_Ire a raison avec, en plus une mise en forme conditionnelle pour la couleur. Sinon :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Calcul_Moyenne()
    Dim C As Range
    'résultat en A1
    Range("A1") = Application.Average(Range("C2:C12"))
    For Each C In Range("C2:C12")
        If C.Value > Range("A1") Then
            C.Interior.ColorIndex = 3
        Else
            C.Interior.ColorIndex = 43
        End If
    Next C
End Sub

11/12/2014, 17h57
gaever

Un grand merci Daniel, le code fonctionne bien mis à appart que tout est coloré en vert, avez vous la solution à ceci ?
Merci d'avance
bien à vous
Gaëtan
11/12/2014, 18h14
Daniel.C

1 pièce(s) jointe(s)

C'est que toutes les valeurs sont en dessous de la moyenne :P

Regarde le classeur : Pièce jointe 163633
11/12/2014, 18h20
gaever

1 pièce(s) jointe(s)

Voici un screenshot et elles sont toutes en vert malgré le fait que certaine soit au dessus :)
Pièce jointe 163636
11/12/2014, 18h53
Daniel.C

Bizarre...
Tu as peut être une mise en forme conditionnelle sur la colonne C ? Sinon, mets ton classeur - sans données confidentielles en pièce jointe.

Fuseau horaire GMT +2. Il est actuellement 08h22.