Discussion :

[mouftie]

Bonjour,
J'ai fait un USF pour remplir un tableau, avec 2 boutons Ok et Annulation
Je fait mes validations de textBox et autres objets à travers des Sub Tbx1_Enter ou Sub Tbx1_Change ou encore Sub Tbx1_AfterUpdate...
J'ai 2 Pb (pour l'instand...)
1er Pb :
la première Tbx est la saisie d'un NIR ; comme j'ai prévu un format NIR, je ne veux pas que l'utilisateur insert des espaces. J'ai donc écrit :

Code :

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

1
2
3
4
Sub TbxNir_Enter()
TbxNir.HideSelection = True
TbxNir = "Ne pas saisir les espaces"
End Sub

Le problème c'est que je voudrais que ce texte soit sélectionnée à l'ouverture de l'USF, afin d'éviter à l'utilisateur de le faire. J'ai essayé comme ci-dessus la propriété HideSelection ou dans un Usfinitialise, mais cela ne fonctionne pas.

2ème Pb :
c'est que si l'utilisateur décide de fermer l'usf sans avoir rempli le nir (par exemple) ou seulement une partie, j'ai le message

Code :

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

"Votre Nir ne contient pas 18 caractères"

qui fait partie d'une procédure TbxNir_Exit, qui s'affiche, l'utilisateur doit donc cliquer sur le Ok du message puis une 2ème fois sur annuler de l'USF pour sortir complètement de l'usf.
Y a-t-il un moyen d'éviter cela ?

Merci de vos conseils.

[patricktoulon]

le b a ba
fait une recherche sur selstart et sellength
ensuite plutot que cela tu peut bloquer la touche espace pour le/tout les textbox que tu veux
perso je ferait cela moi

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 32 Then KeyAscii = 0
End Sub

essaie maintenant de taper un espace dans ton textbox
tout simplement
voila

[mouftie]

Bonsoir Patrick,

Merci pour tes réponses fort judicieuses ; cela répond pleinement à mon 1er Pb ; j'ai fait la même chose pour mes dates, avec KeyAscii = 47 pour les "/".

Merci beaucoup également pour la sélection avec selstart et sellength ; j'avais regardé dans l'aide, mais je n'avais pas compris le fonctionnement de ces propriétés

Est-ce que tu as une idée pour mon 2ème pb, stp.

[joe.levrai]

Bonjour mouftie

si tu places le contrôle de saisie du NIR dans la procédure de validation du formulaire, tu n'auras plus le soucis si l'utilisateur clique sur "ANNULER" je pense ?

par contre, du coup, ce contrôle ne sera plus effectué en sortie du textbox

[patricktoulon]

re

2ème Pb :
c'est que si l'utilisateur décide de fermer l'usf sans avoir rempli le nir (par exemple) ou seulement une partie, j'ai le message

Code :

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

"Votre Nir ne contient pas 18 caractères"
qui fait partie d'une procédure TbxNir_Exit, qui s'affiche, l'utilisateur doit donc cliquer sur le Ok du message puis une 2ème fois sur annuler de l'USF pour sortir complètement de l'usf.
Y a-t-il un moyen d'éviter cela ?

Merci de vos conseils

je suppose que un

Code :

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

 if len(textbox1.value)<18 then msgbox "non!non! ya pas 18 lettres":cancel=true

suffirait

[joe.levrai]

Il faut quand même qu'elle sorte son test des évènements de ce textbox non ?

Le contexte est que l'utilisateur peut choisir d'annuler et quitter le formulaire à n'importe quel moment, y comprit quand il a commencé à saisir dans ce textbox. Si on place ce contrôle dans l'évènement de textbox, quand il va cliquer sur le bouton, on active l'évènement Exit du textbox avant l'évènement clic du bouton

Ou alors, ruse .... on met un label à côté de la zone (ou tout artifice de ce type), et c'est lui qui indique le message d'erreur histoire de pas se manger une boite de dialogue modale (le MsgBox) ?