Discussion :

[Palito]

Bonjour à tous,
J'ai besoin de créer une macro qui génèrerait 12 onglets (de janvier à décembre) et qui, dans chaque onglet créés m'afficherait les jours du mois en ligne (par exemple de A1 à AE1 pour janvier 2022), puis sur la feuille février les jours du mois de février toujours de A1 à Ax, et ainsi jusqu'à décembre.
A force de recherche j'ai trouvé un morceau de code qui me génère les onglets pour l'année, mais je sèche pour la partie jours du mois dans chaque onglet.
Je vous remercie d'avance si vous pouvez m'apporter votre aide sur ce problème (dois je préciser que je suis débutant en vba)
Conformément aux instructions données sur le bonnes pratiques lors d'un premier post, je ne joins pas de fichier à ce message mais je tiens à votre disposition ce que j'ai déjà fait.
Cordialement

[EricDgn]

Bonjour,

Une façon de faire:

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
Option Explicit
 
Sub AjoutMois()
    Dim kMois As Long, kJour As Long
    For kMois = 1 To 12
        Sheets.Add After:=ActiveSheet
        'ActiveSheet.Name = Year(Date) & Format(kMois, "-00")
        ActiveSheet.Name = Format(DateSerial(Year(Date), kMois, 1), "mmm")
        For kJour = 1 To Day(DateSerial(Year(Date), kMois + 1, 1) - 1)
            Cells(1, kJour) = kJour
        Next kJour
    Next kMois
End Sub
 
Sub DeleteWsh()         '--- pour effacer toutes les feuilles sauf la Feuil1
    Dim wSh As Worksheet
    For Each wSh In ThisWorkbook.Worksheets
        If wSh.Name <> "Feuil1" Then wSh.Delete
    Next wSh
End Sub

Cordialement.

[Palito]

Bonsoir Eric,
Un grand merci pour votre aide ! vous me sortez de l'ornière dans laquelle je me trouvais depuis deux semaines sans rien trouver d'approchant à mes besoins sur le net (sauf erreur de ma part), et je commençais à désespérer.
Quand je lance la macro elle génère bien les 12 onglets et les séries de chiffres correspondant au mois considéré. En revanche quand je mets en forme les séries obtenues le résultat reste "janvier" quel que soit l'onglet considéré.
Je vais essayer d'être plus clair avec un exemple précis:
Une fois la macro effectuée, je sélectionne l'onglet "février" je sélectionne la série de chiffres (de 1 à 29) et je formate l'ensemble pour qu'il fasse apparaitre 1 fev, 2 fev, etc au lieu de 1, 2, etc.
Malheureusement le résultat du formatage me restitue 1 janv, 2 janv, etc.
Serait ce abuser que de vous demander ce que je devrais faire pour palier cet inconvénient ?
Cordialement

[EricDgn]

Bonjour,

Pour cela , remplacer la ligne 10 par celle-ci:

Code :

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

            Cells(1, kJour) = DateSerial(Year(Date), kMois, kJour)

Cordialement.

[78chris]

Bonjour

Pour ma part je conseillerais plutôt un modèle de classeur avec les 12 mois crées mais avec des dates basées sur des formules dépendant d'une cellule année.

Ainsi la structure de chaque onglet est adaptée au besoin et chaque année il suffit de modifier la cellule contenant l'année pour avoir toutes les dates à jour

A noter qu'il n'y a que 3 types d’onglets 28/29 jours, 30 jours et 31 jours et que créer les 12 mois du modèle prend donc très peu de temps puisque on peut le réaliser en 3 groupes

[EricDgn]

Bonjour,

D'accord avec Chris, mais personnellement j'essayerais même d'éviter complètement le découpage en feuilles mensuelles et de n'utiliser qu'une seule feuille (tableau) avec un calendrier sans date limite, quitte à supprimer / ajouter de temps à autres les colonnes devenues superflues / nécessaires. Une seule feuille évite à devoir s'occuper des correspondances exactes entre feuilles (tableaux) et à se tracasser avec les mois de 28/29/30/31 jours. Cela rend aussi les synthèses plus simples à réaliser (par semaine, mois, trimestre, etc.). Il est par ailleurs facile de forcer le dossier de s'ouvrir sur la date du jour.

Cordialement.