1900

Version imprimable

Voir 40 message(s) de cette discussion en une page

17/03/2008, 13h18
Invité
Bonjour,

Sacha2007 : quelle version d'Excel utilisez-vous (moi c'est 2000) ?

Fring :
Code:

1 2 3 4 5 6 7 Date début 20/02/1861 Date de fin 01/03/1861 Résultat = 9 jours Date de début 20/02/1860 Date de fin 01/03/1860 Résultat = 10 jours (année bissextile)
Bien sûr dans ce cas cela fonctionne. Le problème ne se pose qu'avec 01/01/1900 et s'il a été enregistré au format date.

Les dates antérieures au 01/01/1900 s'enregistrent automatiquement en format texte.

Bien sûr qu'il suffit de saisir le dates au format texte, mais dans le cas de Sacha2007 (ou pour un autre cas) si une grand nombre de dates posant le problème ont déjà été saisies il faut les ressaisir à nouveau après avoir formaté les cellules en texte, car le formatage avec les cellules déjà remplies ne change rien.

Ouskel'nor : juste pour préciser, pour les années bissextiles, c'est ce que j'avais écrit dans une précédente réponse. C'est le problème du fameux bogue de l'an 2000 (qui n'a pas eu lieu). Les informaticiens ont réalisé un peu tard que l'année sur 2 caractères allait poser un problème. Il n'y avait pas d'antécédent, ils n'avaient pas de prédécesseurs qui pouvaient avoir pris conscience du problème pour l'année 1600 !!!
17/03/2008, 13h41
ouskel'n'or
Merci Jacques-Jean. J'ai une explication. Maintenant, pour le pb du format texte, une solution simple en admettant que les dates début et fin se trouvent respectivement dans les colonnes A et B :
Code:

1 2 3 4 5 6 7 Sub Test_Texte() Dim i As Long For i = 1 To Range("A65536").End(xlUp).Row Cells(i, 1) = "'" & Cells(i, 1) Cells(i, 2) = "'" & Cells(i, 2) Next End Sub
J'ai testé et ça fonctionne aussi bien avant qu'après 1900 ;)
Code:

1 2 31/12/1899 1/1/1900 1 28/02/1901 01/03/1901 1
17/03/2008, 17h14
Invité

Re Ouskel'n'or,

Et oui je n'avais pas pensé à tester cette insertion de l'apostrophe pour forcer le format texte.

Le problème est que si A1 contient 01/01/1900 en format date et que j'utilise la ligne de code :

Cells(i, 1) = "'" & Cells(i, 1)

en A1 s'affiche toujours 31/12/1899 et cela jusqu'au 29/02/1900 qui affiche 28/02/1900.

Est-ce la cas pour tous ceux qui ont Excel 2000 (et peut-être d'autres) ?

Sinon ai-je un paramétrage particulier quelque part ?

J'ai bien trouvé une solution, mais qui n'est pas très satisfaisante :

-dans les options cocher "Calendrier depuis 1904" mais pour toutes les données au format date > 31/12/1899 et < 01/01/1904 se transforment en ajoutant 4 ans.

Par contre si l'on entre manuellement ou par Inpoutbox les dates précédent le 01/01/1904 elles s'affichent bien en format texte comme pour les dates avant le 01/01/1900 quand c'est l'autre option qui est cochée.

Si j'ai raison et que je ne suis pas le seul à constater ces faits je ne vois qu'une solution :

-on affecte la valeur de la cellule à une variable.
-Si la variable prend une valeur comprise entre "31/12/1899" et 28/02/1900" et que la cellule n'est pas au format "texte" on ajoute 1 jour et réaffecte au format texte (le test : si la cellule n'est pas au format texte étant fait pour ne pas modifier une date réellement = 31/12/1899 qui elle sera obligatoirement au format texte.

J'ajoute que j'ai téléchargé et installé la macro complémentaire préconisée par Bigalo dans le sujet :

http://www.developpez.net/forums/sho...d.php?t=468344

et aucun changement.

Mes connaissances de la langue anglaise ne sont pas suffisantes pour me permettre de traduire le texte sur le site, ni celui du fichier d'aide présent dans le fichier .zip pour comprendre ce que peut faire cette macro.

Je rappelle que cette recherche ne vaut que pour transformer des dates existantes, au format date, sur une feuille Excel et comprises entre le 01/01/1900 et 28/02/1900 en dates en format texte.

Citation:

Envoyé par j-j

en A1 s'affiche toujours 31/12/1899 et cela jusqu'au 29/02/1900 qui affiche 28/02/1900

Quel problème celà provoque-t-il ?
Mois j'ai ça en incrémentant les lignes et en ajoutant l'apostrophe en partant du 1er janvier
Code:

1 2 3 4 5 6 7 8 9 10 11 31/12/1899 01/01/1900 1 ... ... 31/12/1899 26/02/1900 57 31/12/1899 27/02/1900 58 31/12/1899 28/02/1900 59 31/12/1899 01/03/1900 60 31/12/1899 02/03/1900 61 31/12/1899 03/03/1900 62 31/12/1899 04/03/1900 63 31/12/1899 05/03/1900 64
Le nombre de jours entre les deux date est exact

17/03/2008, 18h07
Invité

La différence que vous faites est par formule Excel ou avec VBA ?

En 1ère colonne la date d'origine est bien 31/12/1899 et non une recopie au format texte (si oui elle est donc d'origine au format standard et non texte) ?

Voici ce que je viens de trouver sur ce site Microsoft

http://support.microsoft.com/kb/466618/fr

qui semble bien confirmer ce que je disais dans ma précédente réponse :

Citation:

En Visual Basic Edition Applications, j'ai créé une fonction personnalisée
qui recueille en argument une date saisie dans une cellule.
Les dates antérieures au 1er mars 1900 ne sont pas traitées correctement
(le 1er février 1900 est interprété comme le 31 janvier 1900, par
exemple).
Quelle en est la raison, et comment puis-je l'éviter ?

Retour au début
Résolution

Ceci est dû au 29 février 1900. Dans une feuille de calcul, Excel autorise
la saisie du 29 février 1900 bien que l'année 1900 ne soit pas bissextile.
Ceci est dû à un soucis de compatibilité avec les feuilles de calcul
issues de Lotus 1-2-3. Par contre, Visual Basic Edition Applications ne
permet pas l'utilisation du 29 février 1900.

De plus, le calendrier d'une feuille de calcul débute le 1 janvier 1900
alors qu'il débute le 31 décembre 1899 dans un programme Visual Basic
Edition Applications.

Ainsi, les dates antérieures au 1 mars 1900 ne possèdent pas le même
numéro de saisie entre une feuille de calcul et un module Visual Basic
Edition Applications. Toutes les dates postérieures au 1 mars 1900
utilisent le même numéro de série dans les deux cas.

Le tableau suivant présente la date gérée par Visual Basic Edition
Application et par une feuille de calcul Excel en fonction du numéro de
série :

N° de série | Saisie Excel| Date dans VBA
62 | 02/03/1900 | 02/03/1900
61 | 01/03/1900 | 01/03/1900
60 | 29/02/1900 | 28/02/1900
59 | 28/02/1900 | 27/02/1900
58 | 27/02/1900 | 26/02/1900

... | .. | ...

32 | 01/02/1900 | 31/01/1900
1 | 01/01/1900 | 31/12/1899

Pour éviter cette différence, vous devez ajouter un traitement dans votre
fonction personnalisée. Il doit consister à ajouter 1 au numéro de série
si la date est inférieure au 29 février 1900, et provoquer une erreur
s'il s'agit du 29 février 1900.

J'ai une fonction et une sub.
La fonction :

Code:

1
2
3
4
5
6
7
8
Function Tps(Cell As Range) As Double
Dim DateDeb As Double, DateFin As Double, Debut As String, Fin As String
Debut = Cells(Cell.Row, 1)
Fin = Cells(Cell.Row, 2)
DateDeb = CDbl(DateSerial(Year(Debut), Month(Debut), Day(Debut)))
DateFin = CDbl(DateSerial(Year(Fin), Month(Fin), Day(Fin)))
Tps = DateFin - DateDeb
End Function

La procédure

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub RemplissageDesCellules()
Dim DateDeb As Date, DateFin As Date
Dim i As Long
    DateDeb = "31/12/1899"
    DateFin = "31/12/1900"
    For i = DateDeb To DateFin
        Cells(i, 1) = "31/12/1899" ' sur toutes les ligne
        Cells(i, 2) = i 'la date incrémentée
        ' la formule placée en C (donne le résultat de la fonction)
        Cells(i, 3).FormulaLocal = "=tps(" & Cells(i, 1).Address(0, 0) & ")" 
    Next
    For i = 1 To Range("A65536").End(xlUp).Row
        Cells(i, 1) = "'" & Cells(i, 1)
        Cells(i, 2) = "'" & Cells(i, 2)
    Next
End Sub

Je commence par "31/12/1899" sur mes deux colonnes de dates.
A+

Chez moi cela ne fonctionne pas.

En effet :

Code:

1
2
3
4
5
6
Dim i As Long
    DateDeb = "31/12/1899"
    DateFin = "31/12/1900"
    For i = DateDeb To DateFin
        Cells(i, 1) = "31/12/1899" ' sur toutes les ligne
        Cells(i, 2) = i 'la date incrémentée

ici la valeur de i est 1 puis 23 etc et c'est cette valeur que je retrouve dans Cells(i, 2) et l'affectation continue après que la date de fin soit atteinte.

Par contre en modifiant comme ci-dessous et en supprimant le second "For i"
cela a bien fonctionné :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Function Tps(Cell As Range) As Double
Dim DateDeb As Double, DateFin As Double, Debut As String, Fin As String
Debut = Cells(Cell.Row, 1)
Fin = Cells(Cell.Row, 2)
DateDeb = CDbl(DateSerial(Year(Debut), Month(Debut), Day(Debut)))
DateFin = CDbl(DateSerial(Year(Fin), Month(Fin), Day(Fin)))
Tps = DateFin - DateDeb
End Function
 
 
Sub RemplissageDesCellules()
Dim DateDeb As Date, DateFin As Date
Dim i As Long, nb As Long
i = 1
 
    DateDeb = "31/12/1899"
    DateFin = "31/12/1900"
    nb = DateDiff("d", DateDeb, DateFin)
    For n = 1 To nb
        Cells(i, 1) = "31/12/1899" ' sur toutes les ligne
        Cells(i, 2) = "'" & DateDeb + i 'la date incrémentée
        ' la formule placée en C (donne le résultat de la fonction)
        Cells(i, 3).FormulaLocal = "=tps(" & Cells(i, 1).Address(0, 0) & ")"
 
        i = i + 1
    Next n
 
  End Sub

J'ajoute quand même à nouveau que ce que je croyais avoir compris est que Sacha2007 avait peut-être déjà de nombreuses dates enregistrées ce qui explique que j'ai voulu approfondir avec un format de date, mais ce sera peut-être pour un autre cas.

17/03/2008, 20h34
ouskel'n'or

C'est curieux, j'avais testé en insérant les apostrophes dans la même boucle (ce qui paraîtrait normal) mais je me retrouvais avec un 29/2/1900. Tu veux vérifier ?
Merci

Non, je viens de tester et voila l'extrait de ce que j'obtiens :
Code:

1 2 3 31/12/1899 27/02/1900 58 366 1956 31/12/1899 28/02/1900 59 365 1957 31/12/1899 01/03/1900 60 365 1958

17/03/2008, 21h03
ouskel'n'or

Ok. Merci. J'en reste là :lol: sacha a déjà de quoi se mettre sous la dent... Faut lui laisser un peu de boulot...
Et puis faut dire qu'à un jour près, 1900, c'est loin... ;)
Bonne soirée
17/03/2008, 21h13
Invité

OK Ouskel'n'or d'autant plus que Sacha2007 ne s'est plus manifesté.

S'il le fait, on pourra maintenant lui proposer la solution qui lui convient s'il donne des précisions.

Bonne soirée également.

Bonsoir ttm

Je me suis basé sur vos différentes proposition, pour enfin sortir avec une solution qui a reglé mon problème avec l'insertion de la date (1/1/1900) format (m/j/aaaa), mon problème au début c'est que j'ai mis une condition sur la cellule qui porte la date 1/1/1900 et il doit être égale à la date inserée via inputBox. voici le petit code:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Public Sub InsertDate() Dim StartDateInsert As Date StartDateInsert = InputBox(Prompt:="Enter start Date, Format m/j/aaaa") Cells(1, 3).Value = StartDateInsert Cells(1, 1).Value = StartDateInsert - 1 If Cells(1, 1).Value = StartDateInsert - 1 Then Cells(3, 1).Value = Cells(2, 1).Value - Cells(1, 1).Value End If End Sub
vous êtes des vrais zamis, Merci milles fois.

Voir 40 message(s) de cette discussion en une page