Discussion :

[Laura27600]

Bonjour,

Je souhaite vérifier que l'utilisateur de la macro ait bien entré un mot, et non des chiffres, dans mon InputBox ?

Je sais qu'il est possible de vérifier si le mot insérer en InputBox est un chiffre par :
If Not IsNumeric(matricule) [..]

Mais l'inverse m’intéresserais..


Bonne journée,

[EngueEngue]

Il va falloir utiliser de les codes ASCII... s'il y a des accents ou des lettres bizzares telles que les n espagnols... ca risque d'être un peu chiant

[Laura27600]

je pense pas qu'il y aura des n espagnols mais surment de é è à ..
Qu'est ce que sont ces codes ?

[EngueEngue]

Code :

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

1
2
3
4
5
6
7
8
9
10
Function tester(mot As String) As Boolean
Dim i As Integer
mot = UCase(mot)
tester = True
For i = 1 To Len(mot)
If Asc(Mid(mot, i, 1)) < 65 Or Asc(Mid(mot, i, 1)) > 90 And Asc(Mid(mot, i, 1)) <> 201 And Asc(Mid(mot, i, 1)) <> 200 Then
tester = False
End If
Next i
End Function

Rajoute dans ton if les lettres que tu veux en testant leur code ASCII avec ce sub

Code :

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

1
2
3
Sub toto()
MsgBox (Asc(UCase("è")))
End Sub

Dans ton code tu auras

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
Sub machinchose()
 
'code
 
x = inputbox("blabla")
 
'Tu fais
If tester(x) then
msgbox("c'estbon")
Else
msgbox("c'estpasbon")
end if
 
'code
End sub

[PMO2017]

Bonjour,

Peut être une piste avec le code suivant

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub aa()
Dim reponse As Variant
Dim i&
Dim bool As Boolean
 
Do
  reponse = Application.InputBox(prompt:="Mon message", Title:="Mon titre", Type:=2)
  If reponse = False Or reponse = "" Then Exit Sub
 
'  '--- présence de nombre ---
'  For i& = 1 To Len(reponse)
'    If IsNumeric(Mid(reponse, i&, 1)) Then
'      MsgBox "Aucun nombre n'est admis "
'      Exit For
'    End If
'  Next i&
 
'/// ou alors
 
    '--- présence d'au moins un caractère alphabétique ---
  For i& = 1 To Len(reponse)
    If Not IsNumeric(Mid(reponse, i&, 1)) Then
      bool = True
      Exit Do
    End If
  Next i&
 
Loop
 
If bool Then MsgBox "Présence d'au moins un caractère alphabétique : " & reponse
 
End Sub

[Laura27600]

Cela fait :

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
17
18
19
20
21
22
23
Sub nouveau ()
 
Function tester(mot As String) As Boolean
Dim i As Integer
mot = UCase(mot)
tester = True
For i = 1 To Len(mot)
If Asc(Mid(mot, i, 1)) < 65 Or Asc(Mid(mot, i, 1)) > 90 And Asc(Mid(mot, i, 1)) <> 201 And Asc(Mid(mot, i, 1)) <> 200 Then
tester = False
End If
 
Next i
End Function
 
Mot = InputBox ("Quel est le mot que vous voulez ajouter ?")
While If tester(Mot) then 
       Range("A1") = mot
 
Wend
 
MsgBox ("Ce n'est pas un mot (composé de lettres).")
 
End Sub

C'est ça ?

[EngueEngue]

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
17
18
19
20
21
Function tester(mot As String) As Boolean
Dim i As Integer
mot = UCase(mot)
tester = True
For i = 1 To Len(mot)
If Asc(Mid(mot, i, 1)) < 65 Or Asc(Mid(mot, i, 1)) > 90 And Asc(Mid(mot, i, 1)) <> 201 And Asc(Mid(mot, i, 1)) <> 200 Then
tester = False
End If
Next i
End Function
 
Sub nouveau ()
 
Mot = InputBox ("Quel est le mot que vous voulez ajouter ?")
If tester(Mot) then 
Range("A1") = mot
else
MsgBox ("Ce n'est pas un mot (composé de lettres).")
End if
 
End Sub

[Marc-L]

Bonjour.

Je sais qu'il est possible de vérifier si le mot insérer en InputBox est un chiffre par :
If Not IsNumeric(matricule) [..]

Mais l'inverse m’intéresserais.

Ah non, là tu vérifies justement que ce n'est pas une valeur numérique admise, donc un mot contenant ou pas des chiffres …

L'inverse de If Not IsNumeric(matricule) est If IsNumeric(matricule) …

Donc une présentation claire et exhaustive aurait été vraiment un plus pour une solution directe et donc rapide !

Il y a aussi la possibilité de contrôler à la volée la saisie dans un UserForm …

Et merci d'utiliser l'icône # dévolue au code !