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

 

[famu]

Bonjour TooFatBoy,

Oui évidemment, le fichier .xlsm avec la macro qui avait déjà été faite aurait eu plus de sens. Erreur de ma part...précipitation !
Ton code fonctionne à merveille. Il met la date dans les 23036 cellules dans un temps record.
Merci pour tout et bonnes fêtes de fin d'année,
Famu.

 

[Cousinhub]

Bonjour,
Une petite variante, qui tout d'abord, comporte quelques différences avec les calculs de @TooFatBoy , notamment pour les années 2021, 2027, 2038, 2044, 2049 (je sais, on ne sera peut-être plus là.... 🙂
De plus, le numéro de semaine peut être sous forme Sem.05 ou Sem.5
Bonne journée

Sub Rempl_Date()
Dim LeJour
Dim Jour_D As Byte
Dim Cel As Range
LeJour = Array("Lundi", "Mardi", "Mercredi", "Jeudi", "Vendredi", "Samedi", "Dimanche")
With Sheets("Feuil2")
    For Each Cel In .Range("A3:A" & .Cells(Rows.Count, "A").End(xlUp).Row)
        Jour_D = Application.Match(Application.Proper(Cel.Offset(, 3)), LeJour, 0) - 1
        Cel.Offset(, 1) = 7 * Val(Mid(Cel, 5, 2)) + DateSerial(Right(Cel, 4) * 1, 1, 3) - _
            Weekday(DateSerial(Right(Cel, 4) * 1, 1, 3)) - 5 + Jour_D
    Next Cel
End With
End Sub

 

[TooFatBoy]

De plus, le numéro de semaine peut être sous forme Sem.05 ou Sem.5

J'avoue que, dans l'absolu, c'est effectivement un plus.👍

Mais vu la réponse précédente de famu, je n'ai pas cherché plus loin. 😉

Comme je suis l’administrateur de ce fichier, toutes les semaines de l’année auront bien deux chiffres.

---

Une petite variante, qui tout d'abord, comporte quelques différences avec les calculs de @TooFatBoy , notamment pour les années 2021, 2027, 2038, 2044, 2049 (je sais, on ne sera peut-être plus là.... 🙂

Arf... me serais-je trompé ? 🤔

 

[Cousinhub]

Un petit fichier test, avec nos 2 solutions

 

[TooFatBoy]

Un petit fichier test, avec nos 2 solutions

Chouette, pas besoin d'attendre 2027 pour savoir. 😁

Je regarderais cet après-midi. Merci. 👍

 

[TooFatBoy]

@bhbh : Je viens de regarder ton fichier de #34 est tu as raison : ta colonne est juste et ma colonne est fausse. 🙁

 

[TooFatBoy]

J'ai compris pourquoi ça ne pouvait pas fonctionner : j'ai bêtement cru qu'en VBA WeekDay fonctionnait de la même façon que JourSem en formule, donc j'ai gardé la même forme alors que le paramètre 3 n'a pas du tout la même signification !

C'était trop logique et donc évident que les deux devaient fonctionner de la même façon que du coup ils fonctionnent différemment... 🤣

Heureusement que tu étais là bhbh. 👍


Je mets en pièces jointes les deux fichiers corrigés (enfin... j'espère !).