Format date dans un TextBox en Vba

Bonjour,

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

Code:

---

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

Salut

Essaie :

Code:

---

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

---

Citation:

---

Envoyé par squall62

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:

---

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

---

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:

---

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)

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:

---

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:

---

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

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+