Data & numeric

[Temjeh]

Bonjour le forum

J'ai un bug dans mon code et une idée serais d'une grande valeur.

If IsNumeric(TextBox3) Then
MsgBox 'Ne pas mettre de valeur numérique pour la ville!'
TextBox3.SetFocus
Exit Sub

Le bug est que je veut aucune numeric. Avec mon code il met le message si il y a du numeric seul mais si il y a les deux il l'accepte.

Merci de votre temps

Temjeh

 

[Creepy]

hello,

Je ne vois pas trop de solution parce que le problème c'est que quand tu maries du texte et des chiffres par defaut excel considère l'ensemble comme du texte.

la seule soltution serait de faire le t est sur chaque caractère, en recuperant son code asci.

et apres sir code asci compris entre X et Y alors = nombre et donc pas bon.

Recherche sur le forum, je crois que j'avais vu quelque chose à ce sujet.

++

Creepy

 

[PascalXLD]

Bonjour

il ya un fil de quelques jours avec un test sur tous les caractères

J'essaies de te le retrouver

 

[Temjeh]

Merci Creepy

Oui tu as raison c'est ptêtre un peut compliqué. En te lisant j'ai pensée que je ne veut pas de numeric pour la première lettre car après il selectionne la sheet de la feuil(1ère lettre de textbox3) donc je règle ca comme ca:

If IsNumeric(Left(TextBox3, 1)) Then
MsgBox 'Ne pas mettre de valeur numérique pour la ville au début!'
TextBox3.SetFocus
Exit Sub

 

[PascalXLD]

Re

Voici le fil

Lien supprimé

Bon courage

 

[Temjeh]

Merci Pascal, Creepy... je jette un coup d'oeuil

A+

Cordialement, Temjeh