Discussion :

[Pierre67]

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

[tototiti2008]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre67]

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