Microsoft 365 Renommer l'onglet d'après le nom de 2 cellules

[Schludo]

Bonjour,

Je souhaiterais pouvoir trouver un moyen de renommer de manière automatique le nom des onglets d'un fichier excel.

En détail :

Sur chaque feuille, en D9 il y a un nombre à 4 chiffres & en D45 un autre chiffre.

Exemple : 4290 en D9 & 4296 en D45

Je souhaiterais que le nom de la feuille s'appel : 4290-4296
Sans devoir à chaque fois faire un clic droite-renommer.

Merci pour votre retour

 

[etpisculrien]

Salult

Genre ça ?

Sheets("Feuil1").Name = Range("D9") & "-" & Range("D45")

 

[youky(BJ)]

Bonjour Schludo,
Faire un click droit de souris sur le nom de l'onglet et visualiser le code
Mets ceci et enregistre en .xlsm
Ceci si pas de formule dans ces 2 cellules
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Or Target.Address = "$D$45" Then
ActiveSheet.Name = [D9].Text & "_" & [D45].Text
End If
End Sub

 

[Schludo]

Bonjour Schludo,
Faire un click droit de souris sur le nom de l'onglet et visualiser le code
Mets ceci et enregistre en .xlsm
Ceci si pas de formule dans ces 2 cellules
Bruno

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$9" Or Target.Address = "$D$45" Then
ActiveSheet.Name = [D9].Text & "_" & [D45].Text
End If
End Sub

Super !

Merci infiniment!