Discussion :

[NEC14]

Bonjour,

J'ai ce code qui place une date dans un TextBox dans un formulaire.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
FrmOp.T1. Value=Date
FrmOp.T2.value=Date

Je souhaiterai que le format date soit : Jeudi 04 décembre 2008
Comment puis-je faire ?
J'ai essayé comme ç : T2.value=Format(T2.value,"dd mmmm yyyy")
mais ça ne marche pas.
Merci pour votre aide

[squall62]

Salut

Essaie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

T2.value = Format(T2.value, "dddd d mmmm yyyy")

[NEC14]

Salut

Essaie :
T2.value = Format(T2.value, "dddd d mmmm yyyy")

Super ça marche.
Par contre j'ai 2 boutons, un + et un - qui ajoute ou diminue la date d'un jour à chaque click, mais ça ne marche plus.
J'avais écrit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
FrmOp.T2=Cdate(T2) +1

[ucfoutu]

Bonjour,

ouvre ton aide en ligne (nécessaire quand même, de temps à autre) sur le mot DateAdd

EDIT :

Ca y est ?
Bon...
tu sais maintenant que tu ne peux travailler avec une date que si elle en est une.
Ni ton + 1 ni le DateAdd ne sauraient utiliser ce que tu as dans ta textbox, sous le format (ce n'est plus une date) d'affichage que tu as utilisé...
On fait alors travailler ses méninges...
Voilà :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
  toto = Format(Mid(T2.Text, InStr(T2.Text, " ")), "dd/mm/yyyy")
  T2.Text = Format(DateValue(toto) + 1, "dddd d mmmm yyyy")
  'ou (les trois sont valables)
  'T2.Text = Format(DateAdd("d", 1, toto), "dddd d mmmm yyyy")
  'ou
  'T2.Text = Format(DateSerial(Year(toto), Month(toto), Day(toto) + 1), "dddd d mmmm yyyy")
End Sub

Les chemins sont divers, pourvu que la cohérence soit là (et la cohérence, c'est travailler avec une date)

[pgz]

Bonjour.

Comme dit ucfoutu, il y a beaucoup de solutions. En voici une autre : utiliser la propriété Tag de la Textbox pour mémoriser la date non formatée.

Dans le programme d'appel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
UserForm1.TextBox1.Tag = Date
UserForm1.TextBox1.Value = Format(CDate(UserForm1.TextBox1.Tag), "dddd d mmmm yyyy")
UserForm1.Show

Pour le bouton de commande "+1"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton1_Click()
Me.TextBox1.Tag = CDate(Me.TextBox1.Tag) + 1
Me.TextBox1.Value = Format(CDate(Me.TextBox1.Tag), "dddd d mmmm yyyy")
End Sub

PGZ

[NEC14]

Bonjour ucfoutu et pgz,

Super ça marche. ucfoutu tu as raison, je devrai aller plus souvent dans l'aide, mais je n'ai pas encore acquis le réflexe, je vais me soigner.
Merci encore pour précieuse aide.
J'en profite pour remercier toutes celles et tous ceux qui nous aident et qui permettent à un tel site de qualité de vivre.
Coup de chapeau à toutes et à tous.
A+