Paramétrer le nom d'un onglet en fonction d'un nom de cellule

Bonjour à tous,

J'utilise un excel issu d'un pack office 365 donc excel 2016 il me semble.

Avant de poster ici, j'ai pu lire les différents sujets similaires mais malheureusement aucune des solutions qui semblaient fonctionner ne fonctionnent avec mon problème.

J'utilise un classeur à 5 onglets.

Dans l'onglet 1, j'ai défini des cellules sous forme de menu déroulant. Les cellules B4, B27 et B50 pour être précis et dont la liste est présente sur mon onglet 5.

J'aimerais "tout simplement", que lorsque je sélectionne une des valeurs de la liste dans les cellules B4, cela renomme mon onglet 2 avec le texte de la cellule, que mon onglet 3 se renomme en fonction de B27 et que mon onglet 4 se renomme en fonction de B50.

Je vous serai très reconnaissant si vous avez une solution

Merci d'avance à tous !

Bonsoir,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim f%
    Select Case Target.Address
        Case "$B$4": f = 2
        Case "$B$27": f = 3
        Case "$B$50": f = 4
        Case Else: Exit Sub
    End Select
    If f > 0 Then Worksheets(f).Name = Target
End Sub

A placer dans le module de la feuille.

Cordialement.

Bonjour,

Merci beaucoup cela fonctionne parfaitement !

Bonne journée

Je suis satisfait du fonctionnement des noms d'onglets mais serait-il possible que si je supprime le contenu des cellules B4, B27 et B50, que les noms d'onglet se renomment respectivement "Supplier 1" "Supplier 2" et " Supplier 3" ?

Merci encore

Une ligne à modifier :

    If f > 0 Then Worksheets(f).Name = IIf(Target <> "", Target, "Supplier " & f - 1)

Bonne journée.

Parfait merci beaucoup