mise en forme d'une date

denisbouchard · 23 Juillet 2012

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 · 23 Juillet 2012

Re : mise en forme d'une date

bonsoir,

Par exemple, comme ceci :

Code:

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 · 23 Juillet 2012

Re : mise en forme d'une date

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

Code:

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 · 24 Juillet 2012

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

mise en forme d'une date

denisbouchard

XLDnaute Junior

Pièces jointes

Cousinhub

XLDnaute Barbatruc

david84

XLDnaute Barbatruc

denisbouchard

XLDnaute Junior

Discussions similaires