Erreur d'execution 13 incompatibilité de type

Bonsoir

un message erreur de temps en temps apparaître dans mon VBA

merci

Dépassement de capacité

Private Sub CH_EX4_Change()
Dim A As Integer
Dim B As Integer
Dim C As Integer
Dim D As Integer
Dim X As Integer
Dim Y As Integer
If CH_EX4.Value <> "" And I_EX4.Value <> "" And AL_EX4.Value <> "" And TextBox11.Value <> "" And E_EX4.Value <> "" Then
A = CH_EX4.Value
B = I_EX4.Value
C = AL_EX4.Value
D = TextBox11.Value
X = CH_EX4.Value
Y = E_EX4.Value
E_EX4.Value = (B - A) + ((0.5 * D) - C)
EC_EX4.Value = (E_EX4 - E_EX1)
E3.Value = X + Y
End If
End Sub

incompatible

Private Sub ComboBox9_Change()

If ComboBox9.ListIndex = 0 And IsNumeric(TextBox11) Then

EMT1 = TextBox11 / 4

EMT2 = TextBox11 / 2

EMT3 = TextBox11 / 2

EMT4 = TextBox11 / 2

EMT5 = TextBox11 / 2

EMT6 = TextBox11 / 2

EMT7 = TextBox11

EMT8 = TextBox11

EMT9 = TextBox11

EMT10 = TextBox11

EMT11 = TextBox11

EMT12 = TextBox11 * 1.5

EMT13 = TextBox11 * 1.5

EMT_EX1 = TextBox11 / 4

EMT_EX2 = TextBox11

EMT_EX3 = TextBox11

EMT_EX4 = TextBox11

EMT_EX5 = TextBox11

EMT_EX6 = TextBox11

EMT_EX7 = TextBox11

EMT_EX8 = TextBox11

EMT_EX9 = TextBox11

ElseIf ComboBox9.ListIndex = 1 Then

EMT1 = TextBox11 / 4

EMT2 = TextBox11

EMT3 = TextBox11

EMT4 = TextBox11

EMT5 = TextBox11

EMT6 = TextBox11

EMT7 = TextBox11 * 2

EMT8 = TextBox11 * 2

EMT9 = TextBox11 * 2

EMT10 = TextBox11 * 2

EMT11 = TextBox11 * 2

EMT12 = TextBox11 * 3

EMT13 = TextBox11 * 3

EMT_EX1 = TextBox11 / 4

EMT_EX2 = TextBox11 * 2

EMT_EX3 = TextBox11 * 2

EMT_EX4 = TextBox11 * 2

EMT_EX5 = TextBox11 * 2

EMT_EX6 = TextBox11 * 2

EMT_EX7 = TextBox11 * 2

EMT_EX8 = TextBox11 * 2

EMT_EX9 = TextBox11 * 2

End If

End Sub

Bonjour,

Si tu veux qu'on puisse tenter d'identifier la source d'une erreur sur simple vue de la procédure, il convient, outre le numéro d'erreur et sa localisation, d'indiquer les valeurs de toutes les variables concernées (ainsi que des propriétés susceptibles de varier) au moment de l'erreur.

Cordialement.