1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Bug de librairy et ou de projet [Résolu]

Signaler
Messages postés
5
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2008
 -
Messages postés
5
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2008
 -
Bonjour,

   J'ai codé une application sur mon laptop mais quand je la fais exécuter sur une autre machine, j'ai une erreur à cet endroit. Le compilateur ne comprends pas "Right"

'La virgule non valide (entier)
Private Sub NombreDeLoop_TB_Change()
    On Error Resume Next
    If Not IsNumeric(Right(NombreDeLoop_TB, 1)) And Right(NombreDeLoop_TB, 1) <> "" Then
        MsgBox "Le caractere saisi n'est pas valide"
        NombreDeLoop_TB = Left(NombreDeLoop_TB, Len(NombreDeLoop_TB) - 1) 'efface la caractère inscrit
    End If
End Sub

J'attends vos suggestion

Karl
Afficher la suite

2 réponses

Réponse 1 / 2
Messages postés
1263
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
24 juillet 2013
 6
Je coderais plutôt la Sub ainsi

Private Sub NombreDeLoop_TB_Change()
  
    On Error Resume Next
    If NombreDeLoop_TB.Text = "" then Exit Sub
    If IsNumeric(Right(NombreDeLoop_TB.Text, 1)) = True then Exit Sub
    MsgBox "Le caractere saisi n'est pas valide"
    NombreDeLoop_TB.Text = Left(NombreDeLoop_TB.Text, Len(NombreDeLoop_TB.Text) - 1) 'efface la caractère inscrit

End Sub

Si la Textbox est vide on sort
Si on tape un chiffre on sort sinon Msgbox

Ne pas mettre les 2 conditions avec un Or car si la textbox est vidée dans ton application le Right ne fonctionnera pas

GRENIER Alain
Réponse 2 / 2
Messages postés
5
Date d'inscription
mercredi 9 juillet 2008
Statut
Membre
Dernière intervention
11 juillet 2008
Bonjour Alain,

    Merci pour ta réponse. Cela ne répond pas à ma question mais j'ai trouvé le bug entre temps. Je vais faire le code comme tu le dis pour avoir un meilleur code.

Karl
Répondre Posez votre question