Afficher toutes les dates

phlaurent55

Nous a quittés en 2020

Repose en paix

• 2 Janvier 2010

• #2

Re : Afficher toutes les dates

Bonjour croate, et bienvenue sur le forum

voir fichier joint (sans macro)

à++
Philippe
.

 

Pièces jointes

• 111.xls

  15.5 KB · Affichages: 38
• 111.xls

  15.5 KB · Affichages: 48
• 111.xls

  15.5 KB · Affichages: 37

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 2 Janvier 2010

• #3

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

 

Pièces jointes

• SerieDatesEntreBornesV1.zip

  7.1 KB · Affichages: 20
• SerieDatesEntreBornesV1.zip

  7.1 KB · Affichages: 19
• SerieDatesEntreBornesV1.zip

  7.1 KB · Affichages: 19

Dernière édition: 2 Janvier 2010

Vote positif 0 Vote négatif

C

croate67

XLDnaute Nouveau

• 4 Janvier 2010

• #4

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 !

 

Vote positif 0 Vote négatif

C

croate67

XLDnaute Nouveau

• 4 Janvier 2010

• #5

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 ?

 

Vote positif 0 Vote négatif

CBernardT

XLDnaute Barbatruc

• 4 Janvier 2010

• #6

Re : Afficher toutes les dates

Bonjour croate, phlaurent55 et le forum,

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

 

Pièces jointes

• SerieDatesEntreBornesV1.zip

  10.2 KB · Affichages: 17
• SerieDatesEntreBornesV1.zip

  10.2 KB · Affichages: 19
• SerieDatesEntreBornesV1.zip

  10.2 KB · Affichages: 17

Vote positif 0 Vote négatif

C

croate67

XLDnaute Nouveau

• 4 Janvier 2010

• #7

Re : Afficher toutes les dates

Merci beaucoup cela fonctionne à merveille.

 

Vote positif 0 Vote négatif