problème sur textbox_change

Bonjour à tous

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

Code:

---

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

Bonjour Pierre,

Plutôt que l'évènement Change, je te conseille l'évènement Exit
Change se recalcule à chaque caractère tapé
Pour éviter le plantage, tu dois vérifier que textbox3 n'est pas vide avant de faire tes calculs
du genre

Code:

---

1 2 3 4 5 6 7

Dim angle As Double, angle2 As Double if textbox3.text<>"" then angle = CDbl(TextBox3.Value) angle2 = WorksheetFunction.Radians(angle) TextBox4.Value = angle2 TextBox5.Value = Format(Tan(angle2), "0.00%") end if

---

Bonjour tototiti2008

avec l'événement change, le calcul se fait effectivement au fur et a mesure, c'est pas mal

avec ton bout de code ça marche à merveille
merci