Microsoft 365 USF Agenda

Le novice · 12 Novembre 2022

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 · 13 Novembre 2022

Eric C à dit:
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 · 13 Novembre 2022

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 · 13 Novembre 2022

patricktoulon à dit:
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 · 13 Novembre 2022

J'ai bien essayer le correcti

job75 à dit:
Bonjour à tous,

C'est simple, dans la Sub Enregistrer_Click remplacer :

VB:

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

par :

VB:

.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 · 13 Novembre 2022

JM27 à dit:
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 · 13 Novembre 2022

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.

Microsoft 365 USF Agenda

Le novice

XLDnaute Junior

Pièces jointes

Le novice

XLDnaute Junior

patricktoulon

XLDnaute Barbatruc

Le novice

XLDnaute Junior

Le novice

XLDnaute Junior

jcf6464

XLDnaute Occasionnel

Le novice

XLDnaute Junior

Discussions similaires