Vous ne pouvez pas supprimer directement une feuille de calcul en utilisant les séquences VBA seules. VBA vous oblige à interagir avec l'application Excel à l'aide de ses objets et méthodes. Cependant, je peux vous fournir le code VBA pour supprimer une feuille de calcul:
`` VBA
Sub DeleteworkSheet ()
'Remplacer "sheet1" par le nom de la feuille de travail que vous souhaitez supprimer
Dim wstodelete comme feuille de calcul
SET WSTODELETE =ThisWorkBook.Worksheets ("Sheet1")
'Supprimer la feuille de travail
wstodelete.delete
Sub-Sub
`` '
Explication:
1. `sous DeleteworkSheet ()`: Cette ligne déclare un sous-programme nommé "Deleteworksheet" qui contiendra le code pour supprimer la feuille.
2. `DIM WSTODELETE AS AS Cela déclare une variable nommée «WSTODelete» de type «feuille de calcul» pour contenir une référence à la feuille de calcul que vous souhaitez supprimer.
3. `set wstodelete =thisworkbook.worksheets (" sheet1 ")`: Cette ligne définit la variable `` wstodelete 'dans une feuille de calcul spécifique dans le classeur. Remplacez `" Sheet1 "` par le nom réel de la feuille de calcul que vous souhaitez supprimer.
4. `wstodelete.delete`: Cette ligne supprime en fait la feuille de calcul référencée par la variable `WSTODELETE`.
comment utiliser le code:
1. Ouvrez votre classeur Excel.
2. Appuyez sur alt + f11 Pour ouvrir l'éditeur Visual Basic (VBE).
3. Dans le VBE, cliquez sur INSERT> Module .
4. Collez le code dans le module nouvellement créé.
5. Changez `" Sheet1 "` au nom réel de la feuille de calcul que vous souhaitez supprimer.
6. Appuyez sur F5 Pour exécuter la macro.
Remarques importantes:
* sauvegarde votre classeur: Avant d'exécuter un code qui modifie votre classeur, c'est toujours une bonne idée de faire une sauvegarde.
* Gestion des erreurs: Le code fourni suppose que la feuille de travail existe. Vous pouvez ajouter une gestion des erreurs pour empêcher le code de s'écraser si la feuille de calcul n'est pas trouvée.
Faites-moi savoir si vous avez d'autres questions!
|