date automatique dans une textbox

[violaine]

Bonjour,

Dans une userform j utilise une textbox dans laquelle l utilisateur doit inserer la date du jour et je voulais savoir si c t possible que la date s y affiche automatique ou sous forme d une liste pour ameliorer et augmenter la rapidité pour completer l ensemble de ma userform car de nombreux champ doit etre remplis par l utilisateur
merci

 

[Arnaud]

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 ???

 

[salim]

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

 

[violaine]

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

 

[violaine]

merci salim ca fonctionne bien et c ce que je rechercher

 

[farid]

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

Merci, c'est ce que je cherchais.

 

[ChTi160]

Bonjour Farid
Tu peux aussi mettre :

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

Bonne journée
Jean marie

 

[soan]

Bonjour,

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

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

soan

 

[ChTi160]

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

 

[Staple1600]

Bonjour le fil

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

Private Sub UserForm_Initialize()
  TextBox1 = Date
End Sub

 

[soan]

Bonjour Staple,

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

soan

 

[Staple1600]

Re

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

C'est pour cela que je parlais d'inversion

Exemple

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

 

[soan]

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