Microsoft 365 Convertir du texte en Date

[famu]

Bonjour à tous,
Je bute sur un code en VBA qui pourrait convertir du texte en date.
J'ai joint un fichier pour être plus clair...
Merci d'avance pour votre aide,
Famu

 

[Gégé-45550]

Puisqu'on est parti dans les délires formulesques inutiles :

=DATE(DROITE(A4;4);1;4)-JOURSEM(DATE(DROITE(A4;4);1;4);3)+7*STXT(A4;5;TROUVE("-";A4;5)-5)+EQUIV(B4;{"lundi";"mardi";"mercredi";"jeudi";"vendredi";"samedi";"dimanche"};0)-8

Comme d'hab, toujours la plus petite !

 

[TooFatBoy]

Comme d'hab, toujours la plus petite !

Je ne sais pas si c'est moi qui ai la plus petite aujourd'hui, mais je peux te dire qu'il fait - 1 °C, qu'il y a de la neige partout, et qu'il neige encore...

 

[natorp]

Je ne sais pas si c'est moi qui ai la plus petite aujourd'hui, mais je peux te dire qu'il fait - 1 °C, qu'il y a de la neige partout, et qu'il neige encore...

Où ça ?

 

[TooFatBoy]

Où ça ?

Dans la rue.

 

[natorp]

Dans la rue.

Ah oui !! celle qui mène à l'église

 

[TooFatBoy]

Ah oui !! celle qui mène à l'église

Ce n'est pas très précis ça : ici il y a toujours deux églises...

Tout le monde sait que j'habite dans cette rue-là.

 

[natorp]

Ce n'est pas très précis ça : ici il y a toujours deux églises...

Oui oui, je vois bien , mais ne serait-ce pas celle qui passe à côté de la mairie ?

 

[TooFatBoy]

Le forum fait dans les messages furtifs...

 

[TooFatBoy]

patricktoulon : je me permets une incursion, si l'on choisit l'année 2023 en A11 et Lundi en B11, cela donne 30/01/2023, or le Lundi de la 4ème semaine de 2023 est le 23/01/2023

Qu'en pensez-vous ?

Perso, j'en pense que c'est "normal" parce que la formule n'est prévue pour fonctionner que sur les 7 lignes du tableau donné par le demandeur.
C'est-à-dire un tableau :
- commençant obligatoirement à la ligne 4,
- commençant obligatoirement un lundi,
- avec obligatoirement des jours consécutifs dans l'année.

 

[patricktoulon]

Bjr le fil
Patricktoulon : je me permets une incursion, si l'on choisit l'année 2023 en A11 et Lundi en B11, cela donne 30/01/2023, or le Lundi de la 4ème semaine de 2023 est le 23/01/2023

Qu'en pensez-vous ?

Cordialement, Gérard

oui @nartop ma formule est vraiment pour 2022 sinon il faut faire un si dans le - joursemaine
si joursem(blabla)>4 c'est joursem-1 sinon c'est +7 -joursem(blablabla)
après il y a moult exemple réuni dans un post ou beaucoup de monde a participé
il faudrait le retrouver ce post et en faire un ref a aller voir en premier lieu

 

[famu]

Bonjour à tous,
Je vois que ma demande a rencontré beaucoup d’aide. Merci à vous tous.
Oui, j’avais bien compris le code de TouFatBoy et j’avais remarqué que la structure de la date en texte devait rester la même. Comme je suis l’administrateur de ce fichier, toutes les semaines de l’année auront bien deux chiffres.
Une formule fonctionne également (merci Patrick qui n’est pas passé inaperçu ) mais ce code est intégré dans une macro en cours de construction afin de récupérer un max de données (sur 52 feuilles) afin d’en faire une DataBase pour un TCD.
Voilà, je vous ai tout dit
Encore merci,
Famu.

 

[famu]

Re-Bonjour,
J'avance...un peu dans mon fichier et ma demande a évolué. En VBA, toujours, il faudrait tenir compte de la journée en colonne D (Feuil2).
J'ai essayé mais...
Merci d'avance,
Famu

 

[TooFatBoy]

En VBA, toujours, il faudrait tenir compte de la journée en colonne D (Feuil2).

Si tu veux du VBA, pourquoi postes-tu un fichier .xlsx ?
Avec un .xlsm on pourrait voir ce que tu as déjà commencé à faire sur le sujet.


Tu as vu que ma formule fait déjà ce que tu demandes ?

 

[TooFatBoy]

Une proposition en pièce jointe.

 

[TooFatBoy]

La même proposition, adaptée à ton fichier de #27,