effacer tout les "objets" d'une feuille

[Nicko]

Re-bonjour à tous,

voici mon nouveau soucis :

j'ai un classeur avec une feuille que je souhaite enregister a part.

Je passe par le code suivant :

'Enregistre la feuille de vente dans un nouveau classeur
Dim Chr As String 'déclare la variable
Dim Rapport As String
Rapport = Feuil2.Range("D2").Value
Chr = Feuil1.Range("C3").Value & Right("00" & Feuil1.Range("D3").Value, 3)
Sheets("Facture").Copy
ChDrive "C"
ChDir "C:\Documents and Settings\Planète Bloc\Mes documents\Factures" 'Change le répertoire
ActiveWorkbook.SaveAs Filename:=(Chr)

cette feuille contient des boutons et listbox qui servent dans le classeur de départ.
Comment faire pour tous les supprimer dans le nouveau classeur ?

D'avance merci.

 

[noviceAG]

Re : effacer tout les "objets" d'une feuille

Bonjour Nicko, le Forum,

essaie ceci :

Sub EffaceShapes()
Dim Shp As Shape
With ActiveSheet
For Each Shp In .Shapes
If Not Shp.Type = msoOLEControlObject Or Shp.Type = msoFormControl Then Shp.Delete
Next Shp
End With
End Sub

En te souhaitant bonne continuation et bon Week end

 

[Nicko]

Re : effacer tout les "objets" d'une feuille

Merci pour le tuyau !

avec une petite modif, ce fut parfait !!!!

Bon wek-end à toi et au forum

 

[Pierrot93]

Re : effacer tout les "objets" d'une feuille

Bonjour Nicko, NoviceAG

une autre solution pour supprimer tous les objets de la feuille active :

ActiveSheet.Shapes.SelectAll
Selection.Delete

bon après midi
@+