Discussion :

[SenseniX]

Bonjour à tous.
J'aurai besoin d'aide.
Je voudrais exclure des caractères lors de la saisie dans un champs d'un Userform.

Voila j'ai crée un menu d'ajout mais je voudrais dans les champs de saisis que la saisie des caractère exclu les caractère tels que "." "," etc.

J'ai bien essayé un truc qui marche à moitié mais je ne sais pas faire sans faire apparaitre un MsgBox.

Voilà je pense qu'il y a deux solution avec différents codes possibles.
Moi je pensais au début faire cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If champs = "." or "," then
Quoi mettre à la place d'une msgbox ?
else 
msgbox ("caractère inconnu")
End if

Dans cette situation, ça m'affiche une MsgBox donc pas forcément ce que je veux.

Autre solution faire une code qui m'empêche d'écrire ces caractère.

Dernière solution, faire un code qui vérifie le champs lorsque je clique sur le bouton ajout pour voir s'il n'y aucun caractère contraignant.

Je début en VBA !

Merci à vous

[laetitia]

bonjour SenseniX le forum question tu veus renseigner des textbox??

[Didier Gonard]

Bonjour,

tu peux t'inspirer du traitement employé ici, le sujet n'est pas le même, mais le traitement de fond oui


Approche d'une résolution de besoin en VBA, niveau débutant
Obliger une saisie numérique dans une TextBox

cordialement,

Didier

[SenseniX]

Désolé mais je n'y arrive pas.
Pourriez-vous m'aider svp ?!
Merci à vous.

[mercatog]

pour empêcher la saisie de "," et "." dans un textbox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) = "," Or Chr(KeyAscii) = "." Then KeyAscii = 0
End Sub

attention, quand même, si on copie un texte contenant la virgule ou le point, le texte passe.

[laetitia]

re,l'ami mercatog une autre approche si beaucoup de textboxs renommées ou pas!!! dans ton user passer par un module de classe
exemple accepte uniquement les caractéres de 0 a 9 a adapter

code user

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Option Explicit
Dim M() As New classe1, I As Integer, c As Control
Private Sub UserForm_Initialize()
For Each c In Controls
If TypeOf c Is MSForms.TextBox Then
I = I + 1
ReDim Preserve M(1 To I): Set M(I).txt = c
End If:  Next
End Sub

code module de classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public WithEvents txt As MSForms.TextBox
Private Sub txt_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub

[babaothe]

attention, quand même, si on copie un texte contenant la virgule ou le point, le texte passe.

C'est la raison pour laquelle j'ai personnellement l'habitude de ne pas utiliser l'évènement KeyPress. L'évènement Change (peu orthodoxe, mais...) met à l'abri de ce risque
Dans cet exemple : impossible de frapper "a" ou "b", ni de coller un texte contenant l'une de ces deux lettres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox1_Change()
  Dim interdits, i As Integer
  Static ancien As String
  interdits = Array("a", "b")
  For i = 0 To UBound(interdits)
    If InStr(TextBox1.Text, interdits(i)) Then
      TextBox1.Text = ancien
      Exit For
    End If
  Next
  ancien = TextBox1.Text
End Sub