Date
Résolu
Mathilde
-
Mathilde -
Mathilde -
Bonjour,
je rencontre un problèmes avec les dates. J'ai une date de début (par exemple 01/07/2011) et une date de fin ( 30/06/2016). Je souhaiterai afficher dans mes cellules tous les mois depuis le début jusqu'à la fin. Cela me donnerai:
01/07/2011|01/08/2011|01/09/2011|..............|30/06/2016
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/07/2011 en A1
Date de fin : 30/06/2016 en A2
Voici mon code :
Le problème c'est que lors de l'affichage, ça va me marquer :
31/01/2011|29/02/2011.....
Ca commence au 31/01/2011 au lieu du 31/07/2011
Quelqu'un à une idée pour que cela affiche à partir de ma date de début et non pas à partir de la date du début de l'année?
Merci par avance pour votre aide.
je rencontre un problèmes avec les dates. J'ai une date de début (par exemple 01/07/2011) et une date de fin ( 30/06/2016). Je souhaiterai afficher dans mes cellules tous les mois depuis le début jusqu'à la fin. Cela me donnerai:
01/07/2011|01/08/2011|01/09/2011|..............|30/06/2016
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/07/2011 en A1
Date de fin : 30/06/2016 en A2
Voici mon code :
Sub ColDate()
Sheets("Feuil1").Activate
Dat1 = Range("A1")
Dat2 = Range("A2")
Nbre_mois = (Year(Dat2) - Year(Dat1)) * 12 + Month(Dat2) - Month(Dat1)
Annee = (Year(Range("A1").Value))
Sheets("Paramètre").Activate
For C = 2 To Nbre_mois + 1
Cells(1, C).Value = DateSerial(Annee, C, 0)
Next C
End Sub
Le problème c'est que lors de l'affichage, ça va me marquer :
31/01/2011|29/02/2011.....
Ca commence au 31/01/2011 au lieu du 31/07/2011
Quelqu'un à une idée pour que cela affiche à partir de ma date de début et non pas à partir de la date du début de l'année?
Merci par avance pour votre aide.
