TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

[Evelynetfrancois]

Bonjour tout le monde
Voici ma question
Pour ammeliorer la lisibilite des dates dans une TextBox
Est il possible de changer le BackColor du TextBox en fonction de la date qu’il contient
Date remplie par :
(TextBox1.Tag = Sheets("accueil").Range("a1").Value)

En clair du lundi au vendredi = TextBox1.BackColor vert &H0000C000&
Et samedi / dimanche TextBox1.BackColor = rouge &H000000C0&

Je vous remercie d'avance pour toutes vos idées
je ne suis pas du tout dans l'urgence
Bonne journée à tous
E et F

 

[Pierrot93]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

Bonjour,

pour un "textbox" placé sur un usf, à utiliser dans le module de celui-ci :

Option Explicit
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsDate(TextBox1) Then TextBox1.BackColor = IIf(Weekday(CDate(TextBox1), 2) > 5, &HC0&, &HC000&)
End Sub

bonne journée
@+

 

[Evelynetfrancois]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

bonjour pierrot93

Je te remercie de te pencher sur mon problème
Cependant la macro que tu me proposes n'a pas d effet sur mon textbox
Quand je serais a la maison...........
Je vais réaliser un exemple light de mon usf pour plus de précisions (le problème est peut être là)
Merci encore mille fois
A bientôt
E et F

 

[Pierrot93]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

Re,

Cependant la macro que tu me proposes n'a pas d effet sur mon textbox

aarf comprends pas, fonctionne chez moi à la sortie du "textbox".... tu as bien saisie une date ? mets un point d'arrêt en début de procédure et exécute le code pas à pas....

 

[Evelynetfrancois]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

re pierrot93
oups je pense que je me suis peut etre mal expliqué
pourquoi à la sortie du tb ?
Dans mon cas , à l initialisation de l usf, le tb se rempli de la date qui se trouve dans "accueil" range a1 (TextBox1.Tag = Sheets("accueil").Range("a1").Value) sous la forme visuelle " vendredi 25 mai "

Sheets("accueil").Range("a1") = CDate(TextBox1.Tag)

mon souhait est
si lundi au vendredi = TextBox1.BackColor vert
si samedi / dimanche TextBox1.BackColor = rouge

cette aprem je ferais un exemple et relancerais la question , je pense que se sera beaucoup plus clair
merci encore pour tout !!!!!
E et F

 

[Pierrot93]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

Re,

cette aprem je ferais un exemple et relancerais la question , je pense que se sera beaucoup plus clair
merci encore pour tout !!!!!

oui je pense, en l'état tu alimente la propriété "tag" de ton textbox, ce n'est pas celle que l'utilisateur visualise sur l'usf....

bon après midi
@+

 

[Pierrot93]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

Re,

pour mettre la couleur lors de l'initialisation de l'usf :

Private Sub UserForm_Initialize()
With TextBox1
    .Value = Date
    .BackColor = IIf(Weekday(CDate(.Value), 2) > 5, &HC0&, &HC000&)
End With
End Sub

 

[Evelynetfrancois]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

re
voila j’ai épluché complètement le dossier joint pour ne garder que l’essentiel

un exemple est bien plus parlant que tout
je procède peut être mal au niveau des dates ?

a voir
merci pour tout
E et F

 

[Pierrot93]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

Re,

le code vba est protégé.....

 

[Evelynetfrancois]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

oups
je me confonds en excuses !!!vraiment dsl

 

[Evelynetfrancois]

Re : TextBox1.BackColor =&H0000C000& ou &H000000C0& suivant la date

un tres grand merci a pierrot93 qui ma mis sur la bonne voie pour trouver
tout marche maintenant a merveille (ci joint le fichier adapté grace a l aide de pierrot93)
vous etes super geniaux !!!!!
Merci beaucoup
E et F