Sujet Précédent Sujet Suivant

Excel 2007: comment faire une mise en forme

Résolu/Fermé
losss Messages postés 37 Date d'inscription mardi 31 octobre 2006 Statut Membre Dernière intervention 9 juillet 2014 - 15 juil. 2007 à 11:21
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 - 16 juil. 2007 à 10:25
Bonjour,

Je ne trouve pas comment faire une mise en forme conditionnelle pour que dans une colonne (A1 et A50), les cellules dont les valeurs sont comprises entre:
0,1 et 9,9 apparaissent en fond rouge
10 et 19,9 apparaissent en fond jaune
20 et 29,9 apparaissent en fond vert
30 et 39,9 apparaissent en fond jaune
40 et 50 apparaissent en fond rouge

Merci pour votre aide.
A voir également:

3 réponses

Réponse 1 / 3
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
15 juil. 2007 à 22:50
bonjour

Les mises en forme conditionnelles sot limitées à trois conditions !

il suffit de sélectionner ta plage et d'indiquer que la valeur est comprise entre les bornes,
avec le menu de mise en forme conditionnelle à trouver dans les nouveaux menus.
0
Réponse 2 / 3
qmike Messages postés 1509 Date d'inscription mardi 19 juillet 2005 Statut Membre Dernière intervention 18 juin 2012 594
16 juil. 2007 à 07:30
bonjour
sauf si tu passe par VBA
regarde ici
Colorier les cellules sous conditions
[Dans cet exemple : Attribuer une couleur dès l'entrée de certains mots]

http://bvrve.club.fr/Astuces_Michel/05excelvba.php
0
Réponse 3 / 3
gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 712
16 juil. 2007 à 10:25
bonjour

Entièrement d'accord avec toi mais comme tu avais parlé de MFC...

Alors, voici une macro à copier / coller dans ta feuille concernée en VBA
(Alt + F11 puis sélection de la feuille et coller après copie du code suivant) 

Public Sub Worksheet_Change(ByVal sel As Range)
If Not Intersect(sel, Range("A:A")) Is Nothing Then
    Dim l As Double
    For l = Cells(65536, 1).End(xlUp).Row To 1 Step -1
        Select Case Cells(l, 1)
            Case 0.1 To 9.9, 40 To 50
                Cells(l, 1).Interior.ColorIndex = 3
            Case 10 To 19.9, 30 To 39.9
                Cells(l, 1).Interior.ColorIndex = 6
            Case 20 To 29.9
                Cells(l, 1).Interior.ColorIndex = 4
        End Select
    Next l
End If
End Sub


Dès que tu modifies une cellule de la colonne A la mise en forme s'effectue.

En fait comme tu n'as que 3 mises en forme, tu peux aussi le faire en MFC

Tu choisis "la formule est" et tu saisis :
condition 1
=OU(ET(A1>0,1;A1<10);(ET(A1>=40;A1<=50))) pour le premier en rouge
condition 2
=OU(ET(A19>=10;A19<=19,9);(ET(A19>=30;A19<=39,9))) pour le jaune
condition 3
=ET(A1>=20;A1<=29,9) pour le vert

Merci de me faire part de ton choix.
0