Discussion :

[YassDumb]

Bonjour!

Comment vérifier si ce que rentre l'utilisateur dans une zone de texte est bien numérique? Je voudrais afficher un message d'erreur si la zone de texte est vide ou contient des caractères non numériques.

J'ai réussi la première partie (ici, la TextBox se nomme Emprise):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub EtapeSuivante_Click()
On Error Resume Next
         
        If Emprise.Value = "" and ...... Then
            MsgBox ("Erreur: Zone de texte 'Emprise' vide " & Error(Err.Number)), vbCritical
            Exit Sub
        End If

End Sub

Reste à remplir les pointillés.

Cordialement.

[Philippe Tulliez]

Bonjour,
Un petit coup d'oeil sur ce didacticiel et sur celui-ci (Chercher numérique), il y a un exemple.

[issoram]

Bonjour,

Si tu es familier des expressions rationnelles, c'est très pratique aussi.

http://cafeine.developpez.com/access/tutoriel/regexp/

[YassDumb]

Merci beaucoup,
J'ai retenu cette macro que j'ai mise dans TextBox1_Change:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then
        MsgBox "Le caractere saisi n'est pas valide"
        TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
 End If

Mais quand on efface le caractère non numérique avec la MsgBox, il y a une erreur. En enlevant la deuxième ligne du if, ça fonctionne très bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then
        MsgBox "Le caractere saisi n'est pas valide"
 End If

Cordialement