Que des lettres

Bonjour, je souhaite créer la même chose, mais que des
lettres, en fait interdire une saisie autre que des lettres

-----
If Not IsNumeric(rep) Then
---
MsgBox "C'est pas du texte !"
---

AV

Salut AV ;-)

If Not IsNumeric(rep) Then

renverra vrai avec "Lolo1234" alors que Gege ne semble vouloir QUE des
lettres ...

je pense qu'il faudrait vérifier chaque caractère tapé au moment de leur
frappe ou testé tout le champ une fois tappé ... j'ai essayé (un peu) sans
réussir :...(

@+lolo (tatillon aujourd'hui)

je pense qu'il faudrait vérifier chaque caractère tapé au moment de leur
frappe ou testé tout le champ une fois tappé ... j'ai essayé (un peu) sans
réussir :...(

Une... :
Sub test()
rep = InputBox("Saisissez un nombre")
For i = 1 To Len(rep)
If Asc(Mid(rep, i, 1)) > 47 And Asc(Mid(rep, i, 1)) < 58 Then GoTo suite:
Next
[A1] = rep
Exit Sub
suite:
MsgBox "Il n'y a pas que des lettres !"
End Sub

AV

Merci beaucoup AV
Gege

-----Message d'origine-----

je pense qu'il faudrait vérifier chaque caractère tapé
au moment de leur

frappe ou testé tout le champ une fois tappé ... j'ai
essayé (un peu) sans

réussir :...(

Une... :
Sub test()
rep = InputBox("Saisissez un nombre")
For i = 1 To Len(rep)
If Asc(Mid(rep, i, 1)) > 47 And Asc(Mid(rep, i, 1))
< 58 Then GoTo suite:

Next
[A1] = rep
Exit Sub
suite:
MsgBox "Il n'y a pas que des lettres !"
End Sub

AV


.