Autres [RÉSOLU] Renuméroter feuilles classeur dans le bon ordre avec cette macro

[un internaute]

Bonjour le forum

Cette macro fait bien le boulot mais quelques fois il faut recommencer plusieurs fois cars des feuilles manquent dans la numérotation
modifier macro?

Sub RemettreEnPlaceNumerosIndex()   ' Remettre En Place Numeros Index. Faire plusieurs fois si nécessaire
On Error Resume Next
For Each ws In ActiveWorkbook.Worksheets
ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = "Feuil" & I + 1   'Le code Index va jusqu'à 9 Feuilles puis retourne après la Feuille1 pour Feui10 Feuil11 Feuil12 etc...
I = I + 1
Next ws
End Sub

Cordialement

 

[job75]

Bonjour un internaute, le forum,

Exécutez :

Sub CodeNames()
Dim i
For i = 1 To Sheets.Count
    ActiveWorkbook.VBProject.VBComponents(Sheets(i).CodeName).Properties("_CodeName") = "µ" & i 'nom provisoire
Next
For i = 1 To Sheets.Count
    ActiveWorkbook.VBProject.VBComponents(Sheets(i).CodeName).Properties("_CodeName") = "Feuil" & i 'nom définitif
Next
End Sub

A+

 

[un internaute]

Bonjour Job75
Parfait, Super
Je viens de faire plusieurs essais sur plusieurs classeurs
Merci à toi et bonne journée à toi et au membres du forum
Cordialement