Discussion :

[maxence57590]

Bonjour a tous,

Alors voila, J'ai un Userform avec plusieurs textbox, combobox ,etc .. Sur les éléments fixe ou de "base" un key_press est appliquer donc aucun soucis.
Maintenant voila mon problème, l'utilisateur peut créer plusieurs textbox en fonction des choix mais la saisie a l’intérieur doit être contrôler tout de même. Donc je peux tout de meme vérifier pour une date ( IsDate()) ou un chiffre ( IsNumeric()) mais je ne trouve rien comme méthode pour vérifier si c'est bien du texte et seulement du texte.
Si vous pouviez me guider sur des méthodes, fonction ou autre.

De plus, je voudrais savoir si on peut appliquer une Key_press surement un textbox que l'on crée pendant l’exécution de programme.

Merci d'avance

[JahExodus]

Bonjour,

Bonjour a tous,
mais je ne trouve rien comme méthode pour vérifier si c'est bien du texte et seulement du texte.

Par "texte" tu entends un string ou du texte sans valeurs numériques, caractères spéciaux ? Car par défaut une textbox renvoie un string.
Sinon il exite une fonction IsText mais je ne l'ai jamais utilisée
https://msdn.microsoft.com/en-us/lib...on.istext.aspx
Tu peux aussi faire Not IsNumeric si tu ne veux pas de chiffre.

De plus, je voudrais savoir si on peut appliquer une Key_press surement un textbox que l'on crée pendant l’exécution de programme.

Oui, a priori pas de problème j'avais utilisé le même principe sur l’événement _Click avec des boutons créées dynamiquement

[unparia]

Bonjour

Je te suggère de commencer par t'intéresser à ce qu'est un module de classe (il te sera utile) -->>

http://fauconnier.developpez.com/art...neral/classes/

[maxence57590]

Par "texte" tu entends un string ou du texte sans valeurs numériques, caractères spéciaux ? Car par défaut une textbox renvoie un string.

Alors j'aurai justement besoin de certains caractères spéciaux ( ' " é à )

Sinon il exite une fonction IsText mais je ne l'ai jamais utilisée .

Je ne l'avais pas trouver, je vais regarder si elle prend seulement l'alphabet "classique" en compte.

Tu peux aussi faire Not IsNumeric si tu ne veux pas de chiffre.

Mais je ne pourrai traiter les "@" par exemple.

Donc je regard la fonction InStr() actuellement.

[JahExodus]

Si tu as besoin d'un contrôle de saisie très spécifique tu peux utiliser les expression rationnelles (Regex). C'est un peu fastidieux mais très puissant

http://cafeine.developpez.com/access/tutoriel/regexp/

[maxence57590]

Si tu as besoin d'un contrôle de saisie très spécifique tu peux utiliser les expression régulières (Regex). C'est un peu fastidieux mais très puissant

Je ne pense pas avoir le niveau actuel après je n'ai que survoler la page mais assez compliqué je trouve


J'ai réaliser un petit code (facile mais relativement efficace), bon c'est n'est pas du grand art mais je pense qu'il devrait faire l'affaire.

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
Private Sub CommandButton8_Click()
Dim test As String
Dim taille_chaine As Integer
 
test = "m5 f556e"
taille_chaine = Len(test)
 
Dim MidWords As String
For I = 1 To taille_chaine
MidWords = Mid(test, I, 1)
 
 If InStr(" azertyuiopqsdfghjklmwxcvbn'A ZERTYUIOPQSDFGHJKLMWNXBCVéàè ", MidWords) = 0 Then
 
    MsgBox "error"
    Else
      MsgBox "Caractere ok"
 End If
 
Next I
 
End Sub

Merci pour vos réponses, si vous pouvez éventuellement me donner votre avis sur ce code rapide