Renommer l'onglet selon la valeur d'une cellule

chaelie2015 · 31 Janvier 2020

Bonsoir Forum
Je souhaite renomer la feuille active selon la donnée dans la cellule A3
Exemple : Si je saisie dans la cellule A3 charlie/2019/bel/002 , l'onglet active sera nomé" charlie/2019/bel/002" automatiquement.
Salutation

mapomme · 31 Janvier 2020

Bonsoir @chaelie2015,

Essayez le code suivant à placer dans le module de ThisWorkbook:

VB:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   On Error GoTo err001
   If Not Intersect(Sh.Range("a3"), Target) Is Nothing Then Sh.Name = Replace(Target.Text, "/", "#")
   Exit Sub
err001:
   MsgBox "impossible de renommer la feuille '" & Sh.Name & "' en " & Target.Text
End Sub

NOTA : le caractère / est un caractère interdit dans les noms d'onglets. On a remplacé ce caractère par un dièse #

chaelie2015 · 31 Janvier 2020

Bonsoir mapomme
Merci pour la réponse rapide. c'est parfait.
A+

pilou010 · 26 Janvier 2021

Bonjour à tous,
Je me suis servi du code proposé par mapomme qui fonctionne très bien.
Par contre est-il possible que le nom de la feuille soit composé du contenu de 2 cellules séparer par un texte ?

Par exemple : "contenu de la cellule A1" - "de" - "contenu de la cellule A2"
J'ai fait un essai avec & comme si c'était concaténer mais cela ne fonctionne pas

Merci de votre aide

pilou010 · 27 Janvier 2021

Bonjour,
Suite à mon précédent post

Le code de départ :
If Not Intersect(Sh.Range("a3"), Target) Is Nothing Then Sh.Name = Replace(Target.Text, "/", "#")

Mes essais :
If Not Intersect(Sh.Range("a2"&"de"&"a3"), Target) Is Nothing Then Sh.Name = Replace(Target.Text, "/", "#")
If Not Intersect(Sh.Range("a2;a3"), Target) Is Nothing Then Sh.Name = Replace(Target.Text, "/", "#")
If Not Intersect(Sh.Range("a2";"a3"), Target) Is Nothing Then Sh.Name = Replace(Target.Text, "/", "#")
mais il manque un truc visiblement ?

Renommer l'onglet selon la valeur d'une cellule

chaelie2015

XLDnaute Accro

mapomme

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

pilou010

XLDnaute Occasionnel

pilou010

XLDnaute Occasionnel

Discussions similaires