[VBA Excel] Effacer rapidement une feuille

J'ai un classeur Excel qui contient plusieurs feuilles et des modules VBA.

Sur une feuille, j'ai un bouton qui doit effacer une plage de cellules sur une autre feuille qui est invisible.

Actuellement, j'utilise le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Rem - mémo strFeuilleActuelle = ThisWorkbook.ActiveSheet.Name Rem - effacement ThisWorkbook.Sheets("Feuille cachee").Visible = True ThisWorkbook.Sheets("Feuille cachee").Select Range(<ma plage>).Select Selection.ClearContents ThisWorkbook.Sheets("Feuille cachee").Visible = False Rem - retour sur la feuille d'origine ThisWorkbook.Worksheets(strFeuilleActuelle).Select

---

Mais je ne suis pas satisfait car le changement de feuille se voit et ça donne un effet désagréable à l'utilisateur.

Je voudrais effacer les données de la feuille cachée rapidement et sans que cela se voit. (La méthode doit être compatible avec Excel 7.0)

C'est possible ?

ThisWorkbook.Sheets("Feuille cachee").Range(<ma plage>).ClearContents
devrait suffir

Simplifies ton code

Code:

---

1 2 3 4

Rem - mémo strFeuilleActuelle = ThisWorkbook.ActiveSheet.Name Rem - effacement ThisWorkbook.Sheets("Feuille cachee").Range(<ma plage>).ClearContents

---

Normalement Clearcontents ne nécessite pas l'activation de la feuille.

Bidou, tu m'as coiffé sur le poteau %)

Effectivement, pourquoi faire simple quand on peut faire compliqué...

Ca fonctionne avec une seule ligne de code...

J'avais essayé avec

Code:

---

1 2	ThisWorkbook.Worksheets( ).Range( ).ClearContents

---

au lieu de

Code:

---

1 2	ThisWorkbook.Sheets( ).Range( ).ClearContents

---

Je ne sais jamais quand il faut utiliser Worksheets ou Sheets...

Merci en tous cas...