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
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
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.