Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[bidou]

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

[DarkVader]

Simplifies ton code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[DarkVader]

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

[Invité]

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

Ca fonctionne avec une seule ligne de code...

J'avais essayé avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Merci en tous cas...