Bonsoir à tous,
Avec les exemples que j’ai trouvé sur le site j’ai pu mettre en place avec VBA une macro de une mise en forme conditionnelle avec des intervalles de couleurs (5).
Cependant la MFC ne se fait pas car la cellule (C1) contient une formule (=A1*B1).
Es ce que quelqu’un serait résoudre ce problème ?
Merci.
PS :
Private Sub Worksheet_Change(ByVal Target As Range)
'délimitation de l'élèvenement
If Intersect(Target, Range("A1:U44")) Is Nothing Then: Exit Sub
'exclusion si cellule vide ou non numérique ou de couleur grise
If Not IsNumeric(Target) Or IsEmpty(Target) Then: Exit Sub
Select Case Target.Value
Case Is < 100
Target.Interior.ColorIndex = 35 'vert clair
Case 100 To 199
Target.Interior.ColorIndex = 4 'vert
Case 200 To 299
Target.Interior.ColorIndex = 36 'jaune clair
Case 300 To 399
Target.Interior.ColorIndex = 40 'brun
Case 400 To 499
Target.Interior.ColorIndex = 45 'orange
End Select
End Sub
Avec les exemples que j’ai trouvé sur le site j’ai pu mettre en place avec VBA une macro de une mise en forme conditionnelle avec des intervalles de couleurs (5).
Cependant la MFC ne se fait pas car la cellule (C1) contient une formule (=A1*B1).
Es ce que quelqu’un serait résoudre ce problème ?
Merci.
PS :
Private Sub Worksheet_Change(ByVal Target As Range)
'délimitation de l'élèvenement
If Intersect(Target, Range("A1:U44")) Is Nothing Then: Exit Sub
'exclusion si cellule vide ou non numérique ou de couleur grise
If Not IsNumeric(Target) Or IsEmpty(Target) Then: Exit Sub
Select Case Target.Value
Case Is < 100
Target.Interior.ColorIndex = 35 'vert clair
Case 100 To 199
Target.Interior.ColorIndex = 4 'vert
Case 200 To 299
Target.Interior.ColorIndex = 36 'jaune clair
Case 300 To 399
Target.Interior.ColorIndex = 40 'brun
Case 400 To 499
Target.Interior.ColorIndex = 45 'orange
End Select
End Sub