Discussion :

[Antoniom]

Hello le forum,

J'ai un souci avec les dates, je souhaites générer un calendrier selon le mois et l'année qu'on choisit dans deux listes de validation.

Je m'explique :

En A1 liste de validation avec les mois.
En A2 liste de validation avec les années (de 2009 à 2040).

1) Je souhaites qu'il affiche en colonne B2:B32 les dates selon le mois et l'année choisit. (Exemple de format -> 03 juil.)

2) Je souhaites qu'il affiche en colonne C2:C32 les noms des jours (Lundi, Mardi, Mercredi...)

Juste les dates de 1 à 30 ou 31 selon le mois, ou 28 ou 29 pour février.
Et le jour à côté... pas de fériés, rien d'autre

Pour ceux qui voudraient télécharger le fichier, je le joins...

Je ne sais pas si c'est faisable et je suis conscient que je demande beaucoup, mais là je patauge.

Je vous serais reconnaissant si vous pouviez m'aider.

Par avance, merci infiniment.

Cordialement, Anton.

[Access Newbie]

Bonjour,

Je pense qu'un coup d'oeil du coté de la fonction dateadd devrait t'aider (il faudra peut-etre la combiner avec dateserial.

[cafeine]

Hello,

voici une méthode à partir de ton fichier

[Access Newbie]

Une autre piste de reflexion ci-jointe.

[fgiambelluco]

Bonjour
Bravo cafeine pour les formules de calcul, ce qui prouve bien que tout n'est pas VBA

Toutefois pour les inconditionnels, un code à adapter et à compléter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    Dim datedebut As Date, datefin As Date
    Dim MoisNum As Integer, DateEnCours As Date
    Dim i As Integer
 
    Select Case Cells(1, 1).Value ' cellule A1
        Case "Janvier"
            MoisNum = 1
        Case "Février"
            MoisNum = 2
        Case "Mars"
            MoisNum = 3
        '...
        Case "Novembre"
            MoisNum = 11
        Case "Décembre"
            MoisNum = 12
    End Select
 
    datedebut = DateSerial(Cells(2, 1), MoisNum, 1)
    datefin = DateSerial(Cells(2, 1), MoisNum + 1, 1) - 1
    i = 0 ' utilisé pour le décalage de ligne
    For DateEnCours = datedebut To datefin
        Cells(2 + i, 2).Value = Day(DateEnCours) 'colonne B
        Cells(2 + i, 3).Value = Format(DateEnCours, "dddd") 'colonne C
        i = i + 1
    Next DateEnCours

[cafeine]

Merci fgiambelluco , dans ton code évite toi l'énumération des mois en passant par EQUIV voire par une recherche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MoisNum = ActiveSheet.Range("N1:N12").Find(Cells(1, 1).Value).Row

Bonjour
Bravo cafeine pour les formules de calcul, ce qui prouve bien que tout n'est pas VBA

Toutefois pour les inconditionnels, un code à adapter et à compléter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
    Dim datedebut As Date, datefin As Date
    Dim MoisNum As Integer, DateEnCours As Date
    Dim i As Integer
 
    Select Case Cells(1, 1).Value ' cellule A1
        Case "Janvier"
            MoisNum = 1
        Case "Février"
            MoisNum = 2
        Case "Mars"
            MoisNum = 3
        '...
        Case "Novembre"
            MoisNum = 11
        Case "Décembre"
            MoisNum = 12
    End Select
 
    datedebut = DateSerial(Cells(2, 1), MoisNum, 1)
    datefin = DateSerial(Cells(2, 1), MoisNum + 1, 1) - 1
    i = 0 ' utilisé pour le décalage de ligne
    For DateEnCours = datedebut To datefin
        Cells(2 + i, 2).Value = Day(DateEnCours) 'colonne B
        Cells(2 + i, 3).Value = Format(DateEnCours, "dddd") 'colonne C
        i = i + 1
    Next DateEnCours