filtrer une MFC ???

[macpoy]

Bonsoir le forum,

la fonction couleurtype que Celeda m'a fait découvrir, ne fonctionne pas sur des mises en forme conditionnelles. je suis sur qu'un excellien de passage, doit trouver la solution.

Function CouleurType(Cell As Range)
CouleurType = Cell.Interior.ColorIndex
End Function

ci-joint un exemple de ce que je souhaites réaliser.
merci d'avance pour votre aide.

 

[tatiak]

Bonsoir,
et pourquoi ne pas utiliser une fonction évènementielle pour colorer la cellule, du genre :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 6 Then
If DateValue(Now()) > Cells(Target.Row, Target.Column + 1) - 15 Then
Cells(Target.Row, Target.Column + 1).Interior.ColorIndex = 44
Else
Cells(Target.Row, Target.Column + 1).Interior.ColorIndex = xlNone
End If
End If
End Sub

(déclenchée après saisie sur colonne F)

du coup la cellule adjacente est effectivement colorée et le test CouleurType fonctionne

 

[tatiak]

oups, l'exemple modifié n'a pas suvi la première fois!

 

[macpoy]

Re le forum, bonsoir Tatiak,
merci beaucoup pour ton aide, il ne me reste plus qu'a l'adapter à l'enorme classeur que je suis entrain de développer grâçe aux excelliens comme toi.
merci beaucoup @ +