Microsoft 365 USF Agenda

[Le novice]

Bonsoir
j'ai tenté de récuperer un USF agenda que j'ai inseré dans mon USF principal, mon probleme est que lorsque je selectionne une date dans le caledrier celle ci s'affiche et se colle dans mon tableau en inversant les jours et mois.
le paramétrage de le cellule n'y fait rien dans la mesure ou dans le userform le 2 novembre devient le 11 février.

Merci d'avance

 

[JM27]

bonsoir
Le transfert ne se fait pas correctement
il doit y manquer un cdate quelque part
problème déja traité moult fois dans le forum
Faire une recherche dans rechercher sur les forum avec les termes inversion date
mais sans fichier joint difficile de te répondre

merci de fournir un fichier exemple
Edit j'avais pas vu le fichier excuses

 

[JM27]

Correctif
.ListColumns("Date").DataBodyRange.Rows(Last).Value = Format(CDate(Me.TextBox1), "m/d/yyyy")

 

[Le novice]

Bonsoir
j'ai copié votre correctif et cela n'y fait rien.
il me faut rouvrir à chaque fois le USF agenda et cliquer sur valider en bas à droite pour modifier le format de la date. si je ne le fais pas ca me valide une date "fausse" sur mon tableau

 

[ChTi160]

Bonjour le Fil
Chez moi j'ai le bon affichage !
Avec les deux version "d/m/yyyy" et "m/d/yyyy"
Bonne journée
Jean marie

 

[fcyspm30]

Bonjour Didi1,
Je vous ai déjà donné la réponse sur un autre site que vous avez solicité. Il faut forcer le format de la colonne "Date" à texte et là ça va s'écrire normalement.

 

[ChTi160]

Re
Chez moi
format Date *dd/mm/yyyy
Jean marie

 

[patricktoulon]

bonjour
si le texte de date est valide l'envoie se fait par cdate(la valeur)tout simplement
et le format de cellule doit être "jj/mm/aaaa" et surtout doit être fait AVANT !!!!!!!!!
il ne doit pas en être autrement
en encore moins mettre les cellule en format texte

 

[patricktoulon]

re
et pour info
chez moi impossible d'aller dans le userform1

 

[Eric C]

Bonjour le forum
Bonjour didi1, Jean Marcel, Jean-Marie, fcspm30, Patrick

Dixit la charte

et comme le souligne fcyspm30, le cross posting ne devrait pas avoir lieu. A plus forte raison quand le demandeur ne répond pas à ceux qui lui donnent une réponse. Voir Ici.
Bon dimanche
@+ Eric c

 

[patricktoulon]

on pourrait avoir un fichier qui fonctionne ?

 

[job75]

Bonjour à tous,

C'est simple, dans la Sub Enregistrer_Click remplacer :

.ListColumns("Date").DataBodyRange.Rows(Last).Value = Format(CDate(Me.TextBox1), "d/m/yyyy")

par :

.ListColumns("Date").DataBodyRange.Rows(Last).Value = CDate(TextBox1)

Edit : bah c'est ce qu'il y a dans le fichier du post #1 !!!

A+

 

[Le novice]

bonjour

Bonjour le Fil
Chez moi j'ai le bon affichage !
Avec les deux version "d/m/yyyy" et "m/d/yyyy"
Bonne journée
Jean marie

Bonjour le Fil
Chez moi j'ai le bon affichage !
Avec les deux version "d/m/yyyy" et "m/d/yyyy"
Bonne journée
Jean marie

Bonjour je regarde cela ce soir en rentrant du travail et vous tiens informé

 

[Le novice]

Bonjour Didi1,
Je vous ai déjà donné la réponse sur un autre site que vous avez solicité. Il faut forcer le format de la colonne "Date" à texte et là ça va s'écrire normalement.

bonjour merci bien cependant cela n'avait déja pas marché lorsque je me suis rendu compte du probleme

 

[Le novice]

Bonjour à tous,

C'est simple, dans la Sub Enregistrer_Click remplacer :

.ListColumns("Date").DataBodyRange.Rows(Last).Value = Format(CDate(Me.TextBox1), "d/m/yyyy")

par :

.ListColumns("Date").DataBodyRange.Rows(Last).Value = CDate(TextBox1)

Edit : bah c'est ce qu'il y a dans le fichier du post #1 !!!

A+

je vous remercie d'avoir pris le temps d'étudier mon cas, je reviens vers vous ce soir apres le boulot