Autres Transformer une date anglaise en française

[alain.pierrephie]

Bonjour au forum
J'ai un nouveau souci que j'ai du mal à résoudre: j'explique
Via un userform lorsque je met dans ma zone de texte nommée "DateConsultation" une date qui va se reporter sur mon formulaire "Liste Clients"
si je met comme date 03/07/2021 dans mon formulaire "Liste clients" viendra se mettre la date suivante: 07/03/2021. Jour et mois sont inversés.
Pourriez vous me donner le code qui permettrai d'avoir ma date en français dans mon formulaire "Liste clients" lorsque je passe par mon userform.
Merci a celui qui se penchera sur mon souci
Alain

 

[Etoto]

Bonjour au forum
J'ai un nouveau souci que j'ai du mal à résoudre: j'explique
Via un userform lorsque je met dans ma zone de texte nommée "DateConsultation" une date qui va se reporter sur mon formulaire "Liste Clients"
si je met comme date 03/07/2021 dans mon formulaire "Liste clients" viendra se mettre la date suivante: 07/03/2021. Jour et mois sont inversés.
Pourriez vous me donner le code qui permettrai d'avoir ma date en français dans mon formulaire "Liste clients" lorsque je passe par mon userform.
Merci a celui qui se penchera sur mon souci
Alain

Hello,

C'est les paramètres régionaux de l'ordinateur qu'il faut changer. Ou alors tu changes le format de cellule.

 

[alain.pierrephie]

Hello,

C'est les paramètres régionaux de l'ordinateur qu'il faut changer. Ou alors tu changes le format de cellule.

Déjà essayé les 2 et ça marche pas.
Merci à toi

 

[Etoto]

Re,

Dans ce cas, tu peux nous montrer le fichier sans données confidentielles ou alors montres un fichier exemple.

 

[alain.pierrephie]

Re,

Dans ce cas, tu peux nous montrer le fichier sans données confidentielles ou alors montres un fichier exemple.

 

[alain.pierrephie]

Même avec un fichier exemple, le userform contenu même a sa plus simple expression sera trop gros.

 

[Compte Supprimé 979]

Bonjour Alain,

Le plus sur, est de l'inscrire en long et changer son format nombre 😉

With Range("A1")
.Value = CLng(DateValue(DateConsultation))
.NumberFormat = "dd/mm/yyyy"
End With

A tester
@+

 

[Etoto]

Bonjour Alain,

Le plus sur, est de l'inscrire en long et changer son format nombre 😉

With Range("A1")
.Value = CLng(DateValue(DateConsultation))
.NumberFormat = "dd/mm/yyyy"
End With

A tester
@+

Top, merci, je savais que l'on peux le faire par VBA mais je n'était plus sûr.

 

[alain.pierrephie]

Bonjour Alain,

Le plus sur, est de l'inscrire en long et changer son format nombre 😉

With Range("A1")
.Value = CLng(DateValue(DateConsultation))
.NumberFormat = "dd/mm/yyyy"
End With

A tester
@+

Merci beaucoup je vais tester, depuis hier j'ai écumé tout internet sans succés

 

[cp4]

Même avec un fichier exemple, le userform contenu même a sa plus simple expression sera trop gros.

Bonjour tout le monde,

@alain.pierrephie : Tu montes un petit fichier illustrant ton problème. Un userform?!!! à titre d'exemple, si a date est dans une textbox ====> Cdate(textbox1) fait très l'affaire.

Bonne journée.

 

[alain.pierrephie]

Bonjour Alain,

Le plus sur, est de l'inscrire en long et changer son format nombre 😉

With Range("A1")
.Value = CLng(DateValue(DateConsultation))
.NumberFormat = "dd/mm/yyyy"
End With

A tester
@+

J'ai un débogage sur:
.Value = CLng(DateValue(DateConsultation))

 

[Compte Supprimé 979]

Re,

Vous avez bien un TextBox nommé "DateConsultation" dans votre USF ?

@+

 

[alain.pierrephie]

O

Re,

Vous avez bien un TextBox nommé "DateConsultation" dans votre USF ?

@+

Oui voilà une impression écran

 

[Compte Supprimé 979]

Re,

Alors je ne comprends pas 🙄

 

[alain.pierrephie]

Re,

Alors je ne comprends pas 🙄

Ça marcha pas il inverse toujours. Je continue a chercher. Merci