Pb :MFC dans une cellule contenant un formule

WorkHard

XLDnaute Nouveau
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
 

Discussions similaires

  • Résolu(e)
Microsoft 365 pb formule vba
Réponses
15
Affichages
719