Inverser ce programme

Bonjour le forum

Quelqu'un du forum m'a fait ce programme. Serait-il possible de faire l'inverse?

Merci à vous

Cordialement

Sub ConvertStrDate()
    Dim I As Single, DrLigne As Single
    Dim DateStr As String
    Dim LaDate As Date
    Dim test As String

    DrLigne = Range("A" & Rows.Count).End(xlUp).Row
    For I = 3 To DrLigne
        DateStr = Range("A" & I).Value2
        DateStr = Mid(DateStr, InStr(1, DateStr, " ") + 1, Len(DateStr))
        LaDate = CDate(DateStr)
        Range("A" & I) = LaDate
    Next I
    Application.ScreenUpdating = True     'Ajouter cette ligne pour exécuter programme correctement (MFC)
End Sub

Bonjour al87, le forum,

C'est à dire ? Déjà que fait celui-ci concrètement et simplement ?

Ensuite qu'entends-tu par 'l'inverse" ?

Bien cordialement,

Bonjour MPETIT le forum

J'ai des dates tapées en TEXTE cette macro fait ceci Ex: lundi 17 février 2020 => 17/02/20

Cordialement

Bonjour tout le monde,

Un essai :

Sub ConvertDateStr()
    Dim I As Long

    For I = 3 To Range("A" & Rows.Count).End(xlUp).Row
        Range("A" & I) = Format(CDate(Range("A" & I)), "DDDD DD MMMM YYYY")
    Next I
End Sub

Regarde en PJ. Exécute le module 2. Il est relié à la colonne B.

Bien cordialement,

Bonjour Pedro22 et MPETIT

Pedro22 ça bug

MPETIT oui ça le fait mais peut-on mettre le jour de la semaine?

Peut-on mettre un domaine. Exemple A1:A10?

Merci à vous deux