Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Nom de cellule vs nom d'onglet

Robert du Québec

XLDnaute Nouveau
Bonjour,
J'aimerais que le nom d'une cellule vienne s'inscrire dans l'onglet où elle est présente. En d'autre mots, si A2=Bonjour, je voudrais que l'onglet se renomme automatiquement Bonjour.
Merci.
 

Dranreb

XLDnaute Barbatruc
Bonsoir.
Mettez ça dans le module de l'objet Worksheet représentant la feuille concernée :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$2" Then Me.Name = Target.Value
   End Sub
 

Jean-Eric

XLDnaute Occasionnel
Bonjour,
Avec une petite sécurité !?
Cdlt.
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        Me.Name = IIf(IsEmpty(Target), Me.CodeName, Target.Value)
    End If
End Sub
 

Discussions similaires

Réponses
16
Affichages
646
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…