Bonjour,

voila j'ai un petit problème, je maitrise pas trop mal les macros maintenant grâce à ce titre... mais je me lance maintenant dans les fonctions.

J'en ai créé une qui ne fonctionne pas du tout et je ne comprends pas pourquoi.
Enfin, je pense qu'il y a un problème de type de donnée mais je ne suis pas sûre.

Voila ce que je veux faire!
L'argument de ma fonction Ep est une cellule.
La fonction doit regarder le contenu de la cellule et en fonction de son contenu, elle doit afficher dans la case une lettre "A", "B"...

Voici mon code, pouvez vous me dire si vous avez une idée du pourquoi du comment faire cela.

Je vous remercie,
bonne journée,

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Function etiquetteDPE(Ep As Range)
 
etiquetteDPE = ""
MsgBox etiquetteDPE
 
If Ep.Value <= 80 Then
etiquetteDPE = "A"
Ep.Select
ActiveCell.Interior.ColorIndex = 10
End If
 
If Ep.Value <= 120 And Ep.Value > 80 Then
etiquetteDPE = "B"
Ep.Select
ActiveCell.Interior.ColorIndex = 50
End If
 
If Ep.Value <= 180 And Ep.Value > 120 Then
etiquetteDPE = "C"
Ep.Select
ActiveCell.Interior.ColorIndex = 43
End If
 
If Ep.Value <= 230 And Ep.Value > 180 Then
etiquetteDPE = "D"
Ep.Select
ActiveCell.Interior.ColorIndex = 44
End If
 
If Ep.Value <= 330 And Ep.Value > 230 Then
etiquetteDPE = "E"
Ep.Select
ActiveCell.Interior.ColorIndex = 45
End If
 
If Ep.Value <= 450 And Ep.Value > 330 Then
etiquetteDPE = "F"
Ep.Select
ActiveCell.Interior.ColorIndex = 46
End If
 
If Ep.Value > 450 Then
etiquetteDPE = "G"
Ep.Select
ActiveCell.Interior.ColorIndex = 3
End If
 
 
 
End Function
PS: je voulais également mettre la cellule en couleur suivant le contenue de EP!