Liste des jours du mois

Bonsoir

existe il un code qui donnerait tous les jours du mois ( sous forme de liste )

le mois serait saisi dans une cellule ( menu déroulant )

Faut il aussi préciser l'année ?

exemple : Cellule A1 = "Aout"

A2 = 01/08/2015

A3 = 02/08/2015

A4= 03/08/2015

Etc....

Le mois et l'année pourrait aussi être saisi dans un inputbox ...

merci d'avance pour votre aide

Bonjour,

Dans A1, créer un liste de choix (validation de données) et entrer cette liste :

janvier;février;mars;avril;mai;juin;juillet;août;septembre;octobre;novembre;décembre

puis dans le module de la feuille, coller le code ci-dessous. Par défaut, l'année est l'année en cours et effectivement, elle est importante pour le mois de février :

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim LaDate As Date
    Dim Annee As Long
    Dim Mois As String
    Dim NBJours As Integer
    Dim I As Integer

    If Target.Address(0, 0) <> "A1" Then Exit Sub

    Mois = Target.Value
    Annee = Year(Date)

    If Mois = "" Then Exit Sub

    Range("A2:A32").Value = ""

    LaDate = DateValue(Mois & " " & Annee)
    NBJours = DateSerial(Year(LaDate), Month(LaDate) + 1, 1) - LaDate

    For I = 1 To NBJours
        Range("A" & I + 1).Value = LaDate + I - 1
    Next I

End Sub

Hervé.

Bonjour à tous

Un essai sans macro.

Bye !

Bonjour,

Merci à vous deux

les deux solutions répondent parfaitement à ma question

merci encore

bonne journée !