OVH Cloud OVH Cloud

vieilles dates

3 réponses
Avatar
alainL
Bonjour
Excel 2000 et XP SP
J'ai une colonne, saisie au format texte, de dates anciennes sous cette
forme : "18 janvier 1805"
Comment transformer ces données en format date afin de pouvoir les classer
par ordre chronologique ? (il y aura aussi sans doute des "jj mmmm 19a5"

Question subsdidiaire :-)) Que dit Excel du calendrier républicain ???
Merci

alain

3 réponses

Avatar
Daniel
Bonjour.
Excel ne sait pas faire. John Walkenbach a écrit une macro (je ne l'ai pas
testée) :
http://j-walk.com/ss/excel/usertips/tip028.htm
Pour anglophones only.
Daniel
"alainL" a écrit dans le message de news:
450fdef3$0$21145$
Bonjour
Excel 2000 et XP SP
J'ai une colonne, saisie au format texte, de dates anciennes sous cette
forme : "18 janvier 1805"
Comment transformer ces données en format date afin de pouvoir les classer
par ordre chronologique ? (il y aura aussi sans doute des "jj mmmm 19a5"

Question subsdidiaire :-)) Que dit Excel du calendrier républicain ???
Merci

alain


Avatar
Modeste
Bonsour® alainL avec ferveur ;o))) vous nous disiez :

J'ai une colonne, saisie au format texte, de dates anciennes sous cette
forme : "18 janvier 1805"
Comment transformer ces données en format date afin de pouvoir les classer
par ordre chronologique ? (il y aura aussi sans doute des "jj mmmm 19a5"


une macro ??? :
Sub Macro1()
' il faut adapter le code à la colonne à traiter.....
Columns("B:B").Select ' <===== ici
Selection.Insert Shift:=xlToRight
Selection.Insert Shift:=xlToRight
Columns("A:A").Select ' <===== et là ===== V
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:úlse, Comma:úlse, Space:=True, Other:úlse, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1)),
TrailingMinusNumbers:=True
' =====V ===========et puis là aussi
Range("C2").Select
Range("A1:C3").Sort Key1:=Range("C1"), Order1:=xlAscending, Key2:=Range( _
"B1"), Order2:=xlAscending, Key3:=Range("A1"), Order3:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:úlse, Orientation:= _
xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, _
DataOption3:=xlSortNormal
End Sub

voir également la macro complementaire :
http://j-walk.com/ss/excel/files/xdate.htm
download http://j-walk.com/ss/excel/files/xdate.exe


Question subsdidiaire :-)) Que dit Excel du calendrier républicain ???
voir la macro complémentaire :

DATEREP : transcription d'une date dans le calendrier républicain ("Mousse, 2
Pluviôse de l'An CLXXVI"...)
ROMINVERSE : conversion d'un nombre romain en nombre décimal
download http://xcell05.free.fr/downloads/Bric-a-Brac.zip
--
--
@+
;o)))

Avatar
bda75
0./ faire une série de recherche/remplace pour formatter les dates
19a5 en 1905, ...Etc

Supposons que le texte soit en A1
1./ En B1, mettre la formule: "=LEFT(A1,FIND(" ",A1)-1)" qui retourne
le numéro dans le mois.

2./ En B2, mettre la formule:
"=PROPER(MID(A1,LEN(B1)+2,LEN(A1)-LEN(B1)-6))" qui retourne le nom du
mois capitalisé.

3./ En B3, mettre la formule: " =RIGHT(A1,4)+500" qui retourne l'année
et lui ajoute ce qu'il faut pour qu'elle soit > 1900 qui est l'année
minimale du format date d'Excel

4./ Créer une liste qque part dans la feuille avec les noms des mois,
p.ex. avec la formule "=TEXT(DATE(2006,ROW(),1),"mmmm")" que l'on
recopie 12x à partir de la ligne 1. Nommer la zone 'mois'

5./ En B4, mettre la formule:"ÚTE(D1,MATCH(C1,mois,),B1)"

On maintentant en B4 une valueur date qui permet de faire des tris
B.


Bonjour
Excel 2000 et XP SP
J'ai une colonne, saisie au format texte, de dates anciennes sous cette
forme : "18 janvier 1805"
Comment transformer ces données en format date afin de pouvoir les clas ser
par ordre chronologique ? (il y aura aussi sans doute des "jj mmmm 19a5"

Question subsdidiaire :-)) Que dit Excel du calendrier républicain ???
Merci

alain