Autres Transformer une date anglaise en française

alain.pierrephie à dit:

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

Cliquez pour agrandir...

Etoto à dit:

Hello,

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

Cliquez pour agrandir...

Etoto à dit:

Re,

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

Cliquez pour agrandir...

BrunoM45 à dit:

Bonjour Alain,

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

VB:

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

A tester
@+

Cliquez pour agrandir...

BrunoM45 à dit:

Bonjour Alain,

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

VB:

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

A tester
@+

Cliquez pour agrandir...

alain.pierrephie à dit:

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

Cliquez pour agrandir...

BrunoM45 à dit:

Bonjour Alain,

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

VB:

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

A tester
@+

Cliquez pour agrandir...

BrunoM45 à dit:

Re,

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

@+

Cliquez pour agrandir...

BrunoM45 à dit:

Re,

Alors je ne comprends pas

Cliquez pour agrandir...