Gerer une cellule contenant une formule

Bjr,

J'ai un code pour declencher une alerte quand une cellule est rouge mais la cellule contient une formule et est soumise à un format conditionnel.Donc mon code ne foctionne pas peut-on contourner?

mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_Change(ByVal Target As Range) Dim mess As String   If Target.Address = "$J$1" Then If Range("J1").Interior.ColorIndex = 3 Then MsgBox "ATTENTION" 'mess = InputBox("ATTENTION!")   End If End If End Sub

---

la cellule contient "=NB.SI(Q6:Q45;"=t")"
et devient rouge si < à10
Cdt

Bonjour,

Je ne comprend pas bien l'utilisation de Worksheet_Change au vue de tes explications

Est ce cela que tu souhaites => Si J1 < 10 alors message

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Calculate()   If Range("J1").Value < 10 Then MsgBox "ATTENTION" End If   End Sub

---

Bjr,
Oui si la cellule est inf à 10 ou si elle est rouge:
le pb c'est qu'elle change de valeur par une formule et de couleur par format conditionnel donc ma macro ne fonctionne pas
Cdt

Dans ce cas utilise ce code (Evenement Calculate de la feuille)

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Calculate()   If Range("J1").Value < 10 and Range("J1").Interior.Colorindex=3 Then MsgBox "ATTENTION" End If   End Sub

---

oui à priori tu cumule 2 problèmes :

- Tu ne peu pas tester directement la couleur d'une cellule modifiée par une MFC
- La fonction événementielle Worksheet_change, n'est pas déclenchée par les résultats d'une formule

et donc une solution , tu détecte un changement dans une des cellules "sources" de ta formule" et tu contrôle directement la valeur dans ta "cellule formule" ... :

Code:

---

1 2 3 4 5 6 7

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Me.Range("Q6:Q45")) Is Nothing Then If Me.Range("J1") < 10 Then MsgBox "Attention" End If End If End Sub

---

Bjr,
Merci Bbil pour cette explication.
Cdt