Suppression de forme automatique

Bonjour

For Each s In ActiveSheet.Shapes
ActiveSheet.Shapes(s.Name).Delete
Next s

Cordialement JB

t'as esssayé :
ActiveSheet.DrawingObjects.Delete
eric

Bonjour,

J'ai sur une feuille Excel des formes automatiques (auxquelles sont
affectées des macros) ; je voudrai pouvoir supprimer toutes ces formes
automatiques d'un coup. J'ai essayé "For each Shapes in ActiveSheet" mais
cela ne donne rien.

Merci d'avance de votre aide.

Tucky

Bonjour JB

Merci de ta réponse rapide et efficace.

Bonne après-midi.

Tucky

Bonjour

For Each s In ActiveSheet.Shapes
ActiveSheet.Shapes(s.Name).Delete
Next s

Cordialement JB

Merci pour ta réponse, cela fonctionne aussi

Tucky

t'as esssayé :
ActiveSheet.DrawingObjects.Delete
eric

Bonjour,

J'ai sur une feuille Excel des formes automatiques (auxquelles sont
affectées des macros) ; je voudrai pouvoir supprimer toutes ces formes
automatiques d'un coup. J'ai essayé "For each Shapes in ActiveSheet" mais
cela ne donne rien.

Merci d'avance de votre aide.

Tucky

Bonjour Tucky,

Cette procédure ne supprime que les "Formes automatiques".

'-----------------------------
Sub SupprimeFormeAutomatique()

Dim Sh As Shape
Dim B As MsoShapeType
B = msoFreeform
For Each Sh In Worksheets("Feuil2").Shapes
Select Case Sh.Type
Case B
Sh.Delete
End Select
Next
End Sub
'-----------------------------


Salutations!



"Tucky" <Tucky@discussions.microsoft.com> a écrit dans le message de news: 5C2CCCC0-EF04-434C-97BA-E01D587C7D90@microsoft.com...
Bonjour,

J'ai sur une feuille Excel des formes automatiques (auxquelles sont
affectées des macros) ; je voudrai pouvoir supprimer toutes ces formes
automatiques d'un coup. J'ai essayé "For each Shapes in ActiveSheet" mais
cela ne donne rien.

Merci d'avance de votre aide.

Tucky