Changer format de date

Vilain

XLDnaute Accro

• 15 Juin 2012

• #2

Re : Changer format de date

Bonjour et bienvenue,

Tu n'as qu'a faire un copier/collage spécial multiplication par 1 puis retenter de changer le format.
Cela convient-il ?

A plus

 

Vote positif 0 Vote négatif

N

nancy1987

Guest

• 15 Juin 2012

• #3

Re : Changer format de date

Bonjour Gillus69,

Malheureusement, cela ne marche pas... la date reste sans changement....

 

Vote positif 0 Vote négatif

H

hoerwind

XLDnaute Barbatruc

• 15 Juin 2012

• #4

Re : Changer format de date

Bonjour et bienvenue sur le forum,

Sélectionner la plage de dates à convertir
Menu Données - Convertir - Suivant - Suivant - cocher "Dates" (en haut à droite) - choisir "MJA" - Terminer.

 

Vote positif 0 Vote négatif

KenDev

XLDnaute Impliqué

• 15 Juin 2012

• #5

Re : Changer format de date

Bonjour Nancy, Gillus,

Dans le cadre de la macro à venir, une fonction :

VB:

Function Ncy$(t$)
    Dim Tb$(), i%
    Tb = Split(t, "/")
    For i = 0 To 1
        If Len(Tb(i)) = 1 Then Tb(i) = "0" & Tb(i)
    Next i
    Ncy = Tb(1) & Tb(0) & Tb(2)
End Function

Cordialement

KD

 

Vote positif 0 Vote négatif

N

nancy1987

Guest

• 15 Juin 2012

• #6

Re : Changer format de date

Merci hoerwind!

Cela a marché! 🙂

Mais là j'ai un autre souci. J'obtiens 15/06/2012, mais je dois arriver à un format final de 15062012 (jjmmaaaa). Si j'utilise format de cellule personnalisée, dans la formule en haut les slashs sont toujours présents ce qui m’empêche de renommer la feuille avec cette date ( ce qui est le but final)(les caractères spéciaux étant interdits quand on renomme une feuille) . Si je fais convertir encore une fois en texte et ensuite ctrl+F remplacer slash par rien (j'enregistre tout cela pour ma macro) la date revient au mjjaaaa.

Des idées?

 

Vote positif 0 Vote négatif

N

nancy1987

Guest

• 15 Juin 2012

• #7

Re : Changer format de date

Bonjour,

Merci beaucoup pour cette fonction!

Ca marche 🙂)))))

KenDev à dit:

Bonjour Nancy, Gillus,

Dans le cadre de la macro à venir, une fonction :

VB:

Function Ncy$(t$)
    Dim Tb$(), i%
    Tb = Split(t, "/")
    For i = 0 To 1
        If Len(Tb(i)) = 1 Then Tb(i) = "0" & Tb(i)
    Next i
    Ncy = Tb(1) & Tb(0) & Tb(2)
End Function

Cordialement

KD

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif