Empêcher la saisie de caractère spéciaux dans Inputbox()

Version imprimable

16/05/2014, 16h55
baptou42

Empêcher la saisie de caractère spéciaux dans Inputbox()

Bonjour à toutes et à tous,

J'aimerais empêcher la saisie de caractères spéciaux (à,ô,@,+,-,*,/,...etc) dans la donnée que j'aurais entrée dans mon inputbox.
J'aimerais aussi remplacer les espaces par des "_".

La solution serait peut être, que l'on peux rentrer tout les caractère, et que la macro les suppriment après ?
Et pour les espaces, que la macro les remplacent par "_" après aussi ?

Merci d'avance
Baptou :D
16/05/2014, 17h25
Marc-L

Bonjour !

• Pour le nettoyage après saisie, c'est la fonction de feuille de calculs EPURAGE (voir l'aide d'Excel),

.. en VBA : Application.Clean …

.. Quoique les caractères mentionnés ne sont pas du tout spéciaux (!),
.. envisager alors de travailler avec des bornes de caractères ou leurs codes …
.. Boucler sur chacun des caractères puis combiner avec par exemple l'instruction Select Case
.. pour les caractères autorisés …

.. Tutoriel Manipuler les chaînes de caractères en VB6 et VBA Excel …

• Pour le remplacement de caractères, consulter l'aide VBA de la fonction Replace …

Et oui, tout sous le coude à portée de clic !
Sans compter l'Enregistreur de macros, un ami pour débuter un code …

__________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …
16/05/2014, 17h36
parmi

Autrement, tu pourrais créer ton propre Inputbox à l'aide d'un Userform.
Tu pourrais alors utiliser l'événement KeyPress du textbox pour gérer les caractères.
16/05/2014, 19h56
baptou42

Parmi, j'y avais aussi pensé mais seulement je ne maîtrise pas du tout les userform..

Bonjour,

Citation:

j'y avais aussi pensé mais seulement je ne maîtrise pas du tout les userform..

C'est très simple, tu ajoute un UserForm (menu "Insertion" > "Userform"), dans la boite à outils qui vient de s'afficher, tu choisi "Zone de texte" en cliquant dessus et ensuite, tu glisse la souris du haut gauche au bas droit pour dessiner ton contrôle (en maintenant le bouton gauche appuyé) et enfin, tu double clique dessus pour entrer dans le module, tu supprime la proc "Change" qui c'est créée par défaut et tu colle le code ci-dessous tu teste et tu adapte à tes besoins
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'pour connaître le numéro KeyAscii du carractère 'MsgBox KeyAscii Select Case KeyAscii '"39" l'apostrophe '"48 To 57" les chiffres de 0 à 9 '"65 To 90" les lettres majuscules de A à Z '"97 To 122" les lettres majuscules de a à z '"224" la lettre à '"231 To 233" les lettres accents ou cédille ç, è, é '"249" la lettre ù Case 39, 48 To 57, 65 To 90, 97 To 122, 224, 231 To 233, 249 'remplace l'espace par le tiret bas Case 32 KeyAscii = 95 'interdit tout autre carractère et affiche un message pour informer l'utilisateur Case Else KeyAscii = 0 MsgBox "Carractère interdit !" End Select End Sub
Hervé.

17/05/2014, 14h30
parmi
Pour rajouter à ce que Theze t'a bien expliqué, tu déclares une variable Public en entête de module standard, disons

Code:

Public Reponse as String

Quand tu appelles ton UserForm
Code:

1 2 3 MonInputBox.Show If Reponse = "" then Exit Sub '... le reste du code
Dans ton Userform, tu ajoutes un bouton
Sur Click du bouton
Code:

1 2 3 Reponse = Me.MonTextbox Unload Me

1 pièce(s) jointe(s)

Bonjour,

regarde le fichier en pièce jointe

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Dim char()
 
Private Sub CommandButton1_Click()
Me.Tag = Me.TextBox1
Me.Hide
End Sub
 
Public Function InputBoite()
Me.Show vbModal
On Error Resume Next
InputBoite = Me.Tag
On Error GoTo 0
Unload Me
End Function
 
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim I As Integer
Dim t As String
t = Chr(KeyAscii)
 
For I = 0 To UBound(char) Step 2
   t = Replace(t, Trim("" & char(I)), Trim("" & char(I + 1)), compare:=vbBinaryCompare)
Next
If Trim(ee & t) = "" Then KeyAscii = vbNull Else KeyAscii = Asc(t)
End Sub
Private Sub UserForm_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
char = Array(Chr(10), "", Chr(13), "", "%", "", "?", "", "!", "", ";", "", "!", ",""", "§", "", ".", "", "/", "", "*", "", "+", "", "-", "", " ", "", "@", "", "Á", "A", "á", "a", "À", "A", "à", "a", "Â", "A", "â", "a", "Ä", "A", "ä", "a", "C", "C", "c", "c", "É", "E", "é", "e", "È", "E", "è", "e", "Ê", "E", "ê", "e", "Ë", "E", "ë", "e", "H", "H", "h", "h", "Í", "I", "í", "i", "Ì", "I", "ì", "i", "Î", "I", "î", "i", "Ï", "I", "ï", "i", "J", "J", "j", "j", "L", "L", "l", "l", "N", "N", "n", "n", "Ó", "O", "ó", "o", "Ò", "O", "ò", "o", "Ô", "O", "ô", "o", "Ö", "O", "ö", "o", "R", "R", "r", "r", "S", "S", "s", "s", "S", "S", "s", "s", "Ú", "U", "ú", "u", "Ù", "U", "ù", "u", "Û", "U", "û", "u", "Ü", "U", "ü", "u", "W", "W", "w", "w", "Ý", "Y", "ý", "y", "Y", "Y", "y", "y", "Ÿ", "Y", "ÿ", "y", "Z", "Z", "z", "z")
End Sub

Code:

1
2
3
Sub test()
MsgBox UserForm1.InputBoite
End Sub

19/05/2014, 08h19
baptou42

Merci !!
Grâce à toutes vos réponses je pense que je vais m'en sortir, toutes m'ont été très utiles.
Merci encore
Baptou :D