Le fichier à télécharger Class for UserForm Control Enter and Exit Events.xlsm contient:
Les principales caractéristiques:
- Le Class_ControlEnterExit à importer dans le projet VBA.
- Le UserForm1 comme exemple de mise en œuvre.
Les principales caractéristiques:
- Cette Classe permet de gérer les évènements Control_Enter() et Control_Exit() des Controls d'un UserForm qui ne sont pas disponibles en Classe en VBA.
- Grâce à son paramètre ArrayOfBypassExitControls (V2+) qui permet d'indiquer le ou les Controls autorisés à bypasser les évènements Exit(), cette Classe est une solution de contournement au problème ingérable du blocage sur un Cancel = True des évènements Exit() natifs dans le UserForm lorsqu'on veut par exemple sortir du UserForm par un bouton.
- Il existe une méthode trouvée sur stackoverflow.com qui semble fonctionner (testée) mais plus complexe à mettre en œuvre.
Trigger Enter field behaviour through class for a control
I raised a query which now works as per David Zemens' instructions and BrakNicku guidance. Problem is one of the events I want to use is Enter. Within the class, I don't get the option for this ev...stackoverflow.com
- Placer le Module de Classe Class_ControlEnterExit dans la projet VBA.
- Dans le code du UserForm: (voir le UserForm1 du fichier comme exemple)
...- Dans le UserForm déclarer la Classe en respectant son nom ControlEnterExit et dans UserForm_Activate() appeler la fonction d'initialisation de la Classe en indiquant:
- Le UserForm concerné,
- Sous forme d'Array les évènements Enter() et Exit() qui doivent être gérés en utilisant la syntaxe Control TypeName + "_Exit" ou "_Enter", par exemple: Array("TextBox_Exit", "ListBox_Enter"),
- Optionnellement sous forme d'Array les Controls autorisés à bypasser les évènements Exit().
Ou utiliser la fonction ControlEnterExit.SetBypassExitControl(Control).
...VB:'------------------------------------- 'Declaration of Class_ControlEnterExit '------------------------------------- Private ControlEnterExit As New Class_ControlEnterExit '------------------- 'UserForm_Initialize '------------------- Private Sub UserForm_Activate() '--------------------------------------- 'Initilization of Class_ControlEnterExit '--------------------------------------- Call ControlEnterExit.Initialization(Me, _ Array("TextBox_Enter", "TextBox_Exit", "ComboBox_Enter", "ComboBox_Exit"), _ Array(Me.CommandButton_CancelInputAndQuitForm)) End Sub
- Le UserForm concerné,
- Dans le code du UserForm, insérer les fonctions correspondantes déclarées Public et coder les traitements selon les besoins.
-
...VB:
'---------------------------------- 'Generic function for TextBox_Enter '---------------------------------- Public Sub TextBox_Enter(TextBox As MSForms.Control) Call TraceOnSheet("Enter " & TextBox.Name) End Sub '--------------------------------- 'Generic function for TextBox_Exit '--------------------------------- Public Sub TextBox_Exit(TextBox As MSForms.Control, Cancel As Boolean) 'Specific check on TextBox2 If TextBox Is Me.TextBox2 Then If Len(TextBox.Value) = 0 Then MsgBox "TextBox2 must contain a value !" Cancel = True End If End If Call TraceOnSheet("Exit " & TextBox.Name & ", Cancel = " & Cancel) End Sub '----------------------------------- 'Generic function for ComboBox_Enter '----------------------------------- Public Sub ComboBox_Enter(ComboBox As MSForms.Control) Call TraceOnSheet("Enter " & ComboBox.Name) End Sub '---------------------------------- 'Generic function for ComboBox_Exit '---------------------------------- Public Sub ComboBox_Exit(ComboBox As MSForms.Control, Cancel As Boolean) Call TraceOnSheet("Exit " & ComboBox.Name) End Sub
-
- Dans le cas où un Control est dynamiquement créé dans le UserForm après l'initialisation, il sera automatiquement intégré à la liste des instances de la Classe. Si on souhaite qu'il soit un Control autorisé à bypasser les évènements Exit() il faut le déclarer via la fonction ControlEnterExit.SetBypassExitControl(Control).
-
VB:
With Frame1.Controls.Add("forms.TextBox.1") .Left = 54 .Top = 12 .Width = 72 .Height = 18 .Name = "TextBox3" DoEvents End With 'Set TextBox3 as a "Bypass Exit" Control Call ControlEnterExit.SetBypassExitControl(Me.Controls("TextBox3"))
-
- Dans le UserForm déclarer la Classe en respectant son nom ControlEnterExit et dans UserForm_Activate() appeler la fonction d'initialisation de la Classe en indiquant:
- V1 - Initiale.
- V2 - Ajout du paramètre ArrayOfBypassExitControlNames qui permet de lister les noms des Controls qui permettent de bypasser les évènements Exit() et donc éviter les situations de blocage d'un Cancel = True.
- V3 - Détection automatique des ajouts dynamiques de Contols et de la possibilité définir un Control comme autorisé à bypasser les évènements Exit().
- V4 - Correction bug sur captation des évènements UserForm_AddControl() et UserForm_RemoveControl() et ajout de la fonction SetFocus() dans la Classe.
- V5 - Ajout du Control ListView sous condition de variable préprocesseur car nécessite une Référence particulière.
ATTENTION: Modification du type (String -> Control) du 3ème paramètre de la fonction ControlEnterExit.Initialization(). - V6 - Modification du code pour sécuriser la libération de toutes les instances de la classe à la fermeture du UserForm.
- V7 - Sécurise la libération des instances des Controls pour couvrir le cas d'un UserForm Modeless fermé par le menu système (bug Excel).
- Version
- V1