OVH Cloud OVH Cloud

Now()

15 réponses
Avatar
JP
Bonjour,
=20
J'ai une textbox qui est compl=E9t=E9e par la ligne suivante:
TextBox1.Value =3D Application.Index(Sheets("Dates PFMP").Range("D:D"), App=
lication.Match(ComboBox1.Value, Sheets("Dates PFMP").Range("A:A"), 0))

Je voudrai faire un test sur la textbox1 de fa=E7on =E0 ce que si la date i=
nscrite dansla textbox1 est sup=E9rieure =E0 celle du jour la textbox1.blac=
kcolor soit verte.
Voila ce que j'ai =E9cris mais, ... elle est toujours verte.

Private Sub TextBox1_Change()
If TextBox1 > Now() Then
TextBox1.BackColor =3D &HFF00&
Else
End If

End Sub

Une id=E9e, svp!
Merci

JP

5 réponses

1 2
Avatar
JP
Merci à vous deux. Je retiens la solution de JJ que je vais réexploiter sur d'autres userforms.

Grand merci et respect à vous deux

JP
Avatar
Jacky
Re...
Si dans la finalité ce formulaire ne doit que "afficher/imprimer" les données, il vaudrait mieux utiliser des
"Labels" que des "textboxs"



--
Salutations
JJ


"JP" a écrit dans le message de news:

Merci à vous deux. Je retiens la solution de JJ que je vais réexploiter sur d'autres userforms.

Grand merci et respect à vous deux

JP
Avatar
JP
Oui, tu as raison. Pour ce formulaire, je laisse comme ça. En revanche po ur le suivant le vais faire avec les labels.
Merci encore et à bientôt pour d'autres conseils

JP

Le samedi 24 novembre 2012 11:45:34 UTC+1, Jacky a écrit :
Re...

>Si dans la finalité ce formulaire ne doit que "afficher/imprimer" les données, il vaudrait mieux utiliser des

>"Labels" que des "textboxs"



--

Salutations

JJ


Avatar
Jacky
:o)
http://cjoint.com/?BKypfo5j1fU

--
Salutations
JJ


"JP" a écrit dans le message de news:

Oui, tu as raison. Pour ce formulaire, je laisse comme ça. En revanche pour le suivant le vais faire avec les
labels.
Merci encore et à bientôt pour d'autres conseils

JP
Avatar
JP
super, tu travailles plus vite que moi et les macros s'en trouvent raccourcies.


JP
1 2