Bonjour,
J'ai un souci avec la fonction ci-dessous qui compare la valeur d'une cellule à un barème, et insère un coefficient dans une autre cellule selon les cas.
Je dois etre à coté de la solution, mais je ne la vois pas. Merci d'avance du coup de main.

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
Public Function PL(ByVal target As Range) As Variant
    Application.Volatile
    PL = target.Value
    Select Case PL
    Case 0 To 1000000
    ActiveCell.Value = 1
    Case 1000000 To 1500000
    ActiveCell.Value = 1.2
    Case 1000000 To 1500000
    ActiveCell.Value = 1.3
    Case 1500000 To 2000000
    ActiveCell.Value = 1.4
    Case 2000000 To 2500000
    ActiveCell.Value = 1.5
    Case 2500000 To 3000000
    ActiveCell.Value = 1.6
    Case 3500000 To 4000000
    ActiveCell.Value = 1.7
    Case 4000000 To 4500000
    ActiveCell.Value = 1.8
    Case 4500000 To 5000000
    ActiveCell.Value = 1.9
    Case Else
    ActiveCell.Value = 2
    End Select
End Function