Bonjour à tous

dans un unserform, j'ai 3 textbox pour caler une pente en % à partir d'un angle en degrés

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Sub TextBox3_Change()
Dim angle As Double, angle2 As Double
     angle = CDbl(TextBox3.Value)
     angle2 = WorksheetFunction.Radians(angle)
     TextBox4.Value = angle2
     TextBox5.Value = Format(Tan(angle2), "0.00%")
End Sub
ce code fonctionne bien et me donne les bonnes valeurs

sauf que si je veux supprimer la valeur dans textbox3 (à partir de laquelle s'effectue le calcul) au moment où la textbox est vide, j'obtiens une erreur 13 incompatibilité de type

comment contourner ce problème

merci pour vos idées