affichage d'une date

[david]

Boujour le forum

Je voudrais affiche 2 dates dans un userforn

1er étape pas de problème j'ai reussi à mettre les dates
Textbox1.value = Sheets('feuil1').Range('a1')

mais je voudrais que les dates s'affiche entiérement

actuellement les s'affiche (01/07/2005)
et je voudrais quelle soit (vendredi 1 juillet 2005)

J'ai fais un petit excemple

merci d'avance pour vos aide

@+
david
[file name=une date_20050322123743.zip size=12440]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/une date_20050322123743.zip[/file]

 

[JPM]

Bonjour David, le forum,

Moi je connais soit avec la propriété Text
TextBox2.Value = Sheets('feuil1').Range('b20').Text

soit en utilisant la fonction format :
TextBox1.Value = Format(Sheets('feuil1').Range('b1'), 'dddd d mmmm yyyy')

Bonne journée

Jean-Pierre

 

[PascalXLD]

Bonjour

Modifies comme ceci

Private Sub UserForm_Initialize()
TextBox1.Value = Format(Sheets('feuil1').Range('b1'), 'dddd dd mmmm yyyy')
TextBox2.Value = Format(Sheets('feuil1').Range('b20'), 'dddd dd mmmm yyyy')
End Sub

Bon courage

 

[PascalXLD]

Oups excuses Jean-Pierre

Carambolage

 

[_Thierry]

Bonjour Pascal, JPM, David

Je profite de l'occase pour vois si cette astuce fonctionne bien partout avant de déployer ce type de syntax pour le Formats par Constante dans mes UserForms Pros :

Option Explicit

Const MyDateLong As String = 'dddd dd mmmm yyyy'

Private Sub UserForm_Initialize()

    With Sheets('feuil1')
        TextBox1.Value = Format(.Range('b1'), MyDateLong)
        TextBox2.Value = Format(.Range('b20'), MyDateLong)
    End With
End Sub

Merci d'avance & Bon Appétit
@+Thierry

 

[David]

Bonjour Pascal, JPM, _Thierry et le forum

Merci beaucoup sa marche
sauf pour l'idée de _Thierry sa ne marche pas dans mon qu'à toujours de message erreur

Merci encore et désole pour m'a réponse tardif
@+ David
:lol: