Afficher les dates comprises entres deux dates

Bonsoir,

J'ai une date début et une date de fin :

En "A1" j'ai 01/10/09 et en "a2" 15/11/09

J'aimerai par la biai d'un code vba qu'il m'affiche en a2 a3 a4... toutes les dates comprises entre 01/10 et 15/11

J'ai tous essayé mais en vain ! j'ai le cerveau qui fume !!!:shock:

Merci de votre aide a+++

Bonjour,

comment veux-tu que les dates s'affichent? Une par cellule en partant de A2 vers le bas ? Les dates s'insèrent entre A1 et A2? Une après l'autre dans la même cellule?

Voici un code qui prend les dates en A1 et A2 et retourne les dates en B1, le code peu surement être adapté à ton problème:

Public Sub DateDansIntervalle()
    Dim DateDebut As Date
    Dim DateFin As Date

    DateDebut = Sheets("Feuil1").Range("A1").Value
    DateFin = Sheets("Feuil1").Range("A2").Value

    Sheets("Feuil1").Range("B1").Select
    Do While DateDebut <= DateFin
        ActiveCell.Value = DateDebut
        ActiveCell.Offset(1, 0).Select
        DateDebut = DateAdd("d", 1, DateDebut)
    Loop
End Sub

Bonne soirée

Salut,

Je te remercie pour ta réponse mais j'ai essayé cela ne fonctione pas.

Je résume

J'ai en a date début en b date de fin en c nom en d prénom :

A B C d

1 01/10/2009 15/10/09 dupont jean

2 12/09/2009 15/11/09 martin yves

3 01/08/2009 15/12/09 lol jean

J'aimerai par ex que les dates comprise entre colonne A et B s'affiche en dessous de A et qu'il répete la date de fin nom prénom (colonne B C D) voir exemple ci dessous

A B C d

1 01/10/2009 15/10/09 dupont jean

2 02/10/2009 15/10/09 dupont jean

3 03/10/2009 15/10/09 dupont jean

4 etc.....

5 12/09/2009 15/11/09 martin yves

6 13/09/2009 15/11/09 martin yves

J'espère être assez clair !

Je compte sur vous !

A +

Bonsoir,

Tu veux sans doute parler d'un filtre suivant les dates comprises entre xxxx et yyyy

Envoie ton fichier

une vingtaine de lignes suffisent

Claude.

édit: merci de modifier ton titre en minuscule

Merci daniel

J'attend ta proposition c'est super. Mais ce n'est sous forme de filtres .(je pense)

Fichier ci dessous :

https://www.excel-pratique.com/~files/doc2/YwmaNtest_dates.xls

J'ai modifié mon titre

Merci

re,

ton lien ne passe pas, refait-le

et modifie ton titre, sinon pas de réponse de ma part

Claude.

Autant pour moi

https://www.excel-pratique.com/~files/doc2/oR4GTtest_dates.xls

Mon lien fonctionne

merci daniel

[/url]

re,

je n'ai rien contre les Daniel, mais ma maman à préférer Claude !

il s'agit bien d'un filtre

https://www.excel-pratique.com/~files/doc2/Bounty.xls

Amicalement

Claude.

Salut le forum

Un filtre est inutile pour remplir des cellules

Code de la macro

Sub RecopierLigne()
Dim Ligne As Integer
Dim Nbre As Integer

For Ligne = [a1].End(xlDown).Row To 1 Step -1
Nbre = Cells(Ligne, 3) - Cells(Ligne, 2)
If Nbre > 0 Then
    Rows(Ligne + 1 & ":" & Ligne + Nbre).Insert
    Range(Cells(Ligne, 1), Cells(Ligne, 5)).AutoFill _
        Destination:=Range(Cells(Ligne, 1), Cells(Ligne + Nbre, 5)), Type:=xlFillCopy
    Cells(Ligne, 2).AutoFill _
        Destination:=Range(Cells(Ligne, 2), Cells(Ligne + Nbre, 2))
End If
Next Ligne

End Sub

Mytå

Excuse moi claude mais dur dur hier soir !!!

Je te remercie pour ta réponse mais ce n'était pas ce que je recherchais.

Merci a USB PIL POIL ce que je voulais

Bonjour,

J'étais complètement à coté de la plaque !

N'oublie pas la petite formalité, en bas à gauche et en étant connecté.

à la prochaine

Claude.

Bonjour vous trouverez ci-joint mon fichier avec mon souci !

Mon souci est expliqué sur le fichier.

Merci d'avance

https://www.excel-pratique.com/~files/doc2/VUZ3QDates_entres_dates.xls