macro ClearContents

[yo1814]

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]

Bonjour

essaie

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

A+

 

[yo1814]

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]

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]

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