un internaute
XLDnaute Impliqué
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?
Cordialement
Cette macro fait bien le boulot mais quelques fois il faut recommencer plusieurs fois cars des feuilles manquent dans la numérotation
modifier macro?
VB:
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