Empêcher la saisie de caractère dans une textbox

Bonsoir,

J'aimerais qu'il soit possible de seulement saisir des lettres et nombres dans ma textbox. J'aimerais empêcher tout autre caractère tel que ceux-ci : ()%?&*#"+=

Quel condition devrais-je ajouter pour que cela fonctionne ?

Private Sub IntPivot_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim iCar As Integer, NbNum As Integer
  ' Initialiser le nombre de chiffre
  NbNum = 0
  ' vérifier la saisie avant sortie
  For iCar = 1 To Len(Me.IntPivot.Value)
    If IsNumeric(Mid(Me.IntPivot, iCar, 1)) Then
      NbNum = NbNum + 1
    End If
  Next
  ' Sortie de la boucle on vérifie le nombre de caractères numériques
  If NbNum < 5 Then
    MsgBox "Le numéro doit contenir entre 5 et 10 chiffres", vbExclamation, "ERREUR SAISIE"
    Cancel = True
End If
End Sub

Merci pour l'aide

Bonsoir,

une proposition de contrôle "à la saisie" :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
   If InStr("1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

@ bientôt

LouReeD

Fonctionne nickel merci !