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

 

[Le novice]

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

Dixit la charte Regarde la pièce jointe 1155191et 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

bonjour merci pour ce rappel effectivement je ne suis pas réactif à vos messages pour la simple et bonne raison que je travaille sur ce projet le soir, que je suis en mission au moyen orient avec un decalage horaire.
cdt

 

[patricktoulon]

re
pour info la reponse que tu a eu sur E P

c'est exactement ce qu'il ne faut pas faire
car tes dates seront inexploitables

je vais pas parler du complément, c'est pas la peine
suis les instructions de @job75 et tu t'en sortira mieux

 

[Le novice]

re
pour info la reponse que tu a eu sur E P
Regarde la pièce jointe 1155200

c'est exactement ce qu'il ne faut pas faire
car tes dates seront inexploitables

je vais pas parler du complément, c'est pas la peine
suis les instructions de @job75 et tu t'en sortira mieux

Merci bien

 

[Le novice]

J'ai bien essayer le correcti

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+

f proposé mais toujours rien.

La date affichée dans le USF si je choisi 2 novembre est le 11 février si je valide le userform la cellule de la colonne B est au 2 fevrier.

 

[jcf6464]

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

Bonjour à tous
Avec le correctif de JM27 chez moi cela fonctionne sous excel 365 sans format de colonne,

bonne soirée jcf

 

[Le novice]

Les lois de l'informatique demeurent pour moi un mystere.
Apres avoir redemarré mon PC tout fonctionne pour le mieux avec le correctif de Job75.
un grand merci à toute la communauté.
ce projet ne fait que commencer et je pense ne pas avoir fini de vous embeter.