Renommer Onglets

[Chris401]

Bonsoir à tous

Mon fichier se compose comme suit :

Noms des Feuilles :

Donnees
Nom1
Nom2
Nom3

Dans la feuille Donnees :

A1 : B1 ...... ligne de titres

TOTO......Nom1
TATA......Nom2
TITI........Nom3


Comment puis-je remplacer le nom des onglet existants que l'on retrouve en feuille Donnees en colonne B, par le nom correspondant en colonne A de la feuille Donnees ?

Merci de vos réponses.
Chris

 

[jp14]

Re : Renommer Onglets

Bonsoir

Ci dessous une macro pour réaliser l'opération

Sub travdemande()

Dim cellule As Range

Dim lidep1 As Long
Dim nomfeuille1 As String
Dim col1 As String
Dim Sh As Worksheet
'**********************************
nomfeuille1 = "Sheets1"
lidep1 = 2 ' ligne de départ
col1 = "b" ' colonne qui contient les noms actuels
' les nouveaux noms sont dans la colonne précédente : offset(0,-1)
'************************************
With Sheets(nomfeuille1)
For Each cellule In .Range(col1 & lidep1 & ":" & col1 & .Range(col1 & "65536").End(xlUp).Row)
     '
         For Each Sh In Worksheets
             If Sh.Name = cellule.Value Then
                Sheets(cellule.Value).Name = cellule.Offset(0, -1).Value
                Exit For
             End If
         Next Sh
     
Next cellule

End With

End Sub

A tester

JP

 

[Chris401]

Re : Renommer Onglets

Un énorme merci JP - C'est tout bon !

J'avais fait des recherches, mais je n'avais rien trouvé pour mon cas.

A très bientôt et bonne soirée.

Chris