Macros pour attribution des couleurs aux champs de texte, Excel VBA

Si vous le souhaitez, vous pouvez utiliser un arrière-plan de couleur différente pour les champs de texte dès que le champ de texte correspondant est activé. Alors vous pouvez attribuer la couleur d’arrière-plan rouge au champ de texte actuellement actif dès que vous utilisez la souris ou le bouton  le bouton l pour accéder au champ de texte.

Pour implémenter cette fonctionnalité, procédez comme suite:

1. Double-cliquez sur le premier champ de texte dans l’UserForm.

2. Définissez l’événement Textbox1_Enter et appelez la macro BackgroundColors dans l’événement. L’événement Textbox1_ Enter se produit automatiquement lorsque le champ de texte correspondant est activé.

3. Maintenant, écrivez la macro BackgroundColors.

Private Sub BackgroundColoring ()

       Me.ActiveControl.BackColor = RGB (255, 0, 0)

End Sub

4. Assurez-vous maintenant que l’arrière-plan est réinitialisé à la valeur d’origine après avoir quitté le champ de texte. Pour ce faire, définissez l’événement Textbox1_Exit, qui se produit automatiquement lorsque vous quittez le champ de texte spécifié. Appelez la macro Réinitialiser l’arrière-plan dans l’événement.

Private Sub BackgroundReset ()

       Me.ActiveControl.BackColor = RGB (255, 255, 255)

End Sub

5. Définissez maintenant les deux événements Textbox_Enter et Textbox_Exit pour les champs de texte individuels dans UserForm. Utilisez le  suivant comme guide.

Private Sub TextBox1_Enter ()

       BackgroundColoring

End Sub

Private Sub TextBox1_Exit _

      (ByVal Cancel As MSForms.ReturnBoolean)

       BackgroundReset

End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x