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

jcf6464

XLDnaute Occasionnel

• 13 Juillet 2021

• #2

Bonjour DAVID 44 ET le forum,

changer dans quoi celulles, textbox, combobox ,

a+ jcf64

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 13 Juillet 2021

• #3

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.

 

Vote positif 0 Vote négatif

jcf6464

XLDnaute Occasionnel

• 13 Juillet 2021

• #4

Bonjour DAVID 44 ET le forum,



Avec ton classeur cela serai mieux
a+ jcf64

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 13 Juillet 2021

• #5

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Juillet 2021

• #6

Bonjour à tous

Si la date est en D4 par exemple

VB:

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

@Phil69970

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 13 Juillet 2021

• #7

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 13 Juillet 2021

• #8

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

 

Pièces jointes

• Changement date.xlsm

  19.7 KB · Affichages: 7

Dernière édition: 13 Juillet 2021

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 13 Juillet 2021

• #9

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.

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 13 Juillet 2021

• #10

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

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 13 Juillet 2021

• #11

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

 

Vote positif 0 Vote négatif

Etoto

XLDnaute Barbatruc

• 13 Juillet 2021

• #12

Bonjour àtous,

Ta daa

VB:

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

EDIT : Bonjour @job75

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Juillet 2021

• #13

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

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

VB:

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+

 

Pièces jointes

• Convertir(1).xlsm

  18 KB · Affichages: 6

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 13 Juillet 2021

• #14

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,

 

Vote positif 0 Vote négatif

DAVID-44-

XLDnaute Occasionnel

• 13 Juillet 2021

• #15

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

 

Vote positif 0 Vote négatif