XL 2010 Changer Dimanche 04 juillet 2021 par 04/07/2021.

[DAVID-44-]

Bonjour à tous,
Je souhaiterais changer dimanche 04 juillet 2021 par 04/07/2021.
J'ai regardé sur les forums, mais je ne trouve pas de solutions à mon problème.
Merci de votre aide.
Bonne journée.
David.

 

[jcf6464]

Bonjour DAVID 44 ET le forum,

changer dans quoi celulles, textbox, combobox ,

a+ jcf64

 

[DAVID-44-]

Bonjour jcf6464,
Pardon en effet, je dois être plus précis.
Les dates sont dans des cellules.
Merci de votre aide.
Bonne journée.
David.

 

[jcf6464]

Bonjour DAVID 44 ET le forum,

Avec ton classeur cela serai mieux
a+ jcf64

 

[DAVID-44-]

Re,
J'ai déjà essayé, mais cela ne fonctionne pas !!!!
Merci de votre aide.
Bonne journée.
David.

 

[Phil69970]

Bonjour à tous

Si la date est en D4 par exemple

Sub ChangeDate()
Range("D4").NumberFormat = "m/d/yyyy"
End Sub

@Phil69970

 

[DAVID-44-]

Re,
J'ai essayé le code, mais cela ne fonctionne pas !!!!
Merci de votre aide.
Bonne journée.
David.

 

[Phil69970]

Re

Et pourtant ça fonctionne chez moi....

*Si ça ne marche pas chez toi c'est que ta date n'est pas une date mais du texte...

@Phil69970

 

[DAVID-44-]

Re,
OK, en effet ça doit être du texte !
Dans ce cas-là, que dois-je faire ?
Merci de votre aide.
Bonne journée.
David.

 

[Jocelyn]

Bonjour le forum
Bonjour DAVID-44- , jcf6464, Phil69970

A tester peut être si A1= 04 juillet 2021 mettre B1 en format date et entrer =dateval(A1)

Cordialement

Edit : et si rien de tout les essais ne fonctionne joindre un fichier exemple

 

[DAVID-44-]

Bonjour Jocelyn,@ jcf6464, @Phil69970
J'ai déjà essayé, mais cela ne fonctionne pas !!!!
Merci de votre aide.
Bonne journée.
David.

 

[Etoto]

Bonjour àtous,

Ta daa

=DATEVAL(SUBSTITUE(A1;GAUCHE(A1;CHERCHE(" ";A1));""))

EDIT : Bonjour @job75

 

[job75]

Bonjour DAVID-44-, jcf6464, Phil69970, Jocelyn, Etoto,

Voyez le fichier joint, cette macro convertit les textes en vraies dates :

Sub Convertir()
Dim a, tablo, i&, x$, j%
a = Array("lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche")
With [A1].CurrentRegion.Columns(1) 'plage à adapter
    tablo = .Value2
    For i = 1 To UBound(tablo)
        x = LCase(tablo(i, 1))
        For j = 0 To 6
            x = Replace(x, a(j), "")
        Next j
        x = Format(x, "dd/mm/yyyy")
        If IsDate(x) Then tablo(i, 1) = CDate(x)
    Next i
    .NumberFormat = "dd/mm/yyyy"
    .Value = tablo 'restitution
End With
End Sub

Pour rendre la conversion des textes possible il faut supprimer le jour "dimanche".

A+

 

[Jocelyn]

re,

je refais un dernier essai peut etre des espace insecable

A=04 juillet 2020 mettre B1 en format date et entrer =DATEVAL(SUBSTITUE(A1;CAR(160);CAR(32)))

Cordialement

EDIT : bonjour Etoto, Job75,

 

[DAVID-44-]

Bonjour job75, Etoto, jcf6464, Phil69970, Jocelyn,
Merci beaucoup de votre aide, ça fonctionne 🙂
Bonne journée.
David.