Vérifier les accents et les espaces dans un inputbox VBA

Version imprimable

15/05/2015, 10h40
freeman3869

Vérifier les accents et les espaces dans un inputbox VBA

Bonjour,

Comment vérifier s'il y a des espaces ou des accents dans un inputbox ?
J'ai regardé partout sur le net mais il n'y a rien par rapport à ça.

Merci

salut,

tu peux faire un bout de code sur tes resultats, comme par exemple

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
dim tmp as string
dim i as integer
tmp = Inputbox ("bla")
for i = 1 to len(tmp)
select case asc(mid(tmp,i,1))
Case Asc("a") to Asc("z"), Asc("A") to Asc("Z")
'cas des lettre standard
Case Asc(" ")
'cas de l'espace
Case Else
'tous les autres cas (meme celui des chiffres)
End Select
Next i

15/05/2015, 11h32
madefemere

Bonjour,

On peut vérifier les caractères saisis dans une zone de texte avec la fonction InStr.

Maintenant, qu'est-ce que tu veux faire exactement ? Limiter les caractères saisis dans ta zone de texte ou vérifier s'il y a espace ou accent et en faire quelque chose ?

Je te conseille la lecture de CE TUTO qui te donnera une idée des possibilités pour limiter a saisie dans un champ. facilement adaptable à ton besoin je pense.

Cordialement,
15/05/2015, 11h44
freeman3869

Bonjour,

Merci de vos réponses.
Je veux juste dire à l'utilisateur de ressaisir son message s'il y a un accent ou une espace dans son message.

Cordialement
15/05/2015, 14h00
freeman3869

Jpcheck :
Comment je peux dire à l'utilisateur de ressaisir son message s'il a mis des lettres accentuées ou des espaces ?

Madefemere :
Je suis allé lire l'article dont vous m'avez conseillé mais malheureusement je ne trouve pas ma réponse :?.

Je dois avouer que je suis novice en Access et Vba.

Merci de votre aide

En faisant une boucle par exemple

Code:

1
2
3
4
5
6
Dim tmp as string
tmp = InputBox("bla")
Do Until TonTestDePresence(Tmp)
Msgbox "Veuillez ne pas saisir d'estpace ni de caracteres accentues",vbCritical+vbokonly
tmp = InputBox("bla")
Loop

Citation:
Envoyé par jpcheck
En faisant une boucle par exemple
Code:

1 2 3 4 5 6 Dim tmp as string tmp = InputBox("bla") Do Until TonTestDePresence(Tmp) Msgbox "Veuillez ne pas saisir d'estpace ni de caracteres accentues",vbCritical+vbokonly tmp = InputBox("bla") Loop
C'est quoi le "TonTestDePresence" ? Je ne l'ai pas défini :?

15/05/2015, 14h58
Jean-Philippe André

C'est la fonction qui te retourne un booleen pour te dire si oui ou non tu as des caracteres accentues ou des espaces dans ton texte d'inputbox.
15/05/2015, 15h18
freeman3869

Ca j'ai compris mais je la trouve où la fonction ?

Je mets le code avec select case d'au dessus dans une fonction ? même en faisant ça, j'ai un message d'erreur : fonction ou variable attendue. C'est peut être moi qui ai mal écrit la fonction.
J'ai la tête qui commence à me peser une tonne avec tout ça, désolé :arf:
15/05/2015, 15h37
Jean-Philippe André

Quel est ton code actuel stp ?

La fonction , fin le sub :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub nom_cible()
    Dim msg As String
    Dim i As Integer
 
        msg = InputBox("ecrire le nom de la cible")
        'Len() Donne le nombre de caractères d'une chaîne de caractères.
        For i = 1 To Len(msg)
           Select Case Asc(Mid(msg, i, 1))
                'cas des lettre standard
                Case Asc("a") To Asc("z"), Asc("A") To Asc("Z")
 
                'cas de l'espace
                Case Asc(" ")
           End Select
        Next i
End Sub

Ensuite, j'essaye de l'appeler dans :

Code:

1
2
3
4
5
6
7
Dim tmp As String
 
tmp = InputBox("bla")
Do Until nom_cible(tmp)
    MsgBox "Veuillez ne pas saisir d'estpace ni de caracteres accentues", vbCritical + vbOKOnly
    tmp = InputBox("bla")
Loop

Ce sont les codes que tu as écrit au dessus

Euh, oui, mais
1- ces codes doivent etre adaptes a ton cas, ce qui necessite un peu de travail de ton cote
2- il n'y a pour l'instant aucun lien entre les deux

Essaie de partir d'une fonction comme

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function CeciEstEncoreUnExemple_maisAToiDeBosserAussiSTP(msg as String) As boolean
Dim  i As Integer
For i = 1 To Len(msg)
           Select Case Asc(Mid(msg, i, 1))
                'cas des lettre standard
                Case Asc("a") To Asc("z"), Asc("A") To Asc("Z")
                      'ici il faut ecrire quelque chose
                'cas de l'espace
                Case Asc(" ")
                       'ici aussi il faut ecrire quelque chose
           End Select
        Next i
 
End Function

15/05/2015, 16h31
freeman3869

Merci de votre aide JPcheck.
Je tenais juste à dire que je travaille aussi. J'attends pas d'avoir le travail tout prêt. Je ne voie pas l'intérêt d'ailleurs pour ça.
C'est juste que je suis débutant, il y a des choses qui m'échappent, je n'ai pas encore l'automatisme d'un informaticien.

Bref, je devrai y arriver sans problème "avec un peu de travail"