Microsoft 365 Saisie rapide de dates et report

[mfb]

Bonjour à Tous.
Via un Usf je souhaites réaliser la saisie rapide d'une date (jjmmaa) et son report en feuille 1 du fichier.
Tout se passe bien SAUF pour les dates antérieures à 1950.
Exemple pour 010446 le report affiche 01/04/2046 en lieu et place de 01/04/1946 pour 01/04/58 le report affiche bien 01/04/1958 .
Vous avez dit bizarre ??? Comme un petit bout de fichier vaut mieux qu'un long discours je le joint.
J'ai bien fouillé sur le forum mais sans succès, ou mal vu, alors le m'en remet une nouvelle fois à votre aide.
Merçi par avance.
Daniel

 

[Matt51140]

Bonjour,

Je n'ai pas ce problème avec votre fichier sur 2013 et 365.

Matt.

 

[patricktoulon]

re
intéressant
sur 2007 w7
29 pour an devient 2029
30 pour an devient 1930

sur w7 excel 2013
29 et 30 devient 2029 et 2030

sans modifier quoi que se soit dans le code
je pense que tu va devoir le gérer toi même ce "+10=1900+" ou "moins de 10 =2000+"

 

[pierrejean]

Bonjour à tous

A tester:

 

[mfb]

Re,
Merçi à Vous Matts, Patick et PierreJean pour votre aide et à tous ceux qui on lu mon fil.
J'ai testé le fichier de PierreJean c'est OK. Je vais me permettre de l'utiliser tel que.
Alors encore merçi et bonne soirée à Tous .
Daniel

 

[eriiic]

Bonjour à tous,

C'est bizarre. L'année de bascule par défaut est (était ?) 30 (2 chiffres => 1930 à 2029).
Si besoin c'est modifiable dans le 'panneau de config / Région et langue / Paramètres avancés / Dates'
eric

Edit :

à-priori pas de paramètre le concernant dans Application.International(), donc pas changeable par macro.

 

[mfb]

Bonjour le Forum
Eric, après quelques recherches et oui je ne suis pas doué j'ai fini par trouver le chemin indiqué pour changer l'heure bascule.
Et de plus ça marche. Ce qui fait 2 solutions au choix pour mon Pb.
Un grand merçi et bonne journée
Daniel