Comment EFFACER une feuille entière à l’aide de VBA ?

Pour effacer une feuille entière à l’aide d’un code VBA en une seule fois, vous devez utiliser deux choses, la première est la méthode CLEAR, puis CELLS pour faire référence à toutes les cellules d’une feuille de calcul.

Effacer la feuille active

Disons que si vous voulez effacer tout le contenu de la feuille d’activation, le code serait comme ci-dessous.

Cells.Clear

Lorsque vous exécutez ce code, il effacera tout de toutes les cellules de la feuille active, comme je l’ai déjà mentionné, nous avons utilisé clear pour faire référence à la feuille de calcul entière et clear pour l’effacer.

Effacer une feuille spécifique

Il y a une chose que vous devez noter que pour effacer une feuille, cette feuille doit être activée. Alors disons que vous voulez effacer le « Sheet1 », le code serait comme:

Sheets("Sheet1").Activate
Cells.Clear

Dans ce code, la première active la « Feuille1 » et la deuxième ligne efface tout.

Autres choses à effacer

Vous pouvez également utiliser les méthodes ci-dessous pour effacer différentes choses.

Cells.ClearContents 'to clear contents
Cells.ClearComments 'to clear Comments
Cells.ClearFormats 'to clears formatting
Cells.ClearHyperlinks 'to clear hyperlinks
Cells.ClearNotes 'to clear notes
Cells.ClearOutline 'to clears outline

Effacer une feuille d’un classeur spécifique

Le code ci-dessous peut faire référence au classeur « Book1 » et effacer la feuille « Sheet1 ». Mais assurez-vous que le classeur est ouvert au moment de l’exécution de ce code .

Workbooks("Book1").Sheets("Sheet1").Activate
Cells.Clear

Ce code active d’abord la « Feuille1 » du livre et l’efface.

Effacer une feuille d’un classeur fermé

Et dans le code ci-dessous, nous avons fait référence à « Sheet1 » du classeur « sample-file », stocké dans un emplacement spécifique.

Sub vba_clear_sheet()

Dim wb As Workbook

Application.ScreenUpdating = False

Set wb = Workbooks.Open("C:\Users\Dell\Desktop\sample-file.xlsx")
wb.Sheets("Sheet1").Activate
Cells.Clear
wb.Close SaveChanges:=True

Application.ScreenUpdating = False

End Sub

Ajouter un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *