nom onglet

[eastwick]

Bonjour à toutes et tous,

J'aimerais que mon onglet vert change de nom en fonction du mois et de l'année.
Pour l'instant je n'ai que U.S.L.D. 2013, j'aimerais U.S.L.D. Octobre 2013 tout en sachant que octobre deviendra novembre puis décembre etc...

Merci beaucoup !!!

 

[Dull]

Re : nom onglet

Salut eastwick, le Forum

Pas sur d'avoir compris mais essaye dans le Module ThisWorkbook
le changement se fera à l'ouverture du classeur

Private Sub Workbook_Open()
Feuil2.Name = "U.S.L.D. " & Feuil8.Range("C3").Value & " " & Feuil8.ComboBox1.Value
End Sub

ou alors en automatique

Private Sub Workbook_Open()
Feuil2.Name = "U.S.L.D. " & Format(Date, "mmmm") & " " & Year(Date)
End Sub

Bonne Journée

 

[Robert]

Re : nom onglet

Bonjour Eastwick, bonjour le forum,

En pièce jointe ton fichier modifié avec les codes ci-dessous :

Private Sub ComboBox1_Change() 'au changement dans la ComboBox1
Call chang 'lance la procédure "chang"
End Sub

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
If Target.Address = "$C$3" Then Call chang 'si le changement a lieu dans la cellule c3, lance la procédure "chang"
End Sub

Public Sub chang()
Dim an As Integer 'déclare la variable an (ANnée)

an = Sheets(1).ComboBox1.Value 'définit l'année an
Sheets(2).Name = "U.L.S.D. " & Sheets(1).Range("C3").Value & " " & an 'définit le nom du second onglet
End Sub

Le fichier :

[Édition]
Bonjour Dull on s'est croisé...

 

[eastwick]

Re : nom onglet

Merci à tous !