Création d'onglet en VBA

Bonjour,

Voir fichier joint. Je souhaite réaliser une macro pour ajouter automatiquement un onglet à mon fichier.

Les contraintes sont les suivantes:

1) recopier la plage de celulles remplies de la colonne 1 du dernier onglet. Dans mon exemple, la plage de A1 à A9 de l'onglet Avril.

2) l'onglet créer doit être nommé du mois courant.

En attente de vos solutions.

Salutations,

Dadams51

Bonjour Dadam51 le forum

ton fichier en retour

a+

Papou

Bonjour,

Sub AjoutOngletMois()
    Dim mois$, f%, plg As Range
    mois = StrConv(MonthName(Month(Date)), vbProperCase)
    f = Worksheets.Count
    If Worksheets(f).Name <> mois Then
        Set plg = Worksheets(f).Range("A1").CurrentRegion.Resize(, 1)
        With Worksheets.Add(after:=Worksheets(f))
            .Name = mois
            plg.Copy .Range("A1")
        End With
    End If
End Sub

Cordialement.

edit : Salut Paritec !

Bonjour Mferrand le forum

tu es déjà debout? tu as du soleil chez toi, ici je ne te parle pas du temps

a+

Papou

Re...,

En fait, pas couché ! J'ai tendance à veiller... ça depuis ma prime jeunesse, mais ces dernières années, je glisse pour dormir de moins en moins la nuit et de plus en plus le jour... Pas de problème, je dors très bien, sauf que cela fait une série de jours que je n'arrive pas à faire des choses qui deviennent urgentes. Je prends donc le taureau par les cornes pour être opérationnel dans la plage jour !

Soleil ! Pratiquement toujours le matin (sauf intempéries), ça se se couvre généralement dans l'après-midi de façon variable. Mais on va vers l'hiver (saison sèche), quoique avec le dérèglement climatique plus rien n'est figé...

Bonne journée.

Bonsoir,

Merci MFERRAND et PARITEC pour vos réponses. C'est résolu !

A+

Dadams51