Discussion :

[NEC14]

Bonjour,

Dans mon Label, les données s'affichent au format jj-mm-aaaa
et je souhaiterai qu'il s'affiche avec le format jjjj-mm-aaaa (jeudi 14 octobre 2010).

J'ai cherché (peut-être mal) mais je n'ai rien trouvé concernant ce sujet. Dois-je appliquer le même code que pour les TextBox ?

Merci par avance

[Invité]

Bonjour

Dés que l'on veut mettre en forme une date, la fonction format est là :

Code :

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

 Me.lblDate.Caption = Format(Date, "dddd dd mmmm yyyy")

Et je peux te dire que tu as très mal cherché, les tutos sont là pour cela.

Philippe

[NEC14]

Bonjour Philippe,

Merci pour ta réponse. La recherche sur le forum ne fonctionne pas de mon poste de travail et je ne sais pas pourquoi. Dès que je clique sur "Recherche" le Net se ferme.
J'ai demandé à mon service informatique de voir d'où vient le soucis mais je n'ai toujours pas de réponse.
Je vais donc chercher ailleurs sur la toile et je ne l'ai certainement pas bien fait.

Je viens de mettre en place le code que tu m'as donné mais cela ne fonctionne pas comme je le souhaiterai.
Voici mon code actuel :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub UserForm_Initialize()
 
    Me.Label6.Caption = ("Du : ") & Sheets("Don").Range("I2").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I17").Value
    Me.Label7.Caption = ("Du : ") & Sheets("Don").Range("I18").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I33").Value
    Me.Label8.Caption = ("Du : ") & Sheets("Don").Range("I34").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I98").Value
    Me.Label9.Caption = ("Du : ") & Sheets("Don").Range("I99").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I110").Value
    Me.Label10.Caption = ("Du : ") & Sheets("Don").Range("I111").Value & " " & " " & ("Au : ") & Sheets("Don").Range("I127").Value
 
End Sub

C'est donc les dates venant de la feuille "Don" qui doivent être au format "dddd dd mmmm yyyy" et dans le cas de ton code, il ne me retourne que la date du jour.
Je le concède, ma première explication n'était pas claire.

[mercatog]

Code :

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

Me.Label6.Caption = ("Du : " & format(Sheets("Don").Range("I2").Value,"dd mm yyyy") & " "Au : " & format(Sheets("Don").Range("I17").Value,"dd mm yyyy")

[Invité]

Re

Je viens de mettre en place le code que tu m'as donné mais cela ne fonctionne pas comme je le souhaiterai.

Je ne vois pas la fonction Format dans ton code.

Philippe

[NEC14]

Merci mercatog, je fais les modifications nécessaire.

Philippe, j'ai enlevé le code que tu m'as donné afin de ne mettre que celui qui fonctionne.
Mauvaise habitude de ma part.
Toutes mes excuses

Merci beaucoup, mon problème est résolu