Forme condition - Comment faire 3 condition Résolu/Fermé

Question

Bonjour,


Je maitrise bien la fonction "Format conditionnel" mais comment faire lorsque l'on a + de 3 conditions?

Imaginons : 
=A => Rouge
=B => Bleu
=C => Vert
=D => Orange

merci pour votre aide  :-)

anne-sophie

g · Answer

Bonjour,

Tu peux utiliiser le code VBA http://gerard.g.pagesperso-orange.fr/logexl_09.htm#mise_forme_cond

Bonne soirée.

eriiic · Answer

Bonjour,

ou bien tout mettre en fond orange et ne tester que A B C
eric

Raymond PENTIER · Answer

Tu peux aussi passer à Excel 2007 ...

eriiic · Answer

Bonjour,

Ce n'est pas 4 tests que tu as à faire mais plus, comme quoi il est important d'être précis dans une question...
Au passage tu as ElseIf qui existe et qui évite d'avoir 15 End If à la fin...

Ce qui est très long c'est de lire une cellule. Donc met cells(i,j) dans une variable au début et teste cette variable.
Ou mieux utilise la structure select case :
Select case cells(i,j)
case "A"
  faire ceci
case "B"
  faire celà
....etc
case else
 'sinon faire ça
end select

Si ce n'est tjs pas assez rapide il faut lire d'un bloc toute la plage dans une variable tableau et tester sur ce tableau.

Maintenant tes C, Cp, M,... sont-ils le résultat d'une formule ou d'une saisie ?
Si c'est le résultat d'une saisie tu as la cellule concernée dans Target. Dans ce cas plus besoin de boucle sur toutes les cellules et remplacer Cells(i, j). par Target.

eric

anne-sof · Answer

Bonjour eric,

Merci pour ton aide,
Ca marche nettement mieux et c'est plus lisible :

Par contre, voici cela necessite : 
1. tu saisis ton code (ex : C)
2. tu fais entrer ou suivant
3. il faut revenir sur la cellule pour que celle-ci se colorie

Y-at-il un truc pour que cela se colorie en meme temps lorsque l'on change de cellule?

voici le script :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   Dim Plage As Range
    
    Set Plage = Range("G15:HZ75")
   
    Select Case (Target.Value)
        Case "C": Target.Interior.ColorIndex = 4
        Case "Cp": Target.Interior.ColorIndex = 45
        Case "M": Target.Interior.ColorIndex = 3
        Case "Su": Target.Interior.ColorIndex = 8
        Case "Sc": Target.Interior.ColorIndex = 33
        Case "F": Target.Interior.ColorIndex = 5
        Case "": Target.Interior.ColorIndex = 2
    End Select
   
End Sub

eriiic · Answer

et si tu répondais à la question Maintenant tes C, Cp, M,... sont-ils le résultat d'une formule ou d'une saisie ?

eriiic · Answer

Utilise l'evenement Change plutôt que SelectionChange, 
et si tu veux que la macro n'agisse que sur la plage G15:HZ75 ajoute If intersect....then...

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("G15:HZ75")) Is Nothing Then Exit Sub
    Select Case (Target.Value)
    Case "C": Target.Interior.ColorIndex = 4
    Case "Cp": Target.Interior.ColorIndex = 45
    Case "M": Target.Interior.ColorIndex = 3
    Case "Su": Target.Interior.ColorIndex = 8
    Case "Sc": Target.Interior.ColorIndex = 33
    Case "F": Target.Interior.ColorIndex = 5
    Case "": Target.Interior.ColorIndex = 2
    End Select
End Sub

eric

g · Answer

Bonjour,

La solution d' eriiic est à conjuguer au "plus que parfait"....

Concernant la couleur "blanc" des cellules vidées, il est préférable d'utliser 

Case "": Target.Interior.ColorIndex = xlNone

afin de conserver le quadrillage.

Bonne journée.

Forme condition - Comment faire > 3 condition

8 réponses

Discussions similaires