Microsoft 365 Renommer les noms d 'onglets

[Zarjoun]

Hello, un baulois pour celui qui m'aidera ...
je débute , débute ...
je souhaiterais renommer des onglets, j'ai trouvé une macro sur le site,
Mais quand je la lance, cela ne marche pas...
pouvez vous m'aider ?
en PJ le fichier

 

[Compte Supprimé 979]

Bonjour Zarjoun

Pour moi le baulois

Il faut que le nom de la feuille soit du texte, il faut donc utiliser la fonction CStr()

Sub RenommerOnglets()
  With Worksheets("Onglets")
    For i = 5 To 220
      If WsExist(.Cells(i, "B")) Then
        Sheets(CStr(.Cells(i, "B"))).Name = CStr(.Cells(i, "D"))
      End If
    Next i
  End With
End Sub

A+

 

[sylvanu]

Bonjour Zarjoun, Bruno,
Et remplacez aussi le "For i = 5 To 220" par :

For i = 5 To Range("B65500").End(xlUp).Row

car actuellement votre liste s'arrête en 223, donc là ce sera automatique.

 

[Zarjoun]

Hello, un baulois pour celui qui m'aidera ...
je débute , débute ...
je souhaiterais renommer des onglets, j'ai trouvé une macro sur le site,
Mais quand je la lance, cela ne marche pas...
pouvez vous m'aider ?
en PJ le fichier

Bonjour, dsl mais j'ai écrit la macro mais çà ne marche pas ;
j'ai mis le fichier modifier en PJ,
.....
d'avance merci

Bonjour Zarjoun, Bruno,
Et remplacez aussi le "For i = 5 To 220" par :

For i = 5 To Range("B65500").End(xlUp).Row

car actuellement votre liste s'arrête en 223, donc là ce sera automatique.

 

[sylvanu]

Bonjour Zarjoun,
Il vous manque la moitié des macros.
WsExist(.Cells(i, "B")) appelle la fonction qui regarde si l'onglet existe.

 

[Zarjoun]

Bonjour Zarjoun,
Il vous manque la moitié des macros.
WsExist(.Cells(i, "B")) appelle la fonction qui regarde si l'onglet existe.

Ah Ok, mais je la trouve où cette fonction ? SVP

 

[sylvanu]

... dans ma PJ !

 

[Zarjoun]

Ah la la , vous êtes super )))))))) un grand merci