mise en forme conditionnelle

Tibo

XLDnaute Barbatruc

• 19 Août 2012

• #2

Re : mise en forme conditionnelle

Bonjour,

Faute de fichier joint, je te propose une formule à adapter :

Code:

 =ET(moyenne>10;NB.SI(notes;"<5")=0)

moyenne : correspond à la cellule contenant la moyenne (on peut aussi mettre directement la formule de calcul de cette moyenne)

notes : correspond à la plage de cellules contenant les notes.

@+

 

Vote positif 0 Vote négatif

D

darkfire

Guest

• 19 Août 2012

• #3

Re : mise en forme conditionnelle

En fait ce n est pas ça que je veux, je veux que ça calcule dans tous les cas

Je veux juste qu elle se colorie en vert si
Moy>10 et aucune note inf à 5

En rouge si
Si moyenne. Inf à 10
Ou
Moy sup à 10 mais au moins un note inf à 5

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 19 Août 2012

• #4

Re : mise en forme conditionnelle

Bonjour,

Difficile de trouver une solution sans fichier !

Toutefois avec une macro :

Code:

sub essai()
for each C in range(" Tableau")
 if C > 10 and C > 5 then
  C.interior.Colorindex = 43
elseif C > 10 and C < 5 then
  C.interior.Colorindex = 3
elseif C < 10 then
  C.interior.Colorindex = 3
end if
next
end sub

range("Tableau") est le Tableau nommé
> 10 & > 5 = VERT
> 10 & < 5 = ROUGE
< 10 = ROUGE

TOUTEFOIS la moyenne 10 n'est pas coloriée puisqu'elle n'est pas précisée !

Enfin la présentation du tableau permettra de différencier les Moyennes et les Notes afin de modifier peut-être cette macro !

A tester !

 

Dernière édition: 19 Août 2012

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 19 Août 2012

• #5

Re : mise en forme conditionnelle

re,

Un petit bout de fichier exemple nous aiderait à t'aider...

la condition indiquée ci-dessus correspond à la couleur verte.

Pour la couleur rouge :

Code:

=OU(moyenne<10;ET(moyenne>10;NB.SI(notes;"<5")>0))

Je te laisse adapter

@+

 

Vote positif 0 Vote négatif

D

darkfire

Guest

• 19 Août 2012

• #6

Re : mise en forme conditionnelle

Merci à tous

Je suis au boulot et je suis sur le forum via mon smartphone

Je vous envoie le fichier des que j ai un pc avec internet ( mardi matin)

Merci à vous

 

Vote positif 0 Vote négatif

JBARBE

XLDnaute Barbatruc

• 19 Août 2012

• #7

Re : mise en forme conditionnelle

A titre d'exemple voici un fichier accompagné d'une macro ci_jointe :

Code:

Sub essai()
Dim i As Integer
Dim Klr As Byte
 
With Worksheets("Feuil1")
    For i = 2 To 5
        If .Cells(i, 10) >= 10 And Application.CountIf(.Range("B" & i & ":I" & i), "<" & 5) = 0 Then
            Klr = 43
        Else
            Klr = 3
        End If
        .Cells(i, 10).Interior.ColorIndex = Klr
    Next i
End With
End Sub

 

Pièces jointes

• Notes.xls

  59 KB · Affichages: 29
• Notes.xls

  59 KB · Affichages: 35
• Notes.xls

  59 KB · Affichages: 37

Dernière édition: 19 Août 2012

Vote positif 0 Vote négatif