Bonjour,
je suis une débutante et je n'arrive pas à faire cette fonction :
une condition et deux instructions :
si chiffre d'affaires inférieur à (montant)
instruction 1 : écrire une appréciation -
instruction 2 : colorer la cellule d'une certaine couleur
Mes appréciations fonctionnent mais je n'ai que du rouge en couleur de fond de mes cellules.
Quelqu'un peut-il me dire ce qui cloche dans mon script ?
le voici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 Function COMMENTAIRE(CA As Single) As String If (CA < 80000) Then COMMENTAIRE = "Campagne publicitaire à revoir": [Selection.Interior.ColorIndex = 41] ElseIf (CA < 160000) Then COMMENTAIRE = "Campagne de promotion sur six mois": [Selection.Interior.ColorIndex = 3] ElseIf (CA < 240000) Then COMMENTAIRE = "Accessoires gratuits pendant trois mois": [Selection.Interior.ColorIndex = 10] ElseIf (CA < 320000) Then COMMENTAIRE = "5% sur la gamme pendant trois mois": [Selection.Interior.ColorIndex = 15] ElseIf (CA < 400000) Then COMMENTAIRE = "Produit d'excellence": [Selection.Interior.ColorIndex = 20] ElseIf (CA > 400000) Then COMMENTAIRE = "Elu produit de l'année": [Selection.Interior.ColorIndex = 40] End If End Function
merci d'avance![]()
Partager