Bonjour à tous,
J'aimerai appliquer un style différent en fonction des tests de a fonction.
Celon le résultat des tests, la fonction aura un style ou un autre. Voici le code:
Je ne sais pas comment faire référence à la cellule ou se trouve la fonction. j'ai déjà cherché mais je n'ai rien trouvé.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 Function PrixAnnee(poste, annee) If annee Mod Worksheets("données").Cells(2 + poste, 7) = 0 Then PrixAnnee = Worksheets("données").Cells(2 + poste, 9) 'ici il faut appliquer le style 1 Exit Function End If If annee Mod Worksheets("données").Cells(2 + poste, 4) = 0 Then PrixAnnee = Worksheets("données").Cells(2 + poste, 6) 'ici il faut appliquer le style 2 Else PrixAnnee = "" End If End Function
Merci d'avance
Partager