Microsoft 365 Probleme avec date via formulaire

[merim]

Hello à tous,

j'ai un souci avec les dates saisi via un formulaire.
date saisie 04/09/19 mais inscrite dans tableau 09/04/19...

Avez vous une idée sachant que j'ai vérifier les paramètres régionaux

Grand merci d'avance

 

[Robert]

Bonsoir Merim, bonsoir le forum,

La plupart du temps le code ci-dessous suffit :

Range("A1").Value = CDate(Me.textBox1.Value)

Sinon pour être sûr de mon coup je fais :

Dim DA As Long
DA = CLng(DateSerial(Year(me.TextBox1.Value), Month(me.TextBox1.Value), Day(me.TextBox1.Value)))
Range("A1").Value = DA

Avec un format date dans A1.

 

[merim]

Merci Robert

La première solution est parfaite

 

[patricktoulon]

bonjour le fil
@Robert
quand tu envoie clng(dateserial......)) tu est obligé de formater ta cellule
quand tu envoie dateserial(....) tout court ca la formate en date en même temps

teste cela tu me diras 😉

Sub test()
Cells(1, 1) = DateSerial(1, 1, 2019)
Cells(2, 1) = CLng(DateSerial(1, 1, 2019))
End Sub

control le format de tes deux cellules 😉

dans certaines version d'excel cdate fonctionne aussi
par contre date serial fonctionne avec toutes versions d'excel

 

[Robert]

Salut Patrick,

Merci du tuyau !...
En fait j'ai des problèmes particuliers car j'utilise un clavier USA configuré en langue portugaise. Ce qui fonctionne tout bêtement sur la plupart des PC, me pose parfois problème. Je me suis rendu compte que, comme tu le dis, la valeur en entier long renvoyée dans une cellule formatée date fonctionne à 100 % chez moi. Aussi j'ai pris l'habitude d'utiliser ce code. je vais suivre tes conseils et tester de nombreux exemples pour trouver le code le plus efficace dans mon cas et qui marche aussi sur les autres PC.