Comment autoriser les numéros Uniquement dans la zone de saisie Outlook VBA

Question

J'écris une macro où l'utilisateur est invité à entrer un nombre. Mais je suis incapable de valider si l'entrée est un nombre ou non. J'essaie Type: = 1, mais il donne une erreur. Voici mon morceau de code.

Limit = Replace(Trim(Left(Split(b, "LIMIT:")(1), 
     Len(Split(b, "LIMIT:")(1)) - 
     Len(Split(b, "EXCESS:")(1)) - 7)), ".", "") 
If Limit = "Up to full value any one Occurrence and in all 
      during the Period" & vbCrLf & vbCrLf & " " & vbCrLf & vbCrLf Then 
Limit = TIV 
Else 
Limit = InputBox(prompt:="Limit is not FULL VALUE. Enter Limit", 
     Title:="LIMIT", Default:=TIV,Type:=1) 
End If 
MsgBox Limit 

Veuillez suggérer quelle devrait être la solution ici.

Answer 1

Essayez cette

Sub getLimit() 
    Dim Limit As Variant 
    Do While True 
     Limit = InputBox("please enter a number", "LIMIT") 
     If IsNumeric(Limit) Then 
      MsgBox Limit, , "LIMIT" 
      Exit Do 
     End If 
     If MsgBox("Limit is not FULL VALUE. Enter Limit", vbOKCancel, "LIMIT") = vbCancel Then Exit Do 
    Loop 
End Sub 

Answer 2

Vous devez utiliser Application.InputBox pour le type de travail.

Une alternative est d'utiliser un formulaire contenant une zone de texte et ajoutez ce code à l'événement Change() de la zone de texte:

Private Sub TextBox1_Change() 
    With Me.TextBox1 
     If .Text Like "[!0-9]" Or Val(.Text) < -1 Or .Text Like "?*[!0-9]*" Then 
      Beep 
      .Text = Left(.Text, Len(.Text) - 1) 
     End If 
    End With 
End Sub 

Dès que vous tapez un caractère vérifie ce qu'il est - si ce n'est pas nombre puis il l'enlève.