Problème lors d'une saisie dans une textbox

Fermé
irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 - 18 févr. 2013 à 18:05
irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 - 18 févr. 2013 à 18:46
Bonjour,

Encore moi !!!!

J'ai une " textbox " ou je dois rentrer un chiffre ( maxi 4 chiffres ) et ensuite cela compare si ce même chiffre se trouve dans un "Label "

Si je n'est qu'un seul chiffre dans le " label " et que je tape un chiffre dans la " textbox " quelque soit ce chiffre cela fonctionne correctement.

Par contre il suffit que le chiffre du label soit par exemple "55 ", dès que je tape le 1er 5 dans la textbox, j'ai tout de suite ma message box qui m'affiche un message d'erreur.

Que pasa ?

Le code :

Private Sub numbla_Change()
If numbla.Text = Range("B25") Then
Label2.Caption = ""
numbla.Enabled = False
    Else 'SINON ...
        MsgBox "Valeur incorrecte"
End If
End Sub


Merci à vous


1 réponse

irongege Messages postés 40847 Date d'inscription jeudi 1 novembre 2007 Statut Modérateur Dernière intervention 29 juin 2023 5 054
18 févr. 2013 à 18:46
Après quelques recherches, si je modifie le code :

Private Sub numbla_Change()
If numbla.Value = Range("B25") Then
Label2.Caption = ""
numbla.Enabled = False
End If
End Sub

Sans le msgbox, cela marche mais cela ne verrouille plus cette textbox ;-(
0