Discussion :

[November-Oscar]

Bonjour
une macro quelconque me sélectionne un caractère.
Comment savoir si ce caractère est une lettre ?
Y a-t-il un équivalent type IsNumeric() pour savoir si c'est une lettre entre a et z ?
Je n'ai pas trouvé.
Quelqu'un aurait-il une fonction de ce type ?
Merci
Cordialement

[Invité]

Bonjour,

Au cas où tu n'aurais pas de réponse plus simple, il te faut tester ton caractère via une boucle par rapport au jeu de caractères Ansi, du Chr(65) au Chr(90) pour les majuscules et de 97 à 122 pour les minuscules.

[jurassic pork]

hello,
on peut aussi se servir des expressions régulières. Pour utiliser celles-ci en VBA il faut cocher Microsoft VBscript Regular Expressions 5.5 dans le menu Outils/Références de VBA :



et voici une fonction qui teste si une chaîne n'utilise que des lettres avec une option pour ignorer les Minuscule/Majuscule :

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
Function isAlphabetic(ByVal str As String, ignoreCase As Boolean) As BooleanDim stringOne As String
Dim regexOne As Object
Set regexOne = New RegExp
regexOne.Pattern = "^[a-z]+$"
regexOne.ignoreCase = ignoreCase
isalpha = regexOne.test(str)
End Function
 
 
 
 
Sub test()
Dim montableau As Variant
montableau = Array("A", "e", "5", "a2b", "Chien", "chat", "aze1", "aso?", "1234")
For Each el In montableau
Debug.Print el & " : " & isAlphabetic(el, False)
Next el
Debug.Print "=== Ignore Min/Maj ==="
For Each el In montableau
Debug.Print el & " : " & isAlphabetic(el, True)
Next el
End Sub

et voici le résultat du test :



Ami calmant, J.P