effacer

[Tam]

Bonsoir !

Je me demande s'il existe une macro pour effacer complétement une feuille.

Merci !

Tam

 

[JYLL]

Bonsoir,

Voici une petite macro pour effacer le contenu d'une feuille.

Sub Effacement()
Sheets('feuil1').Select ' Sélection de la feuille à nettoyer
Cells.Select ' Sélection de toutes les cellules
Selection.ClearContents ' Effacement de toutes les cellules
Cells('A1').Select ' Activation de la cellule 'A1'
End Sub

Bonne recopie et bon test.

Amicalement.

JYLL

 

[myDearFriend!]

Bonsoir Tam, JYLL,

Si je peux me permettre...
La sélection de feuilles ou de cellules n'est pas obligatoire pour manipuler les objets Range par VBA.

On peut donc faire tout simplement :

Sub Effacement()
'Pour effacer le contenu des cellules
      Sheets('Feuil1').Cells.ClearContents
End Sub

ou bien même :

Sub Effacement2()
'Pour effacer le contenu ET le format des cellules
      Sheets('Feuil1').Cells.Delete
End Sub

En évitant la sélection des cellules, cette façon de faire permet un gain de rapidité d'une part, et d'autre part le traitement d'une feuille non active devient transparent pour l'utilisateur...

Cordialement,