Sujet Précédent Sujet Suivant

Excel textbox

thierry440 Messages postés 1 Statut Membre -  
 Utilisateur anonyme -
Bonjour
je debute en vb et je viens de faire un formulaire avec une textbox

c'est ok par contre je veux controler la saisie de la textbox à une saisie numerique sur 3 chiffres (ex : 440 )

Merci d'avance
A voir également:

3 réponses

Réponse 1 / 3
Lupin
 
Bonjour,

voici 2 exemples, et il en existe bien d'autres. 

Private Sub TextBox1_Change()
    
    If (Len(TextBox1.Value) > 3) Then
        MsgBox "Ne doit pas excéder 999"
    Else
        If (Val(TextBox1.Value) > -1) And (Val(TextBox1.Value) < 1000) Then
            MsgBox "Valeur acceptée"
        Else
            MsgBox "Le nombre doit être comprit entre 0 et 999"
        End If
    End If
    
End Sub
'



Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    If (KeyAscii <> "13") Then
        If (Len(TextBox1.Value) > 3) Then
            MsgBox "Le nombre de caractère est invalide"
        Else
            If ((KeyAscii >= 0) And (KeyAscii <= 9)) Then
                If (Val(TextBox1.Value) > -1) And (Val(TextBox1.Value) < 1000) Then
                    MsgBox "Valeur acceptée"
                Else
                    MsgBox "Le nombre doit être comprit entre 0 et 999"
                End If
            End If
        End If
    End If

End Sub


Lupin
0
Réponse 2 / 3
phil
 
Bonjour,
et comment n'autoriser que des chiffres dans une textbox d'une userform?
merci pour votre aide
0
Réponse 3 / 3
Utilisateur anonyme
 
Bonjour,

suggestion : 

Private Sub tbx_Saisie_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

  Dim Longueur As Long

  If (KeyAscii <> "13") Then
    If ((Chr(KeyAscii) <= "9") And (Chr(KeyAscii) >= "0")) Then
      If (Len(tbx_Saisie.Value) > 3) Then
        MsgBox "Le nombre de chiffre est invalide"
      Else
        If ((Chr(KeyAscii) >= 0) And (Chr(KeyAscii) <= 9)) Then
          If (Val(tbx_Saisie.Value) > -1) And (Val(tbx_Saisie.Value) < 1000) Then
            'MsgBox "Valeur acceptée"
            DoEvents
          Else
            MsgBox "Le nombre doit être comprit entre 0 et 999"
          End If
        End If
      End If
    Else
      KeyAscii = 0
    End If
  End If

End Sub
'


Lupin
0