Renommer les intercalaires d'un fichier

ERIC S à dit:

Re : Renommer les intercalaires d'un fichier

Bonjour

je n'ai pas testé mais je me pose quelques questions, de façon à simplifier le code (pour le rendre plus facile à comprendre et à reprendre quand il sera plus long, et aussi pour le rendre plus rapide en lui demandant moins)

c'est du vécu, c'est ce que je faisais au début et quequefois les macros devenaient lentes, très lentes.

cela te permettra de faire quelques essais supplémentaires

Sub renomme_les_intercalaires()
'
' Objectif: Renommer tous les intercalaires de 1 à n
'
' --------------------------------------------------------
' Se positionne sur MON premier intercalaire
' Qui s'appelait 94
'---------------------------------------------------------
'
Worksheets("94").Activate
'a quoi sert de se positionner à cet endroit?
'--------------------------------------------------------
' compte le nombre d'intercalaires
'--------------------------------------------------------
'
nombre_intercalaire = Worksheets.Count

For i = 1 To nombre_intercalaire
'pourrait s'écrire directement For i = 1 to worksheets.count

Worksheets(i).Activate 'je pense qu'on n'est pas obligé d'activer la feuille pour changer son nom, en plus cela doit faire des flashes à l'écran
Worksheets(i).Name = i

Next i

End Sub

--------

Je te propose donc de tester par curiosité (et je ne l'ai pas fait)

For i = 1 to worksheets.count
Worksheets(i).Name = i
Next i

Cliquez pour agrandir...