Microsoft 365 USF Agenda

J

JM27

XLDnaute Barbatruc

• 12 Novembre 2022

• #2

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

 

Dernière édition: 12 Novembre 2022

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 12 Novembre 2022

• #3

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

 

Vote positif 0 Vote négatif

L

Le novice

XLDnaute Junior

• 12 Novembre 2022

• #4

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

 

Pièces jointes

• OSIRIS de Didi.xlsm

  99.6 KB · Affichages: 15

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Novembre 2022

• #5

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

 

Pièces jointes

• didi-1.gif

  205.1 KB · Affichages: 21

Vote positif 0 Vote négatif

C'est papy Mougeot !

XLDnaute Occasionnel

• 13 Novembre 2022

• #6

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 13 Novembre 2022

• #7

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Novembre 2022

• #8

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 😉

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Novembre 2022

• #9

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 13 Novembre 2022

• #10

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 13 Novembre 2022

• #11

on pourrait avoir un fichier qui fonctionne ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Novembre 2022

• #12

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+

 

Dernière édition: 13 Novembre 2022

Vote positif 0 Vote négatif

L

Le novice

XLDnaute Junior

• 13 Novembre 2022

• #13

bonjour

ChTi160 à dit:

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

Cliquez pour agrandir...

ChTi160 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

L

Le novice

XLDnaute Junior

• 13 Novembre 2022

• #14

fcyspm30 à dit:

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.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

L

Le novice

XLDnaute Junior

• 13 Novembre 2022

• #15

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif