| Cette ressource repose sur une idée originale de @fanch55 adaptée par @patricktoulon et @Dudu2. |
Le fichier à télécharger contient la Class_BuiltInFieldName qui permet de créer les titres des champs en TextBox et ComboBox. et de gérer leur affichage / masquage automatique lors de la saisie.
Cela permet de se passer des Labels pour désigner les titres des champs à saisir, car ces titres sont directement placés dans les champs.
Note: Voir toutes mes ressources -> https://excel-downloads.com/resources/?creator_id=268468
La mise en œuvre est très simple:
- Placer la Class_BuiltInFieldName dans le Projet VBA
- Dans le UserForm, déclarer la Classe et créer les titres des Control TextBox et ComboBox en appelant la fonction SetControlTitle.
Exemple:
VB:Private BuiltInFieldName As New Class_BuiltInFieldName '------------------- 'UserForm_Initialize '------------------- Private Sub UserForm_Initialize() 'Field titles With BuiltInFieldName .SetControlTitle Me.ComboBox1, "Titre" .SetControlTitle Me.TextBox1, "Nom" .SetControlTitle Me.TextBox2, "Prénom", vbBlue End With End Sub
- V1 - Initiale.
- V2 - Code amélioré.
- V3 - Correction bug en création de TextBox titre quand le Control.Parent n'est pas le UserForm
