fonction personnalisée renvoyant valeur et format

[Romain31]

Bonjour à tous,

Voici une petite fonction qui me renvoie la valeur 2 si les conditions sont réunies.

Public Function Suivi(Tauxhor, Nbrjours)
If (Tauxhor = "37h02") And Nbrjours >= 37 Then Suivi = 2

Mais, et là je bloque, je souhaite mettre cette cellule en rouge (et dans ce cas je renverrai une valeur vide avec suivi ="")

Comment coder dans ce cas Interior.ColorIndex = 3

Merci pour votre aide

Romain

 

[JCGL]

Re : fonction personnalisée renvoyant valeur et format

Bonjour à tous,

Peux-tu essayer ceci :

Option Explicit


Public Function Suivi(Tauxhor, Nbrjours)
If (Tauxhor = "37h02") And Nbrjours >= 37 Then
Suivi = 2
ActiveCell.Interior.ColorIndex = 3
End If
End Function

A + à tous

 

[Romain31]

Re : fonction personnalisée renvoyant valeur et format

Merci JCGL,
Cela me renvoie bien 2 mais le fond de la cellule reste blanc, hélas...