Erreur 13, incompatibilité de type

Résolu/Fermé

patscaph - 15 mars 2013 à 13:52
patscaph - 15 mars 2013 à 16:15

Bonjour,
La question est courte. Coment faire pour que l'instruction 2 soit choisie dans tous les cas si l'une des conditons n'est pas remplie??
Actuellement ça plante si TextboxCode est vide!!! avec une erreur 13 (incompatibilité de type). Aussi ça doit fonctionner pour des codes commeText/numérique ''PA116'' Merci pour votre aide

Private Sub BtnValidationCode_Click()
Dim code As Integer

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

A voir également:

Erreur 13, incompatibilité de type
Erreur 0x80070643 - Guide
Fifa 13 apk - Télécharger - Jeux vidéo
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
+33 9 48 19 02 13 ✓ - Forum Mobile
Erreur 10016 epson - Forum Imprimante

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
15 mars 2013 à 14:29

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

patscaph
15 mars 2013 à 16:15

ok parfait le probème est résolu... Merci

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type

Instagram "Désolé, une erreur s'est produite"

Erreur de lecture sur iptv smarters

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Discussions similaires

Newsletters