Création Onglet Automatique au Changement de Mois

Bonjour à Tous,

J'ai un onglet Rapport:

En VBA, peut-on créer un onglet automatique au changement de mois et transférer les données dans ce nouvel onglet.

Aussi, effacer les données quand transférer dans nouvel onglet. Nommer ce nouvel onglet avec le mois ou la première date qui est était en A2.

Dans l'onglet Rapport, j'ai besoin de garder mon entête et la MFC.

Je joins mon fichier

Tous les Mots de Passe sont: 123

Merci

Jean

Bonjour,

Une piste, procédure qui peut être appelée dans Workbook_Open() mais qui peut être testée directement (touche F5) :

Sub Test()

    Dim Fe As Worksheet
    Dim I As Integer

    'cherche si la feuille a déjà été créée, si oui, fin
    For Each Fe In Worksheets

        If Fe.Name = Format(Date, "mmmm") Then Exit Sub

    Next Fe

    'la feuille n'existe pas, on la créée
    If Day(Date) >= 1 Then

        'en fin de collection
        Set Fe = Worksheets.Add(, Sheets(Sheets.Count))

        'on lui donne le nom du mois en cours
        Fe.Name = Format(Date, "mmmm")

        'paramétrage de la feuille...
        With Worksheets("Formulaire")

            'copie de la zone utilisée de la feuille "Formulaire" dans la nouvelle feuille
            .UsedRange.Copy Fe.Range("A1")

            'adapte la largeur des colonnes
            For I = 1 To .UsedRange.Columns.Count
                Fe.Columns(I).ColumnWidth = .Columns(I).ColumnWidth
            Next I

            'de même pour les lignes
            For I = 1 To .UsedRange.Rows.Count
                Fe.Rows(I).RowHeight = .Rows(I).RowHeight
            Next I

            'défini la zone de travail
            Fe.ScrollArea = .ScrollArea

        End With

    End If

End Sub

Bonjour Theze,

Sincèrement, je ne pensais pas avoir une réponse favorable.

Le code que vous avez créé, convient parfaitement à ma demande.

Un TRÈS TRÈS GROS MERCI.

Jean