condition si dans textbox

[gusgus89]

Bonjour,

J'ai besoin d'un petit coup de pouce.

Quel la formule VBA pour traduire ceci :
en admettant que Textbox1 = 16/01/2012

Si Textbox1 < Date d'aujourd'hui alors "à relancer" sinon ""

Le résultat sera dans Textbox2

Merci d'avance.

 

[fhoest]

Re : condition si dans textbox

Bonjour

if cdate(textbox1.text)<date then 
relancer
else:
autre chose
end if

A+

 

[gusgus89]

Re : condition si dans textbox

ça ne marche pa

 

[gusgus89]

Re : condition si dans textbox

le message d'erreur suivant s'affiche :
Erreur de compilation :
Attendu : numéro de ligne ou étiquette ou instruction ou fin instruction

relance et autre chose se mettent en rouge

 

[fhoest]

Re : condition si dans textbox

Re,
Evidemment relance et autre chose sont les instructions que tu dois mettre:
exemple:

if cdate(textbox1.text)<date then
msgbox"relancer"
else:
msgbox"autre chose"
end if

je ne sais rien dire de plus vu que je n'ai pas ton fichier sous les yeux.
A+

 

[gusgus89]

Re : condition si dans textbox

merci ça marche, j'ai fait :

Private Sub TextBox9_Change()
If CDate(TextBox8.Text) < Date Then
TextBox9 = "à relancer"
Else
TextBox9 = ""
End If
End Sub