format conditionnel en VB

[erdal]

bonjour,

je souhaite faire une mise en forme conditionnelle, mais avec 5 conditions et non pas seulement 3.
Est-ce faisable en VB?

Je voudrais faire en sorte que les cellules A2, B5 et C3 se colore en :
- rouge si la valeur dans la cellule est comprise entre 0.6 et 1
- orange si la valeur est comprise entre 0.3 et 0.6
- gris si la valeur est comprise entre -0.3 et 0.3
- bleu clair si la valeur est comprise entre -0.6 et -0.3
- bleu foncé si la valeur est comprise entre -06 et -1

Merci de votre aide, je debute en Excel et surtout en VB.

Erdal

 

[Hervé]

bonjour erdal

peut etre comme ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range('A2,B5,C3')) Is Nothing Then
        Select Case Target
                Case 0.6 To 1: Target.Interior.ColorIndex = 3
                Case 0.3 To 0.6: Target.Interior.ColorIndex = 45
                Case -0.3 To 0.3: Target.Interior.ColorIndex = 15
                Case -0.6 To -0.3: Target.Interior.ColorIndex = 33
                Case -1 To -0.6: Target.Interior.ColorIndex = 5
        End Select
End If

End Sub

a placer dans le module de ta feuille, clique droit sur le nom de ton onglet, puis visualiser le code.

salut

 

[pierrejean]

bonjour erdal
salut Hervé

si je puis me permettre il est peut-etre bon de traiter les cas >1 et <-1

ce que j'ais fait (mais de façon moins elegante) [file name=conditions_20060607150008.zip size=6939]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/conditions_20060607150008.zip[/file]

 

[erdal]

 

[erdal]

je vous remercie tout les deux. ca fonctionne bien, mais j'ai encore un petit probleme.

La valeur contenue dans la cellule n'est pas tapée tel quel par l'utilisateur, mais provient d'une formule.

Ainsi si je tape 0.5 dans ma cellule votre solution fonctionne, mais si je tape =(R4+F3)/2 ca ne fonctionne plus...
Y'a t'il une solution?
merci mille fois

 

[pierrejean]

re erdal

voi si cela te convient cette fois

en attendant la version (probablement meilleure) de Hervé [file name=conditions_20060607184638.zip size=8098]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/conditions_20060607184638.zip[/file]

 

[erdal]

parfait!
Merci beaucoup!
A tres bientot