VBA UserForm erreur 400

Private Sub CommandButton1_Click() 'l'appuis sur le bouton effectue la verification de la tension
Dim ForceMax As Single, ForceMin As Single, ForceMes As Single 'déclaration des variable

ForceMes = Range("I7") 'prendre la valeur force mesurer en I7
ForceMax = Range("C14") 'prendre la valeur force maximum en C14
ForceMin = Range("C16") 'prendre la valeur force minimum en C16




'si I7 compris entre C14 et C 16 alors message tension bonne
If ForceMes < ForceMax And ForceMes > ForceMin Then
MsgBox ("Tension de la courroie correcte!")

Else

'Si I7 superieur à C14 alors message tension trop élevé
If ForceMes > ForceMax Then
MsgBox ("Tension trop élevé ! Détendre la courroie.")

Else
'Si I7 inferieur à C14 alors message tension faible
If ForceMes < ForceMin Then
MsgBox ("Tension trop faible ! Retendre la courroie.")

End If
End If

End If


End Sub


Private Sub CommandButton2_Click() 'bouton pour fermer le logiciel
Unload Me
End Sub

Private Sub TextBox2_Change()
'Puissance
Range("D6") = TextBox2 'met la valeur dans la casse D6

End Sub

Private Sub TextBox4_Change()
'diametre poulie entrainante
Range("D7") = TextBox4 'met la valeur dans la casse D7
End Sub

Private Sub TextBox5_Change()
'vitesse de rotation
Range("D8") = TextBox5 'met la valeur dans la casse D8
End Sub

Private Sub TextBox6_Change()
'longueur courroie
Range("D9") = TextBox6 'met la valeur dans la casse D9
End Sub

Private Sub TextBox7_Change()
'diametre petite poulie
Range("D10") = TextBox7 'met la valeur dans la casse D10
End Sub

Private Sub TextBox8_Change()
'deflexion mesuré
Range("I6") = TextBox8 'met la valeur dans la casse I6
End Sub

Private Sub TextBox9_Change()
'force mesuré
Range("I7") = TextBox9 'met la valeur dans la casse I7
End Sub

Private Sub UserForm_Click() 'permet d'ouvrir la fentre userform tous le temps
UserForm1.Show

End Sub

Cliquez pour agrandir...