Dim classe, classemax As Variant
Dim resultat1 As Integer, resultat2 As Integer
Sub test()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
classe = FCLASSE(resultat1)
classemax = FCLASSE2(resultat2)
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Function FCLASSE(nom_classe As Variant)
FCLASSE = Switch(nom_classe <= 45, "Classe A", nom_classe <= 75, "Classe B", nom_classe <= 85, _
"Classe C", nom_classe <= 100, "Classe D", nom_classe <= 155, "Classe E", _
nom_classe <= 225, "Classe F", nom_classe <= 280, "Classe G", _
nom_classe <= 355, "Classe H", nom_classe > 355, "Classe I")
End Function
Function FCLASSE2(nom_classeMax As Variant)
FCLASSE2 = Switch(nom_classeMax <= 45, "Classe A", nom_classeMax <= 75, "Classe B", nom_classeMax <= 85, _
"Classe C", nom_classeMax <= 100, "Classe D", nom_classeMax <= 155, "Classe E", _
nom_classeMax <= 225, "Classe F", nom_classeMax <= 280, "Classe G", _
nom_classeMax <= 355, "Classe H", nom_classeMax > 355, "Classe I")
End Function