Apparition d'un bouton

Bonsoir,
Private Sub TextBox1_Change()
If IsDate(TextBox1) Then
Me.ComboBox1.Visible = True
Else
Me.ComboBox1.Visible = False
End If
End Sub

--
Cordialement
jpmonnier-nospam@neuf.fr
"oliver" <oliver6@free.fr> a écrit dans le message de
news:OfpucpOHJHA.4408@TK2MSFTNGP06.phx.gbl...

Bonjour,
j'aimerais faire apparaitre un bouton dans un userform que si la textbox 1
contiens une date.
Merci

Bonjour,

Je ne suis pas compétent en vbA, mais pour ta date, pour être certain
que tu as une date:

dim estUneDate as date
on error goto erreur
estUneDate = cdate(ta_date)
exit sub
on error resume next
msgbox "la donnée n'est pas une date", vbexclamation


------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm










------------------------------------------------------------------------------------
"oliver" <oliver6@free.fr> a écrit dans le message de news:
OfpucpOHJHA.4408@TK2MSFTNGP06.phx.gbl...
| Bonjour,
| j'aimerais faire apparaitre un bouton dans un userform que si la textbox 1
| contiens une date.
| Merci
|

Bonjour Oliver,


''''''
Private Sub TextBox1_Change()
CommandButton1.Visible = IsDate(TextBox1)
End Sub

Private Sub UserForm_Initialize()
CommandButton1.Visible = False
End Sub
''''''

--
lSteph

(mais attention dès que tu tapes 01/08 par exemple ca suffit pour une
interpretation en date, si tu veux plus contraint exemple 01/01/2008 ou ...
précises)



oliver a écrit :

Bonjour,
j'aimerais faire apparaitre un bouton dans un userform que si la textbox
1 contiens une date.
Merci

..plus précisément:

Private Sub TextBox1_Change()
If Len(TextBox1) = 10 Then
CommandButton1.Visible = IsDate(TextBox1)
Else
CommandButton1.Visible = False
End If
End Sub

Private Sub UserForm_Initialize()
CommandButton1.Visible = False
End Sub

'lSteph