Discussion :

[freeman3869]

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

[Jean-Philippe André]

salut,

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

Code :

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

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

[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,

[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

[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

[Jean-Philippe André]

En faisant une boucle par exemple

Code :

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

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

[freeman3869]

En faisant une boucle par exemple

Code :

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

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

[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.

[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é

[Jean-Philippe André]

Quel est ton code actuel stp ?

[freeman3869]

La fonction , fin le sub :

Code :

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

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 :

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

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

[Jean-Philippe André]

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 :

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

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

[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"