excel 2007 et dates avant 1900

[fidelio]

Bonjour

J'ai un probleme de date antérieure a 1900 pour excel 2007

Sur le net j ai trouvé des reponses ou add ons mais c etait pour excel 97 et ca ne fonctionne pas sous excel 2007.


Comment faire pour que mon excel accepte les dates antérieures a 1900 afin que je puisse faire des tris et que je puisse après alimenter une base de données mysql. Je bloque à cause de ce probleme de date

 

[kiki29]

Re : excel 2007 et dates avant 1900

Essaie Excel User Tip: Working with pre-1900 dates il tourne sans pb d'XL 97 à 2007

 

[fidelio]

Re : excel 2007 et dates avant 1900

après avoir rentré une date récente en tapant 1/1/08, excel note 01/01/2008

Si je tape 1/1/1770, il reste sur 1/1/1770 y compris après l'ajoout de cette macro xdate et ne les trie pas

 

[jeanpierre]

Re : excel 2007 et dates avant 1900

Bonjour fidelio et Bienvenue sur le forum, kiki,

En saisie, essayes plutôt 01/01/1770.... (lire aussi les explications qui y sont founies)

En date reconnues pas excel, tu peux saisir 1/1/08, excel adapte, tout comme si tu saisies 10/2/65, il saura aussi reconnaitre. Mais de souvenir, il faut, ici, être plus précis.

Je n'ai plus cette macro, tout perdu avec mon DD, je vais donc la reprendre.

A te lire....

Jean-Pierre

 

[fidelio]

Re : excel 2007 et dates avant 1900

non ca ne marche pas

j'ai testé avec 4 dates :

01/01/2008
01/01/2007
01/01/1900
01/01/1899

je demande un classement par date la plus ancienne

il me repond

01/01/1900
01/01/2007
01/01/2008
01/01/1899

 

[kiki29]

Re : excel 2007 et dates avant 1900

2 approches via une colonne intermédiaire,à toi de l'adapter à ton contexte
en triant sur colonne B

Option Explicit

Sub Tst()
Dim i As Long
Dim iLastRow As Long
Dim Ar() As String
    iLastRow = Range("A65536").End(xlUp).Row
    For i = 1 To iLastRow
        Ar = Split(Cells(i, 1), "/")
        Cells(i, 2) = Ar(2) & Ar(1) & Ar(0)
    Next i
End Sub

Sub Tst2()
Dim i As Long
Dim iLastRow As Long
    
    Application.ScreenUpdating = False
    
    ShDates.Columns("B:B").Clear
    iLastRow = ShDates.Range("A65536").End(xlUp).Row
    
    For i = 1 To iLastRow
        ShDates.Cells(i, 2) = Int(CDbl(CDate(ShDates.Cells(i, 1))))
    Next i
    
    With ShDates
        .Range("A1:B" & iLastRow).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo
        .Columns("B:B").Clear
    End With
    
    Application.ScreenUpdating = True
End Sub

 

[fidelio]

Re : excel 2007 et dates avant 1900

euh cé du chinois ton message pour moi là

🙄

 

[kiki29]

Re : excel 2007 et dates avant 1900

A adapter à ton contexte

 

[fidelio]

Re : excel 2007 et dates avant 1900

décidément, pas d chance, je ne peux pas lire ton fichier car le zip n'est pas reconnu ou endommagé

😕

 

[jeanpierre]

Re : excel 2007 et dates avant 1900

Re,

Je viens de l'ouvrir sans problème et en plus la soluce est super.

 

[titi03]

Re : excel 2007 et dates avant 1900

bonjour le forum
le voici sans zip
il marche sans probleme

 

[fidelio]

Re : excel 2007 et dates avant 1900

vrai ???

ben moi il me dit que l archive zip est d'un format inconnu ou endommagé

 

[jeanpierre]

Re : excel 2007 et dates avant 1900

Re,

fidelio, quelle est ta config.?

Quels sont les compresseurs que tu utilises?

Il n'y en a presque plus besoin, voire pas de tout, avec celui de windows.... (certains présentent des ambiguîtés)

 

[fidelio]

Re : excel 2007 et dates avant 1900

non ca marche en fichier xls.

je vois que dans ton exemple ca marche nickel

et donc pour importer ta macro dans mon tableau deja créé faut forcément que mes dates soient dans une colonne A ?

 

[kiki29]

Re : excel 2007 et dates avant 1900

Comme tu n'as pas fourni de fichier c'est à toi de l'adapter maintenant à ton contexte