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.
Dans la macro : Private Sub CommandButton1_Click()
Il y a :
Code:
For x = 0 To 4
dest.Offset(0, x).Value = Me.Controls("TextBox" & x + 1).Value
Next x
À esayer :
Code:
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
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
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+
Dans le même esprit que Si... "Pourquoi cette boucle ainsi ?????"
Voila ce que je mettrais
VB:
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