macro ClearContents

yo1814 · 20 Avril 2006

Bonjour,
J'aimerais créer une macro me permettant en un seul clic d'effacer toutes les feuilles. J'arrive à le faire pour une feuille avec la formule ci-dessous
Sheets('Feuil1').Range('A14:F65536').ClearContents
, mais comment préciser avec la commande Sheets pour toutes les feuilles du classeur
Merci

ERIC S · 20 Avril 2006

Bonjour

essaie

Dim feuille As Worksheet
For Each feuille In Worksheets
feuille.Cells.ClearContents
Range('A1').Select
Next

A+

yo1814 · 20 Avril 2006

Bonjour Eric S,
Merci pour ta proposition, car elle fonctionne parfaitement bien, mais je souhaiterais qu'elle efface mes feuilles depuis la ligne A14. J'ai essayer de mettre Range ('A14'), mais sans succès.
Peux-tu m'éclairer?
Merci

ERIC S · 20 Avril 2006

re

pas testé

Dim feuille As Worksheet
For Each feuille In Worksheets
feuille.range('A14:f65536').ClearContents
Range('A1').Select
Next

si pb décompose :

feuille.activate
range('.....').select
selection.clearcontents

A+

yo1814 · 20 Avril 2006

Bonjour Eric S,
Merci c'est parfait, tu es un chef
A+

macro ClearContents

yo1814

XLDnaute Nouveau

ERIC S

XLDnaute Barbatruc

yo1814

XLDnaute Nouveau

ERIC S

XLDnaute Barbatruc

yo1814

XLDnaute Nouveau

Discussions similaires