Bonjour,
Tu peux utiliser la fonction VBA suivante avec une structure SELECT CASE.
Si tu dois utiliser d'autres termes avec d'autres valeurs il suffit de les ajouter dans la structure
Public Function ConversionRisque(MOT As Variant) As Variant
MOT = UCase(MOT)
Select Case MOT
Case "RARE", "MINEUR"
ConversionRisque = 1
Case "PROBABLE"
ConversionRisque = 2
Case "CERTAIN", "CRITIQUE"
ConversionRisque = 3
Case Else
ConversionRisque = Null
End Select
End Function
Voir fichier joint ci-joint
Si tu dois utiliser d'autres termes avec d'autres valeurs il suffit de les ajouter dans la structure
Exemple avec le mot "Majeur" qui serait associé à la valeur 4
Public Function ConversionRisque(MOT As Variant) As Variant
MOT = UCase(MOT)
Select Case MOT
Case "RARE", "MINEUR"
ConversionRisque = 1
Case "PROBABLE"
ConversionRisque = 2
Case "CERTAIN", "CRITIQUE"
ConversionRisque = 3
Case "MAJEUR"
ConversionRisque = 4
Case Else
ConversionRisque = Null
End Select
End Function
Cordialement,