Select Case CCur(prix.Text)' le prix est sous forme numérique sans utiliser la notation scientifique
Case Is <= 0.3
marge.Caption = "4,50"
Case Is <= 0.8
marge.Caption = "3,25"
Case Is <= 1.5
marge.Caption = "2,80"
Case Is <= 3
marge.Caption = "2,50"
Case Is <= 6
marge.Caption = "2,25"
.................
End Select