salut bonjour je peux savoir qui peux m'aider sur ce code j'ai un probléme quand la valeurs dans le formulaire de la liste déroulante est Fissuration Peu Préjudiciable alors ça marche mais quand c'est différent ça ne marche pas svp aider moi
Voila le code
Private Sub liste_fissuration_Change()
[B2] = liste_fissuration.Value
If (liste_fissuration.Value = "Fissuration Peu Préjudiciable") Then
sigma_s.Value = Fe.Value
ElseIf (liste_fissuration.Value = "Fissuration Préjudiciable") Then
sigma_s.Value = Application.WorksheetFunction.Min(((2 / 3) * Fe.Value), (110 * (1.6 * Ftj.Value) ^ (1 / 2)))
ElseIf (liste_fissuration.Value = "Fissuration Très Préjudiciable") Then
sigma_s.Value = Application.WorksheetFuction.Min(0.5 * Fe.Value, 90 * (1.6 * Ftj.Value) ^ (0.5))
Else
sigma_s.Value = 0
End If
End Sub