effacer le contenu d'une feuille

[fahd]

salut a tous les gents du forum,
voila, au fait j'ai un ptit soucy, au fait j'aimerai pouvoir effacer toutes les valeurs des cellules qui existent ds une feuille.... et ss pour autant effacer la feulle merci
merci a ceux ki prendront le temps de lire mon msg

 

[C@thy]

Salut fahd, soit tu fais une macro :

Cells.Select
Selection.ClearContents

soit tu sélectionnes le rectangle gris au-dessus des n°s de ligne et à gauche des en-têtes (lettres) de colonnes et tu appuies sur la touche suppr

 

[fahd]

salut cathy voila g encore un ptit soucy

voila ma macro
Private Function getWorksheet(ByVal iName As String) As Worksheet
On Error GoTo WorksheetExistError
Dim MyWorksheet As Worksheet
Set MyWorksheet = Worksheets(iName)
MyWorksheet.Cells.Select
'Selection.
Selection.ClearContents
Set getWorksheet = MyWorksheet

Exit Function
WorksheetExistError:
Sheets.Add.name = iName
Set getWorksheet = Worksheets(iName)
End Function

elle me renvoie un worksheet nomé "resultquery" si le worksheet n'existe pas, si il existe, elle efface le contenu et me le renvoie
le pbm c ke ca marche a tt les coups : qd je suis sur mon ecran sur la feuille "ResultQuery" ca marche parfaitement, mais qd je change de feuille et ke je lance la macro il me balance une erreur
peut tu m'aider plzzzz
merci

 

[fahd]

merci cathy c bon

au fait fallait ke je remplace
MyWorkSheet.cells.select
par
MyWorkSheet.Select
et la ca marche exactement comme je le souhaite