[VBA-E 97]Ajout automatique d'une colonne selon la date

Bonjour,
Sous Excel 97, j'ai une colonne avec 5000 lignes environ qui ne contiennent
que des dates.
Avec la fonction MAX je récupère la date la plus ancienne contenue dans la
colonne.
Je récupère donc, par exemple, le 28/02/2006.
Je trouve donc que le dernier mois présent est le mois de février.
A partir de là, l'affaire se complique.
J'aimerais ajouter une colonne à côté de celle des dates, avec des
approximations :

Date | Nouvelle colonne
15/12/2005 | Avant
01/01/2006 | Début Janvier
21/01/2006 | Fin Janvier
01/02/2006 | Début Février
21/02/2006 | Fin Février

A partir de la date maxi que je trouve, je découpe les 2 mois précédents en
2 sous-catégories:
-début de mois : du 01 au 14 du mois
-fin du mois : du 15 à la fin du mois
J'arrive à trouver le mois maximum en utilisant la fonction MAX associée à
la fonction MOIS,
ce qui me donne 2 dans le cas présent.
Mais aprés, comment je peux faire pour effectuer une découpe des mois, et
créer la colonne avec
ces champs.
Quelqu'un a-t-il une idée SVP???
Merci de votre aide.

Salut!
Avec la fonction "Datediff", tu peux trouver le nombre de jours séparant deux dates (par exemple, la date contenue dans ton fichier et les dates "bornes" de tes périodes).
Je pense qu'avec ça, tu peux réussir à remplir ta nouvelle colonne.

Je récupère juste la date la plus récente dans le temps, ici 28/02/2006. A partir de çà, je veux créer les regroupements fin fevrier, début, fevrier, fin, janvier, début janvier, etc....
Comment faire???

Tu peux aussi simplement utiliser les comparaisons de dates.
Une fois que tu as tes bornes (1er janvier, 15 janvier, 1er fevrier, 15 février), tu peux faire un truc du genre:

Code:

---

1 2 3 4 5 6 7

Dim Borne1 As Date Dim Borne2 As Date Borne1 = DateSerial(2006,1,1) Borne2 = DateSerial(2006,1,15) If Range("A2").Value > Borne1 And Range("A2").Value < Borne2 Then Range("B2").Value = "Début Janvier" End If

---

C'est ce que tu veux faire?

SI(JOUR(macellule)<=15;"début ";"fin ")&CHOISIR(MOIS(macellule);"janvier";"février";..."décembre")