Microsoft 365 Convertir du texte en Date

famu · 12 Décembre 2022

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

TooFatBoy · 12 Décembre 2022

Bonjour,

Tu as dû te tromper de fichier : il n'y a pas de macro dans le fichier que tu as posté. 😉

Deadpool_CC · 12 Décembre 2022

Bonsoir,
il faut l'enregistrer en format avec macro (.xlsm) 😁

TooFatBoy · 12 Décembre 2022

Une proposition de macro :

VB:

Sub test()
    Set CelDepart = Sheets("Feuil1").Range("A4")
    MaSemaine = 1 * Mid(CelDepart.Value, 5, 2)
    MonAnnee = 1 * Right(CelDepart.Value, 4)
    MonLundi = DateSerial(MonAnnee, 1, 4) - Weekday(DateSerial(MonAnnee, 1, 4), 3) + 7 * (MaSemaine - 1)
    For i = 0 To 6
        CelDepart.Offset(i, 2).Value = MonLundi + i
    Next i
End Sub

famu · 13 Décembre 2022

Bonjour à tous, bonjour TooFatBoy,
C'est Top de chez Top ! Jamais je n'aurais trouvé ce code.
Je remets le fichier avec le code, ça peut servir à d'autres...
Un GRAND merci TooFatBoy !
Très bonne journée à tous,
Famu

JHA · 13 Décembre 2022

Bonjour à tous,

A essayer par formule

JHA

famu · 13 Décembre 2022

Bonjour JHA,

Merci pour la version Formule.
Je la mets de côté, ça pourrait être une deuxième solution si nécessaire.
Très bonne journée,
Famu

patricktoulon · 14 Décembre 2022

bonsoir juste en passant
on peu le faire en formule directement

=DATE(CNUM(DROITE(A4;4));1;1)+(CNUM(STXT(A4;5;2)*7)-(JOURSEM(DATE(CNUM(DROITE(A4;4));1;1);2)-(LIGNE()-3)))

étendre vers le bas

Gégé-45550 · 14 Décembre 2022

TooFatBoy à dit:

Une proposition de macro :

VB:

Sub test()
    Set CelDepart = Sheets("Feuil1").Range("A4")
    MaSemaine = 1 * Mid(CelDepart.Value, 5, 2)
    MonAnnee = 1 * Right(CelDepart.Value, 4)
    MonLundi = DateSerial(MonAnnee, 1, 4) - Weekday(DateSerial(MonAnnee, 1, 4), 3) + 7 * (MaSemaine - 1)
    For i = 0 To 6
        CelDepart.Offset(i, 2).Value = MonLundi + i
    Next i
End Sub

Hello ami @TooFatBoy, @famu
N'y aurait-il pas un petit schmill dans la macro ?
Chez moi, j'ai des résultats bizarres si je mets par exemple en A4 : Sem.4-2023 😉
Qu'est-ce que ça donne chez vous ?
Amicalement,

TooFatBoy · 14 Décembre 2022

Gégé-45550 à dit:
N'y aurait-il pas un petit schmill dans la macro ?
Chez moi, j'ai des résultats bizarres si je mets par exemple en A4 : Sem.4-2023 😉
Qu'est-ce que ça donne chez vous ?

Oui, c'est "normal" : j'ai considéré que le numéro de la semaine était toujours sur deux caractères. 😉

Si tu mets 04, je n'ai pas testé, mais je pense que ça devrait fonctionner.

Gégé-45550 · 14 Décembre 2022

TooFatBoy à dit:
Si tu mets 04, je n'ai pas tester, mais je pense que ça devrait fonctionner.

Hello l'ami, bien sûr que ça marche, j'avais déjà testé.
Mais ce serait mieux de prévoir le cas direct dans la macro, non ?
Enfin, c'est à famu de voir ça, après tout, c'est pour lui 😉.

patricktoulon · 14 Décembre 2022

re
Bonjour même si je suis passé inaperçu visiblement
avec formule 1 chiffre ou 2 pour la semaine
le texte des jours en "B" aussi en formule

bonne journée a tous

TooFatBoy · 14 Décembre 2022

Gégé-45550 à dit:
Mais ce serait mieux de prévoir le cas direct dans la macro, non ?
Enfin, c'est à famu de voir ça, après tout, c'est pour lui 😉

Oui, ce serait mieux. Mais comme tu dis très justement, c'est à famu de voir s'il faut modifier ou non.

J'ai fait au plus simple, en me disant que s'il y avait un problème pour les mois inférieurs à 10, alors je modifierais.
Mais franchement, c'est juste une ligne de plus, donc faut peut l'ajouter lui-même. Sinon tu peux lui faire. 😉

Mais franchement, pourquoi "compliquer" le truc si ça fonctionne bien chez lui ? 😉

natorp · 14 Décembre 2022

patricktoulon à dit:
re
Bonjour même si je suis passé inaperçu visiblement
avec formule 1 chiffre ou 2 pour la semaine
le texte des jours en "B" aussi en formule
Regarde la pièce jointe 1157874
bonne journée a tous

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

TooFatBoy · 14 Décembre 2022

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

Code:

=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

Microsoft 365 Convertir du texte en Date

famu

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

Deadpool_CC

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

famu

XLDnaute Occasionnel

Pièces jointes

JHA

XLDnaute Barbatruc

Pièces jointes

famu

XLDnaute Occasionnel

patricktoulon

XLDnaute Barbatruc

Gégé-45550

XLDnaute Accro

TooFatBoy

XLDnaute Barbatruc

Gégé-45550

XLDnaute Accro

patricktoulon

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

natorp

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Microsoft 365 Convertir du texte en Date

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Occasionnel

Pièces jointes

XLDnaute Barbatruc

Pièces jointes

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

XLDnaute Accro

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Pièces jointes

Discussions similaires

Privacy & Transparency

Privacy & Transparency