Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

excel 2007 et dates avant 1900

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

fidelio

XLDnaute Nouveau
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
 
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
 
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
 
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
 
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
Code:
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
 
Dernière édition:
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)
 
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 ?
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
1 K
Réponses
8
Affichages
870
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…