date automatique dans une textbox

A

Arnaud

Guest

• 9 Juillet 2004

• #2

salut,

que la date s'affiche automatiquement c à dire que tu veut la date du jour ??
si oui :
MonTextBox = Date

ou sinon tu dis "ou sous forme d une liste". ok mais une liste avec quel date ???

 

Vote positif 0 Vote négatif

S

salim

Guest

• 9 Juillet 2004

• #3

Bonjour Violaine, Arnaud et le Forum

Violaine si tu veux afficher la date automatiquement la date tu va dans:

Private sub userform_initialize()
textbox1.value=format(now,"dd,mm,yyyy")
end sub

si tu veux afficher "lundi" au lieu de 01 tu met 4 "ddddd" idem pour les jour et l'année

@+ Salim

 

Vote positif 0 Vote négatif

V

violaine

Guest

• 9 Juillet 2004

• #4

oui je veux la date du jour si c est possible et apparament oui
par contre serait il possible de me faire un exemple
et aussi je pense que les parametre de l ordinateur concernat la date doit etre mise a jour
merci

 

Vote positif 0 Vote négatif

V

violaine

Guest

• 9 Juillet 2004

• #5

merci salim ca fonctionne bien et c ce que je rechercher

 

Vote positif 0 Vote négatif

F

farid

XLDnaute Occasionnel

• 3 Juillet 2022

• #6

salim à dit:

Bonjour Violaine, Arnaud et le Forum

Violaine si tu veux afficher la date automatiquement la date tu va dans:

Private sub userform_initialize()
textbox1.value=format(now,"dd,mm,yyyy")
end sub

si tu veux afficher "lundi" au lieu de 01 tu met 4 "ddddd" idem pour les jour et l'année

@+ Salim

Cliquez pour agrandir...

Merci, c'est ce que je cherchais.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Juillet 2022

• #7

Bonjour Farid
Tu peux aussi mettre :

VB:

Private sub userform_initialize()
textbox1.value=format(Date "dd,mm,yyyy")
End sub

Bonne journée
Jean marie

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 3 Juillet 2022

• #8

Bonjour,

je propose avec 2 « / » au lieu de 2 « , » :

VB:

Private Sub UserForm_Initialize()
  TextBox1 = Format(Date, "dd/mm/yyyy")
End Sub

soan

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Juillet 2022

• #9

Bonjour Soan
J'y ai pensé mais ......
Bonne fin de journée
Jean marie

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2022

• #10

Bonjour le fil

Fonctionne aussi (jusqu'au jour où l'inversion surgira )

VB:

Private Sub UserForm_Initialize()
  TextBox1 = Date
End Sub

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 3 Juillet 2022

• #11

Bonjour Staple,

oui, effectivement, ça marche aussi, c'est plus simple,
et y'a bien les séparateurs « / » : « 03/07/2022 ».

soan

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 3 Juillet 2022

• #12

Re

La question étant : Est-ce que cela fonctionnera le 12 mars par exemple ?

C'est pour cela que je parlais d'inversion

Exemple

VB:

Private Sub UserForm_Initialize()
Dim D As Date
D = #12/3/2022#
TextBox1 = D
End Sub

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 3 Juillet 2022

• #13

ah oui, c'est vrai ! et je connais l'explication : c'est car si le jour est inférieur à 13, le vba américain de Microsoft le prend comme un des mois de janvier à décembre, et plus comme un jour !​

soan

 

Vote positif 0 Vote négatif