Dates Fermé

Question

Bonjour, 

ça fait un mois que j'ai commmençé Excel dont vba. Jusque là je m'en suis très bien sortie, mais la je rencontre un problèmes avec les dates. J'ai une date de début (par exemple 01/01/2011) et une date de fin ( 01/01/2015). Je souhaiterai afficher dans mes cellules tous les mois depuis le début jusqu'à la fin. Cela me donnerai:
01/01/2011|01/02/2011|01/03/2011|..............|01/01/2015
PS: la date de début et la date de fin serait rentrées par l'utilisateur dans deux cellules sur une autre feuille : Date de début : 01/01/2011
                                Date de fin : 01/01/2015

Merci par avance

Maurice · Answer

Bonjour

Pour Avoir Date de fin : 01/01/2015 mettre 01/02/2015
ou Nbre_mois +1

Sub ColDate()
   Dat1 = Range("A1")
   Dat2 = Range("A2")
   Nbre_mois = (Year(Dat2) - Year(Dat1)) * 12 + Month(Dat2) - Month(Dat1)
   Annee = Year(Range("A1").Value)
      For C = 1 To Nbre_mois
         Cells(1, C).Value = DateSerial(Annee, C, 1)
      Next
End Sub

A+
Maurice

tontong · Answer

Bonjour,
On peut aussi essayer sans macro.
Les dates sont en A2 et A3 de la feuil1.
En B2 de la feuil2 entrer la formule:
=SI(MOIS.DECALER(Feuil1!$A$2;LIGNE()-1)>Feuil1!$A$3;"";MOIS.DECALER(Feuil1!$A$2;LIGNE()-1))
ou la formule :
=SI(LIGNE()-1>DATEDIF(Feuil1!$A$2;Feuil1!$A$3;"m");"";MOIS.DECALER(Feuil1!$A$2;LIGNE()-1))
et recopier sur la hauteur.

Dates

2 réponses

Discussions similaires

Newsletters