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]

8990 KO

Ha ba c'est bon, il peux passer alors.

 

[alain.pierrephie]

Ha ba c'est bon, il peux passer alors.

Punaise je connaissais pas voilà le lien

Formulaire-clients-AURELIA.xlsm

Le service des pièces jointes, CJoint.com est un service de partage de fichier gratuit pour partager vos documents dans vos courriels, sur les forums ou dans vos petites annonces.

www.cjoint.com

 

[cp4]

Tu as vu que la taille max est 15 MO alors que notre ami a un fichier de 77 MO ?


Le site grosfichier.com est mieux pour cette taille

encore mieux 50 Go le site-----> https://www.transfernow.net/fr

 

[alain.pierrephie]

encore mieux 50 Go le site-----> https://www.transfernow.net/fr

J'y go

 

[Etoto]

encore mieux 50 Go le site-----> https://www.transfernow.net/fr

Joli bien vu.

 

[alain.pierrephie]

encore mieux 50 Go le site-----> https://www.transfernow.net/fr

Dans "envoyer à" je sais pas quoi mettre

 

[cp4]

@alain.pierrephie : modifie ces 2 lignes

.Range("B" & fin + 1) = CDate(DateConsultation.Value)
.Range("D" & fin + 1) = CDate(naissance.Value)

 

[alain.pierrephie]

@alain.pierrephie : modifie ces 2 lignes

.Range("B" & fin + 1) = CDate(DateConsultation.Value)
.Range("D" & fin + 1) = CDate(naissance.Value)

OK J'y vais

 

[alain.pierrephie]

OK J'y vais

Ça m'inscrit bien la date en français mais j'ai un débogage sur:

.Range("D" & fin + 1) = CDate(naissance.Value)

 

[Phil69970]

Bonjour à tous

Juste en passant après nettoyage ton fichier ne pèse plus que ..... 25 Ko

Par contre il manque des onglets pour simplifier ton code et le tester....
*En général les select sont à bannir .....

@Phil69970

 

[cp4]

Ça m'inscrit bien la date en français mais j'ai un débogage sur:

.Range("D" & fin + 1) = CDate(naissance.Value)

Ton fichier est obèse à cause du quadrillage de cellules vides. Après nettoyage, il ne pèse que 28 Ko.
je te laisse tester.

 

[Etoto]

Ton fichier est obèse à cause du quadrillage de cellules vides. Après nettoyage, il ne pèse que 28 Ko.
je te laisse tester.

Je le pensais bien, j'avais fait un test en mettent en forme TOUTES les cellules d'un classeur et je me rappelle avoir dépassé les 100 MO

 

[alain.pierrephie]

Ton fichier est obèse à cause du quadrillage de cellules vides. Après nettoyage, il ne pèse que 28 Ko.
je te laisse tester.

Toujours pareil j'ai un débogage sur:
.Range("D" & fin + 1) = CDate(naissance.Value)

 

[Phil69970]

Re

Ton module 6 peux être remplacer par celui-ci légèrement plus court.....

Sub NouveauClient()

With Sheets("Liste Clients")
    .Range("A4:H4").Insert Shift:=xlDown

    .[A5] = Sheets("Formulaire").[D8].Value
    .[B5] = Sheets("Formulaire").[F8].Value
    .[C5] = Sheets("Formulaire").[D10].Value
    .[D5] = Sheets("Formulaire").[D12].Value
    .[E5] = Sheets("Formulaire").[D14].Value
  
    'Es tu sur des bonnes cellules à copier en F5 et G5 ?
    .[F5] = Sheets("Formulaire").[D18].Value
    .[G5] = Sheets("Formulaire").[D16].Value
  
    .[A1] = Sheets("Formulaire").[D20].Value
End With

Sheets("Formulaire").Range("F8,D8,D10,D12,D14,D16,D18,D20").ClearContents

End Sub

Comme il manque des onglets je ne peux pas tester......

@Phil69970

 

[cp4]

Toujours pareil j'ai un débogage sur:
.Range("D" & fin + 1) = CDate(naissance.Value)

teste le fichier du post#41