fonction vba utilisant Case
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:
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 |