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 51
| Sub couleuretiquette(lettre As String, Ep As Range)
MsgBox lettre
With Ep
Select Case lettre
Case Is = "A"
.Interior.ColorIndex = 10
Case Is = "B"
.Interior.ColorIndex = 50
Case Is = "C"
.Interior.ColorIndex = 43
Case Is = "D"
.Interior.ColorIndex = 44
Case Is = "E"
.Interior.ColorIndex = 45
Case Is = "F"
.Interior.ColorIndex = 46
Case Is = "G"
.Interior.ColorIndex = 3
End Select
End With
End Sub
Function etiquetteDPE(Ep As Range) As String
Select Case Ep.Value
Case Is <= 80
etiquetteDPE = "A"
Case 80.000001 To 120
etiquetteDPE = "B"
Case 120.000001 To 180
etiquetteDPE = "C"
Case 180.000001 To 230
etiquetteDPE = "D"
Case 230.000001 To 330
etiquetteDPE = "E"
Case 330.000001 To 450
etiquetteDPE = "C"
Case Else
etiquetteDPE = "G"
End Select
Dim lettre As String
lettre = etiquetteDPE
Call couleuretiquette(lettre, Ep)
End Function |