Microsoft 365 Renommer les noms d 'onglets

Zarjoun

XLDnaute Nouveau
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
 

Pièces jointes

  • test renommer des feuilles (3).xlsm
    289.2 KB · Affichages: 2
Dernière édition:
C

Compte Supprimé 979

Guest
Bonjour Zarjoun

Pour moi le baulois 😜

Il faut que le nom de la feuille soit du texte, il faut donc utiliser la fonction CStr()
VB:
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+
 

Zarjoun

XLDnaute Nouveau
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 :
VB:
For i = 5 To Range("B65500").End(xlUp).Row
car actuellement votre liste s'arrête en 223, donc là ce sera automatique.
 

Discussions similaires

Réponses
15
Affichages
483

Statistiques des forums

Discussions
311 724
Messages
2 081 936
Membres
101 844
dernier inscrit
pktla