affichage d'une date

david · 22 Mars 2005

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 · 22 Mars 2005

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 · 22 Mars 2005

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 · 22 Mars 2005

Oups excuses Jean-Pierre

Carambolage

_Thierry · 22 Mars 2005

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 · 24 Mars 2005

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:

affichage d'une date

david

Guest

Pièces jointes

JPM

Guest

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

_Thierry

XLDnaute Barbatruc

David

Guest

Discussions similaires