problème mise en forme conditionnelle selon résutat de fonction

[ckoebel5]

Bonjour au forum,

J'ai tapé le code suivant mais il ne fait pas le résultat escompté

  With Cel.FormatConditions.Add(Type:=xlExpression, Formula1:="=INDEX(DiffDate;EQUIV(" & P & ";Places;0))=""0""")
                    .Font.Italic = True   
                    .Font.Color = -16776961      
                    .Font.Underline = xlUnderlineStyleSingle
                    .Font.Bold = True

Le but étant que sur une feuille certaines cellules aient une mise en forme spéciale selon le résultat d'une fonction (qui est "=SIERREUR( AUJOURDHUI()-I21;"") " situé dans la plage DiffDate sur une autre feuille. Mais il ne se passe rien...

J'ai essayé diverses choses, en particulier lorsque à la place de la fonction, je met le nombre "0" en texte ça marche. Donc je pense que si je parviens à faire en sorte que la fonction donne son résultat en texte ça devrait marcher... mais comment faire?

J'ai aussi mis les cellules où sont stockés les résultats de la fonction au format texte mais rien y fait

Merci à vous!

 

[Gurgeh]

Re : problème mise en forme conditionnelle selon résutat de fonction

Salut ckoebel5,

mais comment faire?

Je te propose de commencer par nous mettre un fichier joint avec un exemple de ce que tu veux, c'est plus facile pour réfléchir...

Gurgeh

 

[tototiti2008]

Re : problème mise en forme conditionnelle selon résutat de fonction

Bonjour ckoebel, Bonjour Gurgeh,

Peut-être, mais sans conviction

With Cel.FormatConditions.Add(Type:=xlExpression, Formula1:="=INDEX(" & range("DiffDate").value & ";EQUIV(" & P & ";Places;0))=""0""")
                    .Font.Italic = True   
                    .Font.Color = -16776961      
                    .Font.Underline = xlUnderlineStyleSingle
                    .Font.Bold = True

Si pas ça, donne nous un bout de fichier
Attention, DiffDate est le nom d'une fonction VBA, parfois ça peut être délicat même si là je pense que ça doit passer