Onglet renommé automatiquement

Rebonjour tout le monde.

J'ai une petite question sur du codage en VBA cette fois. Je cherche je cherche, mais je ne trouve pas ma solution.

J'ai utilisé un petit code qui permet de créer un onglet et de le nommer tout de suite.

Sub Bouton1_Cliquer()

    Sheets.Add.Name = Range("D14").Value

End Sub

Ma question est : comment est-ce que je peux lui demande également de changer de couleur automatiquement ? Aussi, comment appeler ce nouvel onglet automatiquement dans le même code ?

En vous remerciant, je vous souhaite une bonne journée.

Rod'

Bonjour

Sub Bouton1_Cliquer()
Sheets.Add.Name = Range("D14").Value
    With ActiveWorkbook.ActiveSheet.Tab
        .Color = 255
        .TintAndShade = 0
    End With
End Sub

ici, la couleur est Rouge

Pas besoin d'appeler la Feuille puisqu'elle est activée automatiquement à la création.

Cordialement

Bonjour !

Ah super merci beaucoup !

Et question subsidiaire concernant ledit nouvel onglet, en espérant ne pas abuser de ta gentillesse : comment est-ce que je peux faire pour copier un bouton de macro dans un onglet et l'y coller ?

Cordialement.

Bonjour

Il faut ajouter un copier-coller de toute la Feuille

Sub Bouton1_Cliquer()
    Cells.Copy
    Sheets.Add.Name = Range("D14").Value
        With ActiveWorkbook.ActiveSheet.Tab
            .Color = 255
            .TintAndShade = 0
        End With
        ActiveSheet.Paste
        Application.CutCopyMode = False
        Range("A1").Select
    End Sub

Cordialement

Bonjour,

j'ai repris ce sujet parcequ'il ne me permet pas de résoudre mon problème.

ce code bug:

   Sheets.Add.Name = Range("D14").Value

moi j'ai un fichier annuel qui reprend un mois par onglet, soit 12 onglets.

comme il rajoute feuil1, 2 3... à 12 ou plus si on a supprimé un onglet,

pas moyen de savoir le nom de la feuille renommé, sauf peut être avec une variable, pour remplacer mon "new" :

   Sheets.Add After:=ActiveSheet
    Sheets("new").Select
    Sheets("new").Name = "avril"

can you see what I mean

merci