Discussion :

[Delbeke]

Il te faut repenser completement tes procèdures alors. Ce type de traitement était valable dans le cas de programmes procèduraux, maintenant avec de l'evenementiel, tu ne peux plus gérer uen routine de controle de saisie clavier, c'est quasi infaisable
Pense : un operateur déplace le curseur sur le 3 eme caratère et appuie sur backspace ou del, ou selctionne le 2 au 4° caratère et retappes d'autre données. Ton controle de saisie caractère par caractère ne pourra tout simplement pas fonctionner, voire même se declencher.
Par contre l'evenement _Change sera déclenché à chaque fois que le contenu du textbox sera changé, fais ta validation cde sPrefix dans le _change, c'est pas pire que dans le _keypres et tu sera débarrasé du controle touche par touche

[new_wave]

Merci beaucoup Delbecque,

Enfin quelqu'un qui se met à ma place.
Bien, tu veux donc dire que l'argument de TextChange serait sPrefix ou est ce que cela resterait KeyAscii?

Merci beaucoup de ton aide.
Nathalie

[leteltel]

je crois pas qu'il y a d'argument a text_change

[AlainTech]

Enfin quelqu'un qui se met à ma place.

Merci pour tous ceux qui t'on dit quoi faire jusqu'ici!!!

Il va être vraiment temps que tu te mettes à étudier ce que tu veux mettre en oeuvre plutôt que venir pleurer qu'on ne veut pas t'aider.

[new_wave]

J'ai essayé avec cet evènement mais je reçois dès la première saisie le message d'eeruer que je ne peux saisir que des nombres.
Prend il donc en compte le focus?

Nathalie

[Delbeke]

Code :

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

1
2
3
4
 
Private Sub Text3_Change()
  sPrefix = Text3.text
end sub

Je vois pas de test sur les nombres ici
Si tu veux ajouter un test sur les nombres ajoute ceci (fais à la volée, donc pourait contenir quelques errreurs)

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
 
Private Sub Text3_Change()
  Dim ok as Boolean
  Dim iPnt as Integer
  Ok= true
  for ipnt=1 to len(text3.text)
     if not isnumeric(mid(text3.txt,ipnt,1)) then
           msgbox "Veuillez ne saisir que des Nombre Svp"
           ok= false
           exit for
     end if
   next
  if ok then
   sPrefix = Text3.text
 end if
 
end sub

[new_wave]

Merci pour vos conseils.
Je dois repenser mon code mais c'est Text1_Change est le bon evènement.

Nathalie

[AlainTech]

Ah, quand même!

Il t'en a fallu du temps pour t'en rendre compte.

J'espère que, la prochaine fois, tu écouteras les conseils qu'on te donne plutôt que de t'accrocher à tes convictions.

Juste un truc, encore. Pour dire qu'un sujet est résolu, c'est avec le bouton en bas de page et pas dans le titre du dernier message.