Date - TextBox

[lynyrd]

Bonsoir le forum
Dans le formulaire,la TextBox1 est reliée à un calendrier.
Lorsque je sélectionne par exemple le 01/10/2012,la date s'inscrit en 10/01/2012 dans la Feuille2.
Y aurait t'il un formatage date à faire sur la TextBox?
Merci.

 

[Gelinotte]

Re : Date - TextBox

Bonsoir,

Dans la macro : Private Sub CommandButton1_Click()

Il y a :

For x = 0 To 4
    
    dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x

À esayer :

For x = 1 To 4
    dest.Value = Format((Me.Controls("TextBox1").Value), "dd/mm/yyyy;@")
    dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x

G

 

[lynyrd]

Re : Date - TextBox

Merci
Ca fonctionne parfaitement.
Bon Week end
A+

 

[lynyrd]

Re : Date - TextBox

Je me suis avancé trop vite,en fait ca ne fonctionne pas
A+

 

[Gelinotte]

Re : Date - TextBox

Bonsoir,

Et ainsi ...

For x = 1 To 4
     dest.Value = Format((Me.Controls("TextBox1").Value), "dd/mm/yyyy;@")
     dest.NumberFormat = "dd/mm/yyyy;@"
     dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
 Next x

G

 

[lynyrd]

Re : Date - TextBox

Re
J'ai essayé avec ceci

For x = 1 To 4
dest.Value = Format((Me.Controls("TextBox1").Value), "yyyy/mm/dd;@")
dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x

Et en colonne A de la feuil2 formatage personalisé (aaaa/mm/jj) et lorsque je sélectionne la combo1 la date se remet au format français (jj/mm/aaaa).
Merci pour ton aide.
A+

 

[Gelinotte]

Re : Date - TextBox

Bonsoir,

Et en ajoutant la ligne : dest.NumberFormat = "dd/mm/yyyy;@", tel qu'au post #5 ?

En fait, quel est le format de date désiré dans la feuille ?

G

 

[Si...]

Re : Date - TextBox

salut

bizarre ta boucle : je ne vois qu'un contrôle avec une date !
A adapter :

dest.Offset(0,1).Value = Format(Month(Textbox1) & "/" & Day(Textbox1) & "/" & Year(TextBox1), "mm/dd/yyyy")

 

[ChTi160]

Re : Date - TextBox

Bonjour lynyrd
Bonjour le Fil
Bonjour Le Forum

Dans le même esprit que Si... "Pourquoi cette boucle ainsi ?????"
Voila ce que je mettrais

With dest
    .Value = Format((Me.Controls("TextBox1").Value), "yyyy/mm/dd;@")
For x = 1 To 4
    .Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x
End With

je ne résous pas le problème ,mais je simplifie la procédure Lol
Bonne Journée
Amicalement
Jean Marie