1900

Version imprimable

bonjour,

je suis nouveau dans la programmation. maintenant, j'ai un problème avec l'insertion dans une feuille excel des dates avant 1/1/1900 de format (m/j/yyyy). ces dates ne sont pas acceptées. je tiens à vous informer que je veux faire des opérations de soustraction sur ces dates.j'ai également un autre problème, lorsque j'insère des dates entre 1/1/1900 et 3/1/1900, ces dates s'incrémentent, par exemple, avec 1/1/1900 ça devent 2/1/1900. voici maintenant le petit code:
Code:

1 2 3 4 5 6 7 8 9 10 11 Public Sub InsertDate() Dim StartDateInsert As Date Cells(1, 1).Clear StartDateInsert = InputBox(Prompt:="Enter start Date, Format m/d/yyyy") Cells(1, 1).Value = StartDateInsert End Sub
merci d'avance de votre précieuse aide.

15/03/2008, 16h32
ouskel'n'or
Pour autant que je sache, Excel n'accepte les dates antérieures au 1/1/1900 qu'en format text. Donc, pour les opérations, faudrait faire un split sur la date saisie et en extraire les valeurs.
Ex :
Code:

1 2 3 4 Cells(1,1) = "3/14/1985" Mois = Split(Cell(1,1), "/")(0) Jour = Split(Cell(1,1), "/")(1) Annee = Split(Cell(1,1), "/")(2)
Si une autre solution existe (or les mid, left, right... etc) je ne demande qu'à apprendre ;)

Code:

1
2
3
Dim toto as string
toto = "03/02/1857"
msgbox Dateserial(Year(toto),Month(toto),Day(toto))

15/03/2008, 19h10
Invité

Bonjour Sacha2007,

Je suis d'accord avec la réponse de Ouskel'n'or.

A mon avis la réponse de Ucfoutu n'est que partiellement valable. Elle solutionne le problème de l'affichage de la date dans la cellule mais pas le calcul de différence entre deux dates.

Le problème des dates est bien sûr le calcul des années bissextiles qui le sont lorsque les 2 derniers chiffres de l'année sont divisibles par 4, ce qui est partiellement faux puisque lorsqu'il s'agit d'une année de fin de siècle ce sont les 2 premiers chiffres qui doivent être divisibles par 4.

Regardez ici si cela répond à votre question :

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

et particulièrement sur le lien donné par Bigalo :

http://j-walk.com/ss/excel/usertips/tip028.htm

Bonjour, jacques_jean,

Pardon ? T'as essayé ?

Fais-le donc :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Command1_Click() Dim toto As String, titi As String, dtoto As Date, dtiti As Date toto = "03/22/1857" titi = "12/05/1897" dtoto = DateSerial(Year(toto), Month(toto), Day(toto)) dtiti = DateSerial(Year(titi), Month(titi), Day(titi)) MsgBox DateDiff("d", toto, titi) & " jours entre " & toto & " et " & titi MsgBox DateDiff("yyyy", toto, titi) & " années entre " & toto & " et " & titi MsgBox DateDiff("m", toto, titi) & " mois entre " & toto & " et " & titi MsgBox dtiti + 1 & " est le lendemain de " & titi MsgBox dtiti - 7 & " est le " & Format(dtiti - 7, "dddd") & " de la semaine précédent le " & Format(dtiti, "dddd dd/mm/yyyy") End Sub
Et bien évidemment, que je pars de strings (ce que sont toto et titi ...)...

Citation :

Citation:

To specify a date, such as December 31, 1991, the range of numbers for each DateSerial argument should be in the accepted range for the unit; that is, 1–31 for days and 1–12 for months. However, you can also specify relative dates for each argument using any numeric expression that represents some number of days, months, or years before or after a certain date.
The following example uses numeric expressions instead of absolute date numbers. Here the DateSerial function returns a date that is the day before the first day (1 - 1), two months before August (8 - 2), 10 years before 1990 (1990 - 10); in other words, May 31, 1980.
DateSerial(1990 - 10, 8 - 2, 1 - 1)

For the year argument, values between 0 and 99, inclusive, are interpreted as the years 1900–1999. For all other year arguments, use a four-digit year (for example, 1800).

C'est toute la puissance de DateSerial ...

15/03/2008, 20h23
Invité

Bonsoir Ucfoutu,

J'espère que vous n'allez pas m'en vouloir pour ma réponse.

J'ai simplement précisé que vous n'aviez pas donné la solution pour calculer la différence entre les 2 dates.

Puis ayant trouvé une solution proposée sur ce forum, j'en ai fait état dans ma réponse.

D'ailleurs, si Excel ne savait pas le faire même à travers VBA, il est facile de faire le calcul en partant du 1er janvier de l'année 1.

Mais vous avez raison, il sait le faire et votre code fonctionne parfaitement.

J'en ai fait la vérification en partant d'une date de 1897 jusque 2001.
15/03/2008, 20h38
ouskel'n'or

Merci ucfoutu, je n'ai effectivement pas pensé à tester cette solution. Mais reste zen, le samedi, c'est un jour de détente Pièce jointe 27088
15/03/2008, 20h52
ucfoutu

Allons allons...

Comment en voudrais-je (et pourquoi ?) à qui que ce fût ?.

Vous êtes tous des ZAMIS !

Mais nous en avons un en commun, et il s'appelle VB...:lol:
15/03/2008, 22h03
Invité

Merci pour votre réponse Ucfoutu.

Vous avez raison et je reprends votre citation :

Citation:

Vous êtes tous des ZAMIS !

Mais nous en avons un en commun, et il s'appelle VB...

Je vais essayer de m'en souvenir.
15/03/2008, 23h17
sacha2007

Merci tous le monde pour l'interêt que vous avez manifesté envers mon problème. mais, moi je veux insérer deux dates avant 1/1/1900 par le biais de inputbox dans deux cellules et après optenir la différence entre ces deux dates en jours par exemple (1/1/1889)-(1/1/1888)=365j. j'ai essayé d,adapter le code de notre ami ucfoutu mais en vain.

Je reprends la méthode de ucfoutu et lui ajoute cdbl pour transformer la date en N° de série (en dessous du 1/11900 ces N° de série sont négarifs)
Code:

1 2 3 4 5 Debut = "01/01/1888" fin = "1/1/1889" DateDeb = CDbl(DateSerial(Year(Debut), Month(Debut), Day(Debut))) DateFin = CDbl(DateSerial(Year(fin), Month(fin), Day(fin))) MsgBox DateFin - DateDeb
A+

Bonjour Ouskel'nor et Sacha2007,

J'ai testé à nouveau le code de Ucfoutu et tout fonctionne très bien :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub test1() Dim toto As String, titi As String, dtoto As Date, dtiti As Date toto = "01/01/1888" titi = "01/01/1889" Cells(1, 1) = toto Cells(1, 2) = titi dtoto = DateSerial(Year(toto), Month(toto), Day(toto)) dtiti = DateSerial(Year(titi), Month(titi), Day(titi)) Cells(1, 3) = DateDiff("d", dtoto, dtiti) End Sub
En cellule C1 le résultat est bien 366 jours (OK puisque 1888 est une année bissextile) et en A. et B1 la date est bien affichée au format texte.

16/03/2008, 15h44
sacha2007

Bonjour Jacques_jean, Bonjour tous le monde,

c'est sûr le dernier code doit résoudre mon problème avec quelques adaptations, mais étant donné que je suis nouveau dans la programmation j'arrive oas à faire ce que je veux exactement. en effet, moi j,ai déjà toute une colonne de dates qui commencent à partir de 1/1/1900 (ça c'est à partir de la cellule A2) (m/d/yyyy) et je veux insérer la date suivante (1/1/1889) dans la première cellule A1 de cette colonne. je veux que cette date soit reconnue de type date pour pouvoir calculer la différence entre les années en jours. par exemple la 2ème année (1/1/1900) - la 1ère année(la date insérée 1/1/1889). le résultat doit être affiché à côté de la 2ème cellule, et ainsi de suite avec le reste des autres années. en fait, c'est la date insérée qui constitue un problème pour mois puisqu'elle n'est pas reconnue comme date.

merci de votre aide et je m'excuse de vous avoir importuné
16/03/2008, 16h24
ouskel'n'or

Teste ça
Pièce jointe 27112
La fonction tps se trouve dans le module 1.
Si cet exemple peut te servir...
A+
16/03/2008, 17h54
Invité
Re Ouskel'nor,

J'ai testé votre fonction après avoir modifié :
Code:

1 2 3 Tps = DateDiff("y", DateDeb, DateFin) en Tps = DateDiff("d", DateDeb, DateFin)
pour obtenir une différence en nombre de jours comme le demande Sacha 2007.

Le résultat correspond à ce que j'obtenais avec les essais que je suis en train de faire (je n'avais jamais traité ce cas de l'année 1900 que sur un autre logiciel que Excel et VBA et à priori on pouvait plus facilement le traiter).

Et voila ce que j'obtiens par exemple :
Code:

1 2 3 31/12/1899 02/01/1900 1 31/12/1886 02/01/1887 2
On voit bien l'erreur sur la 1ère ligne (en rouge).

Et on la comprend.

Si vous ne l'avez pas déjà fait vous entrez : 01/01/1900 en A1

Puis vous exécutez ce code :
Code:

1 2 3 Private Sub test1() dat1 = Cells(1, 1) en sub
La valeur de dat1 est "31/12/1899"

si vous entrez le 02/01/1900 dat1 = "01/01/1900"
et pour 28/02/1900 dat1 = "27/02/1900"

ce qui pour moi est une aberration est que si vous entrez :

29/02/1900 bien sûr dat1 = 28/02/1900 mais le 29/02/1900 ne devrait pas être accepté, il n'a jamais existé.

Pour terminer à partir de : 01/03/1900 la valeur n'est plus modifiée.

J'ai essayé d'utiliser Dim dat1 as String, dat1 = DateSerial, dat1 = CdBl(DateSerial etc.

Rien n'y fait. Excel affiche une date dont le N° de série est inférieur de 1 et donc ne connaît pas réellement la date affichée.

En fait je pense que les gens de chez Microsoft on utilisé une astuce qui consiste à considérer l'année 1900 comme une pseudo année bissextile (tant pis si je dis une bêtise).

Je vais maintenant approfondir avec le lien que j'avais communiqué au départ à Sacha2007, mais vous aurez peut-être trouvé la solution d'ici-là.
16/03/2008, 18h50
sacha2007

Re Jacques_jean,

si tu te rappelle j'ai posé cette question au débutet franchement j'arrive pas à comprendre. moi lorsque j'insère une date entre (1/1/1900 et 2/29/1900 )format (m/j/yyyy) dans une cellule à l'aide de inputBox, je constate que ces dates s'incrémente càd 1/1/1900 devient 1/2/1900. mais, il n' y a aucun problème avec les dates qui commencent à partir de 3/1/1900. bizzar!
17/03/2008, 00h16
ouskel'n'or
Même remarque. VBA refuse le 1/01/1900 et ajoute le 29 février.
Code:

1 2 3 4 5 6 7 Sub Test_Incrémentation() Dim DateDeb As Date, DateFin As Date DateDeb = "1/1/1900" DateFin = "31/12/1900" For i = DateDeb To DateFin Cells(i, 5) = i Next
:koi:

PS - J'ai bien le 2/1 puis le 3/1 (contrairement à Jacques-Jean) mais je n'ai pas le "1/1/1900".
J'ai commis une erreur ?

Bonjour tlm,

Je me permet d'apporter ma pierre à l'édifice
En reprenant la question de Sacha (encoder 2 dates via des inputbox) et le code de Ousk, je viens de tester ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub calcul_jours() Dim Debut$, Fin$ Debut = InputBox("Date de début (jj/mm/aaaa)") Range("A1") = Debut Fin = InputBox("Date de fin (jj/mm/aaaa)") Range("A2") = Fin DateDeb = CDbl(DateSerial(Year(Debut), Month(Debut), Day(Debut))) DateFin = CDbl(DateSerial(Year(Fin), Month(Fin), Day(Fin))) Range("A4") = DateFin - DateDeb & "j" MsgBox "il y a " & DateFin - DateDeb & " jours entre " & Debut & " et " & Fin End Sub
Cela fonctionne en mettant les cellules au format "texte"

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)

@+ ;)

17/03/2008, 09h13
ucfoutu

Citation:

Envoyé par ouskel'n'or

Pour autant que je sache, Excel n'accepte les dates antérieures au 1/1/1900 qu'en format text.

Citation:

Envoyé par ucfoutu

Et bien évidemment, que je pars de strings (ce que sont toto et titi ...)...

Je crois que la chose était claire.;)
17/03/2008, 11h27
fring

Oui j'ai le problème si je laisse le format des cellules au format "Date"
01/03/1900 - 28/02/1900 = 2 jours

Mais si on fige le format au format "texte" le résultat obtenu est bien 1 jour

oui oui vas y donne un coup de balais, n'oublie pas de vider les cendriers :mouarf:
17/03/2008, 12h18
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, 12h41
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, 16h14
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, 17h07
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, 19h34
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, 20h03
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, 20h13
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.

Fuseau horaire GMT +2. Il est actuellement 12h07.