Afficher toutes les dates

[croate67]

Bonjour à tous , je viens faire appel au crack car je cherche par macro à afficher toutes les dates comprises entre 2 dates , la saisie se fait en A,B et le résultat s'affiche à partir de C sur un nombre de cellule maximum de 40
Ex:
.....A............B.............C.........D............E...........F...........G
02/01/10 06/01/10 02/01/10 03/01/10 04/01/10 05/01/10 06/01/10
03/02/10 05/02/10 03/02/10 04/02/10 05/02/10

Merci d'avance pour pour la réflexion que cette macro pourrait vous apporter.
Cordialement.

 

[phlaurent55]

Re : Afficher toutes les dates

Bonjour croate, et bienvenue sur le forum

voir fichier joint (sans macro)

à++
Philippe
.

 

[CBernardT]

Re : Afficher toutes les dates

Bonjour croate, phlaurent55 et le forum,

Un exemple de solution par macro :

1- Deux dates bornes en A1 et B1
2- Les dates entre bornes s'affichent en C1, C2,...., Cn


Sub SerieDateEntreBornes()
Dim DateDeb As Date, DateFin As Date, i
With Sheets("Feuil1")
DateDeb = .Range("A1")
DateFin = .Range("B1")
For i = DateDeb To DateFin
.Cells(i - DateDeb + 1, 3) = i
Next i
End With
End Sub

Si dates commencent en C1, D1, ... la syntaxe est alors :

Sub SerieDateEntreBornes()
Dim DateDeb As Date, DateFin As Date, i
With Sheets("Feuil1")
DateDeb = .Range("A1")
DateFin = .Range("B1")
For i = DateDeb To DateFin
.Cells(1, i - DateDeb + 3) = i
Next i
End With
End Sub

 

[croate67]

Re : Afficher toutes les dates

Bonjour CBernardT,
Je me suis peut-être mal expliqué car j'ai essayé ta macro mais je souhaiterai que l'affichage se fasse sur C1,D1,E1,F1 etc selon le nombre de date
sur ton fichier l'affichage se fait sur C1, C2,....,Cn.
PhLaurent55, je te remercie pour ton aide mais vu la taille de mon fichier je préfèrerai une macro mais l'idée est bonne.
Et encore bonne année à tous !

 

[croate67]

Re : Afficher toutes les dates

Ooooops, désolé CBernardT je n'avais essayé la 2ème macro. Cela fonctionne mais il ne boucle pas . Peux-tu me donner la ligne à taper afin de faire une boucle jusqu'a rencontrer une ligne vide ?

 

[CBernardT]

Re : Afficher toutes les dates

Bonjour croate, phlaurent55 et le forum,

Petites modifications afin de boucler sur les différentes lignes du tableau.

 

[croate67]

Re : Afficher toutes les dates

Merci beaucoup cela fonctionne à merveille.