Adapter un format sur une cellule
Bonjour a toutes et tous, Forum bonjour
Je récupère une date dans mon TextBox4 au format suivant 22/Oct/2013
je souhaiterai svp copier cette date dans ma feuil(Compte) en B27 également et excatement au mème format
j'ai modifier le format de la cellule mais je n'arrive pas a obtenir le bon format voulu dans ma cellule B27 malgré pleins d'essais :cry:
en fait ca copie sous ce format 22/10/2013 alors que je souhaite 22/Oct/2013 première lettre du mois en majuscule
Info: Ws = nom de ma feuil1 > (Compte)
En vous remerciant pour votre aide et pour votre temps
Bonne journée a tous
Cordialement Ray
Code:
1 2 3 4 5 6 7 8 9 10 11
|
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
UserForm1.TextBox4.Value = Application.Proper(Format(UserForm2.MonthView1.Value, "dd/mmm/yyyy"))
DateExpiration = UserForm1.TextBox4.Value
Ws.Range("B27") = DateExpiration
Unload Me
End Sub |