Excel - Effacer le contenu de feuilles

Question

Bonjour,

Voila j'ai plusieurs fichier contenant plusieurs feuille dont je voudrait supprimé le contenu grace au click sur un bouton, donc voici mon code qui marche presque :

Private Sub CommandButton1_Click()
Chemin = ThisWorkbook.Path & "\"
Workbooks.Open Filename:=Chemin & "PC.xls"
Workbooks.Open Filename:=Chemin & "Imprimantes.xls"
Workbooks.Open Filename:=Chemin & "Hub et Switch.xls"
    Windows("01-Gestion du parc.xls").Activate
    Sheets(Array("Données", "36", "FeuilleDeVariable")).Select
    ActiveSheet.Cells.Clear
    Sheets("Presentation").Activate
    Range("A49").Select
    ActiveWindow.ScrollRow = 1
    ActiveWorkbook.Save
    Windows("PC.xls").Activate
    Sheets(Array("PC.6510B", "PC.D530", "PC.DC5750", "PC.P733", "PC.E5600", "PC.D500", _
        "PC.N620C", "PC.E620")).Select
    ActiveSheet.Cells.Clear
    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows("Imprimantes.xls").Activate
    Sheets(Array("Imp.2390", "Imp.2391", "Imp.C524", "Imp.C534", "Imp.DESKJET", _
        "Imp.E323", "Imp.HL", "Imp.IR", "Imp.LASERJET", "Imp.OPTRA", "Imp.STYLUS")).Select
    ActiveSheet.Cells.Clear
    ActiveWorkbook.Save
    ActiveWindow.Close
    Windows("Hub et Switch.xls").Activate
    Sheets(Array("H&S.3COM", "H&S.CISCO")).Select
    ActiveSheets.Cells.Clear
    ActiveWorkbook.Save
    ActiveWindow.Close
End Sub


Le problème vient du faite que "    ActiveSheet.Cells.Clear" ne supprime le contenu des cellules seulement que de la feuille visible et non pas de toutes les feuilles selectionné ...

voila jespère avoir été assez clair et que vous réussirez a m'aidé ...

cordialement romain

Ivan-hoe · Accepted Answer

Salut, 
si ce n'est pas trop tard
Sheets(Array("PC.6510B", "PC.D530", "PC.DC5750", "PC.P733", "PC.E5600", "PC.D500", _ 
"PC.N620C", "PC.E620")).Select 
Cells.Select
Selection.ClearContents

el matador · Answer

bonjour,

c'est normal car "activeSheet" veut dire dans la feuille active (visible).

il faut que tu precise quel cellule effacer et dans quel feuille, comme par exemple :
sheets("feuil1").select
Range("A1").select
activesheet.cells.clear

el matador · Answer

essai ca :

 Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select

romain · Answer

merci beaucoup cela marche niquel!!!

galza · Answer

Et peut-on faire la mêm chose pour effacer cette fois ci le contenu des combobox de la feuille, au lieu des cellules?
merci d'avance

microsig · Answer

Bonjour
Je suis un débutant en VBA
Voila j’ai un classeur Nome FACTURE Excel(V.2003)
Je suis sur une Feuil C
Je  voudrais  effacer les contenues de touts les cellules
Non Protéger d’un tableau dans la Feuil A
J’ai utiliser une boucle
Fro i=1 to Sheets.Count
Sheets(i).cells.Clear
Next i	
Mais elle ne fonctionne pas
La boucle efface tout la feuil A

Excel - Effacer le contenu de feuilles

6 réponses

Discussions similaires

Newsletters