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

Schludo · 11 Janvier 2023

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 · 11 Janvier 2023

Salult

Genre ça ?

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

youky(BJ) · 11 Janvier 2023

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

VB:

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 · 11 Janvier 2023

youky(BJ) à dit:
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

VB:

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!

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

Schludo

XLDnaute Nouveau

etpisculrien

XLDnaute Occasionnel

youky(BJ)

XLDnaute Barbatruc

Schludo

XLDnaute Nouveau

Discussions similaires