Dates
Mathilde
-
Mathilde -
Mathilde -
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
ç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
2 réponses
Bonjour
Pour Avoir Date de fin : 01/01/2015 mettre 01/02/2015
ou Nbre_mois +1
A+
Maurice
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
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.
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.
merci beaucoup c'est exactement ce que je recherchais!
Encore merci!
Bonne journée