Augmenter les mises en forme conditionnelles

Fermé
Phil - 16 juin 2008 à 17:17
 B. - 16 juin 2008 à 17:52
Bonjour à tous,
Je travail sous excel 2003 et suis bloqué dans le développement d'un fichier car je ne réussi pas à augmenter le nombre de mises en forme conditionnelles. Pour bien faire, il faudrai que je puisse aller de 6 à 10 possibilités.
Dans un tableau je dois changer la couleur de fond des cellules en fonction du chiffre inscrit allant jusqu'à 10. Les cellules sont positionnées en colonnes mais ne sont pas contigues.
J'espère avoir été suffisament claire et vous remercie d'avance de l'aide que vous pourrez m'apporter
Phil
A voir également:

1 réponse

Salut

une solution :

tu cliques sur format/styles...

tu écris "MFC+" (sans les ") dans la liste déroulante (je te conseille de décocher toutes les cases pour ne pas polluer) et tu cliques sur ajouter

tu clic droit sur l'onglet de ta feuille et choisi "visualiser le code"
tu clooes le code ci-dessous dans la fenetre qui s'affiche :

Private Sub Worksheet_Change(ByVal Target As Range)
For Each o In UsedRange
If o.Style = "MFC+" And o.Value <> "" Then
Select Case o.Value
Case Is > 0
o.Interior.ColorIndex = Int(o.Value)
Case Is > 1
o.Interior.ColorIndex = Int(o.Value)
Case Is > 2
o.Interior.ColorIndex = Int(o.Value)
Case Is > 3
o.Interior.ColorIndex = Int(o.Value)
Case Is > 4
o.Interior.ColorIndex = Int(o.Value)
Case Is > 5
o.Interior.ColorIndex = Int(o.Value)
Case Is > 6
o.Interior.ColorIndex = Int(o.Value)
Case Is > 7
o.Interior.ColorIndex = Int(o.Value)
Case Is > 8
o.Interior.ColorIndex = Int(o.Value)
Case Is > 9
o.Interior.ColorIndex = Int(o.Value)
End Select
End If
Next
End Sub

ensuite, tu fermes l'editeur, tu sélectionnes les cellules auxquelles tu veux appliquer cette mise en forme, et tu clic sur Format/styles..., et tu choisis MFC+

;)
0