Discussion :

[iliesss]

Bonsoir
J'ai lu cette discussion.
merci pour tous les gents qui développent ce joli travail et qui participent avec leurs idées
J'ai suivi toutes les étapes et ça marche très bien sauf que le curseur se trouve a la fin de mon TextBox1
Svp comment je le position au début de mon TextBox1


et voici mon fichier Démo

[patricktoulon]

bonjour
je te propose une autre solution
elle est vallable pour les format jour/mois/année OU mois jour année (dd/mm/yyyy)ou (mm/dd/yyyy)

1. elle donne la possibilité de revenir en arriere avec la touche back (le masque se remet en place )
2. d'utiliser la touche suppr pour effacer un segment (le masque se remet en place )
3. le carret(ou curseur) suit la progression
4. c'est vallable pour les textbox dans userform ou textbox sur sheets
5. si tu tape une donnée non valide elle s'annule exemple 31/02 le 02 s'efface
6. si tu demarre avec 33 ca s'annule aussi
7. si la date entiere n'est pas valide a la fin l'année s'annule

c'est une simple sub :c'est d'ailleur la meme dans le module du sheet(1) et le module du userform

fichier en demo

[iliesss]

Merci beaucoup Mr Patricktoulon c'est un très propre et joli travail

[iliesss]

Svp Mr Patricktoulon
après la saisie de la date dans TextBox1 et lorsque je clic sur entrée pour déplacer vert TextBox2 le curseur ne se déplace pas

[patricktoulon]

re
je ne crois pas me souvenir de l'avoir prevu il faut l'ajouter
dans le select case keycode tu l'ajoute juste avant le case else

cet exemple est valable dans mon model
je t'empeche de sortir si il reste un tiret dans le textbox

Code :

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

1
2
3
4
5
6
7
8
 
Case 13
        X = txt.TabIndex
        If txt.Value Like "*_*" Then
            KeyCode = 0
        Else
            With txt.Parent.Controls(X + 1): .SetFocus: .SelStart = 0: End With
        End If

a ameliorer bien sur j'ai pas prevu tout les cas de figure

[iliesss]

Bonjour
Bravo Mr patricktoulon
Ça marche très bien

[Pierre Fauconnier]

Je suis très dubitatif sur le fait de vouloir imposer une saisie de type aaaa/mm/jj pour "faciliter" le travail du développeur. J'imagine l'ire des utilisatrices et utilisateurs francophones devant saisir une date sous ce format . C'est un peu comme si tu imposais la saisie de texte dans une langue dans Word parce que ton correcteur ne fonctionne que dans cette langue. Ca ne tient pas la route

De toute façon, cela ne règlerait aucun problème, car tous ces artifices présupposent que ce qui a déjà été saisi dans le textbox est correct. Ca veut dire que si tu saisis 2018, tu ne peux pas saisir /02/29 derrière alors que ce qui est erroné, ce n'est pas pas forcément 29 mais cela pourrait être 2018.

[pijaku]

Ce n'est pas imposer le format aaaa/mm/jj, c'est laisser le choix au développeur du format, parmis ceux proposés par l'application...
Ensuite, nous sommes d'accord, certaines informations imposent un contrôle a posteriori. D'autres peuvent être traitées a priori...
Bisous

[pijaku]

Le code, pour un développeur voulant utiliser cette solution, se résumera à écrire :

Code :

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

1
2
3
Private Sub TextBox1_evenementchoisi(ByVal machin As ..., Truc As ...)
  Saisie_mask_Ctrl TextBox1, machin, format:="mm/jj/aaaa", truc, bidule, etc...
End Sub

On reste simple. Le reste est géré par la Sub Saisie_mask_Ctrl

Je n'en suis vraiment pas loin, mais j'ai encore beaucoup de taf. En effet, je ne maîtrise que très peu:
- la notion de date sous Excel et VBA, (handicapant non?)
- la notion de format avec ses subtilités (*, ?, #, 0, @, etc...)

Donc, du boulot en perspective... Potasser l'aide interne sur l'opérateur Like me semble un bon départ.

A moins que quelqu'un ici veuille bien m'assister...

@patrick : merci de ne pas parler en mon nom ici. J'ai suffisamment développé sur mon incapacité à terminer ce code. Donc ne parle pas des essais que je t'ai transmis.
Merci à toi.

EDIT : s'il y a 10530 affichages et donc lecture de ce sujet depuis 10 ans, c'est qu'il intéresse du monde... plus de 1000 par an...
Ça vaut peut être le coup de le résoudre (même si la classe de Tirex (salutations au passage l'ami d'un ami...), est une bonne solution)...

[Pierre Fauconnier]

Salut.

Vouloir contrôler la saisie dans un textbox est une gageure, la plupart du temps. La meilleure solution reste selon moi de tester après coup que la saisie correspond au pattern et à une date valide. Les élucubrations de code pour contrôler en cours de saisie seront inévitablement battues en brèche lors des tests.

On l'a dit des dizaines de fois sur ce forum, mais certains s'amusent à proposer des solutions foireuses. Cela en devient désespérant.

Je suppose que la solution a été "testée" en saisissant une date...




Juste lamentable!

[patricktoulon]

re
pour les lettres j'ai juste oublié de remettre le
case else:keycode=0

[iliesss]

Bonjour Mr patricktoulon
Je suis en déplacement et après mon retour je vais essayé votre code
Merci

[Pierre Fauconnier]

re
pour les lettres j'ai juste oublié de remettre le
case else:keycode=0

Ce serait bien que les solutions proposées le soient sans les "j'ai juste oublié"... Histoire que l'on puisse tester et casser le patch suivant ^^

[Pierre Fauconnier]

juste histoire de montrer que ce n'est pas juste une histoire de lettres











On va continuer longtemps à perdre son temps avec ce genre de c***?

[pijaku]

Bonjour,

Pierre,
Tu abuses, tu n'as pas corrigé le case else:keycode=0


Mais, même avec :

Erreur fatale :






Saisie pour le moins fantaisiste (comme la sortie du textbox a été possible, il est validé) :

[Pierre Fauconnier]

hélas, on pourrait continuer comme cela longtemps. La saisie suivante a été validée...



C'est vraiment du n'importe quoi!

PS:

Bonjour,

Pierre,
Tu abuses, tu n'as pas corrigé le case else:keycode=0[...]

Ce n'est pas au demandeur à corriger le code des "solutions" proposées, me semble-t-il...

[pijaku]

hélas, on pourrait continuer comme cela longtemps.

Yep!

La saisie suivante a été validée...

Celle-ci également (je l'ai appelé "saisie date futuriste") :



EDIT :
Sans parler du :

Code :

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

Case Is >= 95 And KeyCode <= 105

• KeyCode 95 : SLEEP/STANDBY KEY ON KEYBOARD

[patricktoulon]

re
vous tracassez pas la tete j'ai trouvé en changeant de strategie et le code en est moins lourd
plus aucun autre caracteres autre que 0 a 9 et "/" n'est possible
impossible de deloger les "/" de leur place

[pijaku]

Patrick,

Peux-tu nous communiquer ce code?

[iliesss]

bonjour Mr patrick
désolé pour ce retard j’étais en déplacement
j'ai essaye votre dernier code et ça marche très même avec une date de 31/02/2018 ou 29/02/2018 il indique l’erreur de saisie.
Merci