Saisille de nombres uniquements

Commenter

Contenu du snippet

Ce code est surement deja preésent, mais je ne l'ai pas trouvé en faisant une recherche. De plus quelqu'un me l'a demandé sr le chan, en me disant qu'il n'avais pas trouvé non plus... Voici donc ce code (destiné aux débutants, pas la peine de commenter genre: c'est nul, tout le monde sait ça)

Donc ce code permet de vérifier que le contenu d'un TextBox est bien un nombre et d'empêcher la sortie du TextBox tant que son contenu n'en est pas un. Il vérifie aussi sur click de bouton que tout soit Ok...

Les TextBox ayant pour nom <CeQueTuVeux>_nr seront checkés automatiquement sur Command1_Click() donc tous les TextBox devant être des nombres doivent avoir un nom de ce format...

Il est aussi possible d'ajouter les _LostFocus en modifiant bien sur le nom du controle (Controls("NomDuControle")) pour qu'il soit en accord avec le nom du textbox...

Source / Exemple : 


' Il faut sur une form:
' Un bouton (Command1)
' Un TextBox nommé(s) txtNombre_nr
' Des autres TextBoxe, si tu le souhaites...

Private Sub Command1_Click()
        If Not IsValidForm Then MsgBox ("Form validé avec succès !")
End Sub

Private Sub txtNombre_nr_LostFocus()
    If Not IsNumeric(txtNombre_nr) Then NotNumeric (Me.Controls("txtNombre_nr"))
End Sub

Private Function IsValidForm() As Boolean
    Dim C As Control
    IsValidForm = True
    For Each C In Form1.Controls()
        If Right$(C.Name, 3) = "_nr" Then
          If TypeOf C Is TextBox Then
            If Not IsNumeric(C.Text) Then
                NotNumeric (Me.Controls(C.Name))
                IsFalidForm = False
                Exit Function
            End If
          End If
        End If
    Next
End Function

Private Sub NotNumeric(TB As TextBox)
    MsgBox ("Veuillez entrer un nombre !")
    TB.SetFocus
    TB.SelStart = 0
    TB.SelLength = Len(TB)
End Sub

Conclusion :


Voila.. je crois que c'est complet...

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_seyev)