mise en forme conditionnelle

[darkfire]

Bonjour

Je suis en train de faire un tableau avec des notes et des moyennes par candidats

Je souhaiterais que la case se colorie si moyenne >10 ET si aucune note <5

Merci

 

[Tibo]

Re : mise en forme conditionnelle

Bonjour,

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

 =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.

@+

 

[darkfire]

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

 

[JBARBE]

Re : mise en forme conditionnelle

Bonjour,

Difficile de trouver une solution sans fichier !

Toutefois avec une macro :

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 !

 

[Tibo]

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 :

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

Je te laisse adapter

@+

 

[darkfire]

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

 

[JBARBE]

Re : mise en forme conditionnelle

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

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