XL 2016 VBA - Évènement TextBox_Enter() non géré en module de Classe

[Dudu2]

Bonjour,
Alors l'évènement _Enter() n'est pas géré en Classe ? Une solution ?

 

[fanch55]

Saut @Dudu2,
J'ai testé:

Classe de TextBox et événements Exit et Enter

Bonjour, Suite à cette discussion, et, plus particulièrement, ce code d'ucfoutu, je me suis dit qu'il serait agréable de créer un objet personnalisé "TextBox_Date". Souhaitant donc créer une classe de textbox, et afin de contrôler leur...

codes-sources.commentcamarche.net

Cela semble fonctionner

 

[patricktoulon]

re
l'astuce est simple
les classe gèrent les events mose_....
et un des arguments qui est button
qui permet d'avoir le mêm comportement
donc avec mon astuce d'instance commune de classe à toutes les autres

on devrait te donner le même résultat
allez démonstration

 

[fanch55]

Salut @patricktoulon ,
Ton code fonctionne correctement avec la souris, pas le clavier .
Celui que j'ai récupéré au post #2 semble fonctionner également au clavier

 

[patricktoulon]

Bonjour @fanch55
utilise le TxtB_click alors qui est declenché par sélection par touche de tabulation aussi

 

[patricktoulon]

re
@fanch55
non il ne fonctionne pas correctement au click(souris)

 

[Dudu2]

Salut le premiers de la Classe,

@fanch55, le code auquel tu fais référence est celui qui commence par ça ?

Public Sub Entrer()
Attribute Entrer.VB_UserMemId = -2147384830

Je sais pas où le gars a trouvé un truc pareil mais ça vient de l'espace !

@patricktoulon,
Pareil, je sais pas où t'as trouvé une astuce pareille mais j'en reste coi !
Merci pour la vidéo explicative !

Merci à tous les deux, je continue à suivre de près vos réflexions mutuelles sur les solutions proposées.

 

[patricktoulon]

re

@Dudu2

Pareil, je sais pas où t'as trouvé une astuce pareille mais je reste coi !

tout simplement en connaissant bien les events et leur comprotement particuliers en certains cas

je suis en train de te l'adapter au touche je reviens plus tard
tu veux les touches
9 tabulation ok (simple)
13 enter ok (simple)
38 flèche haut(c'est plus compliqué dans le sens ou le textbox du dessus n'est pas forcement le tabindex -1)
40 flèche bas (idem que touche 38 même punition)
37 flèche gauche ok (simple)
39 flèche droite ok (simple)
sinon avec touches tab et enter j'ai déja réglé le problème
dans le sens ou je lui fait faire la même chose qu'en temps normal c'est a dire tab ou enter passe au taindex suivant
si tu me dis que les flèches tu t'en sert pas je suis bon pour l'event enter et exit complet

 

[Dudu2]

Concernant l'éditeur VBA, comment fais-tu pour avoir le "smart indent" ?
Ça c'est mon menu contextuel, rien de tel !

 

[Dudu2]

Pourquoi tu veux l'adapter aux touches ?
Avec l'évènement Private Sub TxtB_Click() à la place du MouseUp ça marche avec toutes les touches.

 

[patricktoulon]

re
pour le smart indent je l'ai installer c'est tout
sauf qu'il n'est plus mis ajour depuis vb6 2007
mais de la même manière que l'installation de l'ocx pour le listview
si on le fait a la main (voir même avec un petit bat
on peut l'installer sur 32 et 64

 

[patricktoulon]

re

Pourquoi tu veux l'adapter aux touches ?
Avec l'évènement Private Sub TxtB_Click() à la place du MouseUp ça marche avec toutes les touches.

re non c'est moi qui t'ai induit en erreur toute à l'heure
l'events NonDuTextBox_click() n'existe pas

 

[Dudu2]

Ah oui, je me suis mélangé les crayons avec tes 2 UserForms.

 

[patricktoulon]

l'un c'est d'origine le(2)
l'autre est géré par la classe c'est le (1)

 

[patricktoulon]

re

je te fait un pack si tu veux