format conditionnel en VB

Hervé

XLDnaute Barbatruc

• 7 Juin 2006

• #2

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

Cliquez pour agrandir...

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

salut

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Juin 2006

• #3

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]

 

Pièces jointes

• conditions_20060607150008.zip

  6.8 KB · Affichages: 21

Vote positif 0 Vote négatif

E

erdal

Guest

• 7 Juin 2006

• #4

 

Vote positif 0 Vote négatif

E

erdal

Guest

• 7 Juin 2006

• #5

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 7 Juin 2006

• #6

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]

 

Pièces jointes

• conditions_20060607184638.zip

  7.9 KB · Affichages: 24

Vote positif 0 Vote négatif

E

erdal

Guest

• 8 Juin 2006

• #7

parfait!
Merci beaucoup!
A tres bientot

 

Vote positif 0 Vote négatif