Microsoft 365 date calendrier, obtenir année - mois et jour

Usine à gaz · 21 Mars 2021

Bonjour à toutes et à tous,
Je vous souhaite un bon dimanche

Me revoilà en ce dimanche "pluvieux" en Tunisie.
Je bute sur une ch'tite formule de rien qui fonctionne pourtant habituellement

La date en "J" est générée par le calendrier et c'est certainement la raison du problème :
Pour info : la colonne O est juste un essai de formule. Elle n'existe pas dans mon fichier de travail.

En colonnes "P - Q - R", Je n'arrive pas à obtenir
Je n'arrive pas à obtenir : l'ANNEE de J - le MOIS de J - le JOUR de J
Auriez-vous la solution ?
Je joins le fichier test.
Avec mes remerciement,
Amicalement,
lionel,

soan · 21 Mars 2021

Bonjour Lionel, ChTi160, le fil,

jean marie a écrit : «
FormatDateUserSurCell est une constante qui a pour valeur False
soit
Private Const FormatDateUserSurCell = False

If FormatDateUserSurCell Then ActiveCell.NumberFormat = FormatDateUser$
»

comme FormatDateUserSurCell est toujours FAUX, le test sera toujours FAUX
➯ ce qui est à droite de Then ne sera JAMAIS exécuté ➯ on mettra JAMAIS
le format de nombre indiqué par FormatDateUser.

AUSSI, on POURRAIT très bien SUPPRIMER cette ligne de code INUTILE !

MAIS vous n'avez pas bien lu ce qui...

ChTi160 · 21 Mars 2021

Bonjour lionel
Peut être en travaillant à partit de la Colonne "O"

VB:

=DROITE(O2;4) pour l'année etc etc

bonne journée
jean marie

Usine à gaz · 21 Mars 2021

Bonjour ChTi160,
Merci pour ton retour mais je dois travailler à partir de la colonne "J"
(la colonne O étant juste un essai de formule) qui n'existe pas dans mon fichier de travail),
lionel,

goube · 21 Mars 2021

Bonjour Lionel, ChTi160,

Une proposition

VB:

=ANNEE(SUBSTITUE(GAUCHE(J2;10);" ";"/"))
=MOIS(SUBSTITUE(GAUCHE(J2;10);" ";"/"))
=JOUR(SUBSTITUE(GAUCHE(J2;10);" ";"/"))

Cordialement

ChTi160 · 21 Mars 2021

Re
Ok tu est obligé d'avoir ce format de date dans la colonne "J"
car je pense que les données de cette colonne ne sont pas reconnues comme dates ?
Edit : bonjour goube :j'allais parler de mettre au format "jj/mm/yyyy"
jean marie

Dudu2 · 21 Mars 2021

Bonjour,
Tu ferais mieux de mettre l'heure dans une autre colonne pour garder de vraies dates en colonne J.
Et si tu traverses la Méditerranée, tu auras du soleil en face.

Usine à gaz · 21 Mars 2021

Bonjour goube : merci pour tes formules qui fonctionnent
@ChTi160 : je ne sais pas modifier le format d'arrivée de la date dans le calendrier
lionel,

mapomme · 21 Mars 2021

Bonjour,

Un peu en retard. Voir formules en colonnes O à P.

C'est le calendrier qui est à modifier pour qu'il renvoie une "VRAIE" date et non du texte qui n'est pas interprété comme date => je laisse à d'autres le soin de modifier le code du calendrier.

ChTi160 · 21 Mars 2021

Re
Bonjour Dudu , mapomme
Ou alors modifier la procédure du calendrier!

VB:

If IsDate(DateSelectUser) Then
      ActiveCell = CDate(DateSelectUser)
      If FormatDateUserSurCell Then ActiveCell.NumberFormat = FormatDateUser$
                    ActiveCell.Offset(0, 6) = Year(DateSelectUser)
                      ActiveCell.Offset(0, 7) = Month(DateSelectUser)
                        ActiveCell.Offset(0, 86) = Day(DateSelectUser)
       End If

jean marie

Usine à gaz · 21 Mars 2021

Bonjour Mapomme,
Merci et super, ça fonctionne
Je vais chercher ou tu as modifié le calendrier.
lionel,

Usine à gaz · 21 Mars 2021

Re ChTi160
Je pense que c'est bien le calendrier qu'il faut modifier.
Je vais aller voir.
mais mapomme vient certainement de le faire aussi.
lionel,

mapomme · 21 Mars 2021

Usine à gaz à dit:
Je vais chercher ou tu as modifié le calendrier.

Usine à gaz à dit:
mais mapomme vient certainement de le faire aussi.

Je n'ai pas modifié le calendrier mais @ChTi160 que je salue a fait une proposition.

ChTi160 · 21 Mars 2021

Re
as tu besoin de ce format avec format "hh:mm" ?
non mapomme a trouvé les bonnes formules (moi je suis nul Lol)
jean marie

Usine à gaz · 21 Mars 2021

Re ChTi160
"as tu besoin de ce format avec format "hh:mm" ?"
OUI j'en ai besoin

ChTi160 · 21 Mars 2021

Re
car je ne voir pas de prise en compte de l'heure lors du transfert des éléments depuis le Calendrier!
oupps je viens de trouvé Lol
jean marie

Microsoft 365 date calendrier, obtenir année - mois et jour

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

soan

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

goube

XLDnaute Accro

ChTi160

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Discussions similaires