AUTOMATISATION DE TACHE D'EFFACEMENT

[os_rouen]

Bonjour,

Je cherche à effecer les données dans tous les tableaux de mon classeur.

J'ai pensé à :

For Each ws In Worksheets
Range('A6:AC5000').Select
Selection.ClearContents
Next

Mais il doit manquer quelque chose...

Quelqu'un peut-il m'aider please?

D'avance merci,

Olivier

 

[PascalXLD]

Bonjour

For Each ws In Worksheets
ws.Range('A6:AC5000').ClearContents
Next

Bon courage

 

[Robert]

Bonjour Olivier, bonjour le forum,

Essaie comme ça :

Dim ws As Worksheet
For Each ws In Worksheets
ws.Range('A6:AC5000').ClearContents
Next

Édition :
Oops ! Pas frais... Salut Pascal...

Message édité par: Robert, à: 03/06/2005 13:46

 

[os_rouen]

Merci à tous les deux!

Juste une question le 'dim ws as worksheet' ne semble pas obligatoire pour que cela fonctionne... il y a une raison?

Olivier

 

[PascalXLD]

Re

Oui c'est parceque tu n'as pas mis l'option declaration obligatoire des variables

Donc tu ne dois pas avoir Option Explicit de mis en haut de tes modules

Mais c'est une très bonne habitude à prendre de déclarer toutes ces variables (coucou Thierry B) B) )

Bonne journée