Dim cote As Double, resultat as string cote = val(txtCote.text) Select Case cote Case Is <= 10 resultat = "0,15" Case Is <= 15 resultat = "0,20" Case Is <= 30 resultat = "0,25" Case is <= 45 resultat = "0,30" Case Is <= 60 resultat = "0,40" Case else resultat = "Depassement" End Select
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim cote As Double 10 cote = txtCote 20 Select Case cote Case Is <= 10 30 resultat = "0,15" 40 Case Is <= 15 And cote > 10 50 resultat = "0,20" 60 Case Is <= 30 And cote > 15 70 resultat = "0,25" 80 Case Is <= 45 And cote > 30 90 resultat = "0,30" 100 Case Is <= 60 And cote > 45 110 resultat = "0,40" 120 Case Is > 60 130 resultat = "Depassement" 140 End Select