onglets renommés selon contenu cellules

[eastwick]

Bonjour à toutes et tous,

Mon souci est dans l'intitulé et son application précise dans le fichier joint.

D'avance merci beaucoup !

 

[CHALET53]

Re : onglets renommés selon contenu cellules

Bonjour,

Un essai avec gestion événementielle

a+

 

[DoubleZero]

Re : onglets renommés selon contenu cellules

Bonjour, eastwick, CHALET53, le Forum,

Un autre essai avec ce code logé dans "ThisWorkBook" :

Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Dim o As Worksheet
    For Each o In Worksheets
        If o.Name Like "aaa*" Then o.Name = "aaa " & Sheets("Feuil1").Range("b4").Value & " " & Sheets("Feuil1").Range("b5").Value
        If o.Name Like "bbb*" Then o.Name = "bbb " & Sheets("Feuil1").Range("b4").Value & " " & Sheets("Feuil1").Range("b5").Value
    Next
End Sub

A bientôt 🙂

 

[eastwick]

Re : onglets renommés selon contenu cellules

Merci beaucoup !

 

[eastwick]

Re : onglets renommés selon contenu cellules

Je n'arrive pas à adapter vos formules à mon fichier. Le voici donc sans aucune information. Pouvez-vous déposer le code dans l'onglet paramètres ?
Merci...

 

[Si...]

Re : onglets renommés selon contenu cellules

salut

dans la page de code de la feuille "paramètres"

Private Sub Worksheet_Change(ByVal R As Range)
  If Intersect(R, [C2:C3]) Is Nothing Then Exit Sub
  Feuil2.Name = "U.S.L.D. " & [C3] & " " & [C2]
  Feuil4.Name = "E.H.P.A.D. " & [C3] & " " & [C2]
End Sub

 

[DoubleZero]

Re : onglets renommés selon contenu cellules

Re-bonjour,

Voir le fichier joint.

A bientôt 🙂

P. S. : Bonjour, Si... 😀

 

[eastwick]

Re : onglets renommés selon contenu cellules

Merci 1000 fois !!!