mise en forme d'une date

[denisbouchard]

Bonjour à tout le forum,
J'ai créé un userform pour inserer une date dans la case A1, je voudrais que si la case de l'userform reste vide la date soit celle du jour, ça pas de problème ça fonctionne. Par contre si l'on rentre une date du style 23/07/12, elle soit reprotée dans la case A1 sous la forme 23/07/2012. Quelqu'un peut-il me donner une astuce?
Merci pour vos futurs réponses.
Cordialement

 

[Cousinhub]

Re : mise en forme d'une date

bonsoir,

Par exemple, comme ceci :

Private Sub BoutonOK_Click()
If IsDate(Me.TextBox1) Then
    Range("A1").Value = CDate(Me.TextBox1)
Else
    Range("A1").Value = Date
End If
 Unload Me
End Sub

Bonne soirée

 

[david84]

Re : mise en forme d'une date

Bonsoir, salut bhbh,
en modifiant ton code comme ceci par exemple :

Private Sub BoutonOK_Click()
 If TextBox1 = Empty Then
  Range("A1") = Date
  Else
   Range("A1") = Format(TextBox1, "mm/dd/yyyy")
 End If
 Unload UserForm1
End Sub

A+

 

[denisbouchard]

Re : mise en forme d'une date

Bonjour et merci a vous bhbh et david84,
je vais de se pas essyer tout ça.
Merci
Denis