Discussion :

[bernard38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Worksheet_Calculate()
 
If Range("J1").Value < 10 Then
    MsgBox "ATTENTION"
End If
 
End Sub

[bernard38]

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

[jfontaine]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[bernard38]

Bjr,
Merci Bbil pour cette explication.
Cdt