Renommez le nom du module de feuille de calcul en utilisant VBA dans Microsoft Excel
Dans cet article, nous allons créer une macro pour renommer le nom du module de feuille de calcul.
Chaque feuille de calcul est associée à un module, appelé module de feuille de calcul. Le module Feuille de calcul contient le code VBA pour les événements liés à la feuille de calcul et le code pour les événements liés à tout contrôle Active X inséré dans la feuille de calcul. Chaque module de feuille de calcul a un nom unique.
Dans cet exemple, nous avons un classeur avec de nombreuses feuilles de calcul et les noms de module de feuille de calcul sont comme Sheet10, Sheet11, etc.
Nous voulons renommer le nom du module de feuille de calcul dans une séquence comme Sheet1, Sheet2, etc.
Explication logique
Nous avons écrit la procédure «ChangeAllWorksheetCodenames» pour renommer le module de feuille de calcul.
Comme nous voulons renommer le nom du module de feuille de calcul de toutes les feuilles de calcul présentes dans le classeur, nous avons utilisé la boucle FOR pour parcourir en boucle toute la feuille de calcul présente dans la collection WORKSHEETS.
Pour renommer le nom du module de feuille de calcul de la feuille de calcul, nous avons attribué un nouveau nom au module de feuille de calcul en modifiant la propriété CODENAME du VBCOMPONENT.
Veuillez suivre ci-dessous pour le code
Option Explicit
Sub ChangeAllWorksheetCodenames()
'Code for renaming worksheet codemodule names
Dim ws As Worksheet, i As Integer
i = 0
'Looping through all the worksheets in the active workbook
For Each ws In ActiveWorkbook.Worksheets
i = i + 1
'Putting a check over error occurence while renaming
'If error occurs at runtime, code will skip the error and
'Start executing from next line
On Error Resume Next
'Code for renaming codemodule name
ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = _
"Sheet" & i
'Cancelling the effect error check statement we used earlier,
'Code will not skip the code if any runtime error occurs
On Error GoTo 0
Next ws
Set ws = Nothing
End Sub
Si vous avez aimé ce blog, partagez-le avec vos amis sur Facebook et Facebook.
Nous serions ravis de vous entendre, faites-nous savoir comment nous pouvons améliorer notre travail et le rendre meilleur pour vous. Écrivez-nous à [email protected]