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

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2012

• #2

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

Bonjour,

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

Code:

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
@+

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Mai 2012

• #3

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2012

• #4

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

Cliquez pour agrandir...

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....

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Mai 2012

• #5

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2012

• #6

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 !!!!!

Cliquez pour agrandir...

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
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2012

• #7

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

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Mai 2012

• #8

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

 

Dernière édition: 25 Mai 2012

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Mai 2012

• #9

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

Re,

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

 

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Mai 2012

• #10

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

oups
je me confonds en excuses !!!vraiment dsl

 

Pièces jointes

• Essais E et F.xls

  165.5 KB · Affichages: 38
• Essais E et F.xls

  165.5 KB · Affichages: 36
• Essais E et F.xls

  165.5 KB · Affichages: 40

Vote positif 0 Vote négatif

E

Evelynetfrancois

XLDnaute Impliqué

• 25 Mai 2012

• #11

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

 

Pièces jointes

• Essais E et F.xls

  167.5 KB · Affichages: 68
• Essais E et F.xls

  167.5 KB · Affichages: 67
• Essais E et F.xls

  167.5 KB · Affichages: 69

Dernière édition: 25 Mai 2012

Vote positif 0 Vote négatif