Erreur 13, incompatibilité de type

Bonjour,

Un textbox renvoie une valeur de type string.
Lorsque tu utilises CInt, tu transformes ce string en Integer.
Ok, pas de souci. Sauf si tu saisis dans ton textbox :
- AB116... Ce dernier n'est pas convertible en nombre entier....
- rien. Lorsque ton textbox est vide, il retourne la valeur "" qui est un string mais n'est pas égal à zéro. "" n'est pas convertible en nombre entier...

Par conséquent, tu devrais n'utiliser que des strings :

Private Sub BtnValidationCode_Click() 
Dim code As String

code = TextboxCode.Value
If code = "3739" Or code = "1164" Or code = "1994" Or code = "1936" Then 
    Instruction1 
Else 
    Instruction 2 
End If 
End Sub

ou, si tu ne saisis que des nombres entiers :

Private Sub BtnValidationCode_Click() 
Dim code As Integer 

If TextboxCode = "" Then MsgBox "Saisie obligatoire": Exit Sub
code = CInt(TextboxCode.Value) 
If code = 3739 Or code = 1164 Or code = 1994 Or code = 1936 Then 
    Instruction1 
Else 
    Instruction 2 
End If 
End Sub

j'ai donc ajouté la ligne qui évite le plantag en cas de non saisie :

If TextboxCode = "" Then MsgBox "Saisie obligatoire": Exit Sub

et viré les " des codes dans la ligne :

If code = 3739 Or code = 1164 Or code = 1994 Or code = 1936 Then