mois + année onglet

[eastwick]

Bonjour à toutes et tous,
Je souhaiterais, pour le fichier joint, modifier le nom de mes 12 onglets mensuels + année, en fonction de la valeur B1 de l'onglet variable. Soit par macro en cliquant sur un bouton associé, soit en temps réel en VBA;
Ex : janv 16, fév 16, mars 16... etc deviennent janv 17, fév 17, mars 17 etc... si je saisis 2017 en B1 onglet variables.
Voilà !
Merci beaucoup et bonne soirée.
Excellement vôtre,

eastwick

 

[Chris401]

Bonsoir

Essaye

Sub Onglets()
For i = 3 To 14
On Error Resume Next
Sheets(i).Name = Format(DateSerial(Range("B1"), i - 2, 1), "mmm yy")
Next i
End Sub

 

[Hieu]

Salut,

Dans ThisWorkbook,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target = Sheets("variables").Range("b1") Then
    For Each Sh In Sheets
        If IsNumeric(Right(Sh.Name, 2)) Then Sh.Name = Left(Sh.Name, Len(Sh.Name) - 2) & Target Mod 100
    Next Sh
End If
End Sub

 

[Hieu]

Reponse croisée,
salut Chris

 

[Chris401]

Bonsoir Hieu

Sur modif de B1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
For i = 3 To 14
On Error Resume Next
Sheets(i).Name = Format(DateSerial(Range("B1"), i - 2, 1), "mmm yy")
Next i
End If
End Sub

 

[eastwick]

Merci à tous, j'ai trouvé mon bonheur, nickel !