High-Tech Santé Médecine Droit-Finances

Auto-Entrepreneur

Comment faire ?

Rechercher : dans
Par :

Excel textbox

Dernière réponse le 10 mai 2007 à 20:14:18 thierry440, le 2 mar 2006 à 19:09:33 
 Signaler ce message aux modérateurs

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

Meilleures réponses pour « excel textbox » dans :
Transformer un fichier Microsoft Excel (.xls) en PDF VoirTransformer en fichier PDF un fichier Microsoft Excel (.xls) Rien de plus simple ! Ouvrez votre fichier *.xls avec OpenOffice.org Réglez éventuellement la mise en page par le menu Format / Page... Dès lors, 2 solutions pour transformer en...
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
Importer ses contacts sous Outlook à partir d'Excel VoirImporter ses contacts sous Outlook à partir d'Excel Problème Comment importer une liste de contact d'Excel vers Outlook, en ne les mettant que dans une seule liste de contact, et non contact par contact ? Solution En utilisant les logiciels...
Tableur - L'interface d'Excel VoirPrésentation d'Excel Microsoft Excel est le tableur de la suite bureautique Microsoft Office. Pour le lancer il suffit de cliquer sur l'icone appropriée de votre menu Démarrer (sous Windows) ou bien de cliquer sur un fichier Excel (dont...
Posez votre question Répondre

1

Lupin, le 2 mar 2006 à 21:32:05

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

   
Répondre à Lupin

2

phil, le 8 mai 2007 à 01:27:10

Bonjour,
et comment n'autoriser que des chiffres dans une textbox d'une userform?
merci pour votre aide

   
Répondre à phil

3

 Lupin.A, le 10 mai 2007 à 20:14:18

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

   
Répondre à Lupin.A
Posez votre question Répondre
Ils ont besoin de votre aide