Convertir formule en VB

[chaelie2015]

Bonsoir Forum
je souhaite a voir le code de cette formule
Dans mon USF:
si ComboBox1 contient le mot "Date" alors TextBox1 (format date (dd/mm/yyyy) et afficher image1

Nb : format date :TextBox1.Value = Format(TextBox1, "dd/mm/yyyy")
Edit:
voici ce que je propose !!!????
TextBox1.Value = IIf(ComboBox1.Text = "Expéditeur - Date d'envoie" Or ComboBox1.Text = "Direction - Date d'arrivée" Or ComboBox1.Text = "Département - Date d'enregistrement", Format(TextBox1, "dd/mm/yyyy"), Format(TextBox1, ""))

Image1.Visible = IIf(ComboBox1.Text = "Expéditeur - Date d'envoie" Or ComboBox1.Text = "Direction - Date d'arrivée" Or ComboBox1.Text = "Département - Date d'enregistrement", True, False)

A+

 

[job75]

Bonjour chaelie2015,

si ComboBox1 contient le mot "Date" alors

TextBox1 = IIf(InStr(ComboBox1, "Date"), Date, "")
Image1.Visible = TextBox1 <> ""

A+

 

[chaelie2015]

Bonjour JOB
C'est parfait
Bonne journée
Bon Week end
a+