Suppression de Shape

fenec

XLDnaute Impliqué

• 12 Mai 2015

• #2

Re : Suppression de Shape

Bonjour le forum, Sly le globe trotter

Peut être comme ceci

Code:

 For Each Shp In ActiveSheet.Shapes
       If InStr(Shp.Name, "non du shape") =1 Then Shp.Delete
     Next Shp

A+

 

Vote positif 0 Vote négatif

S

Sly le globe trotter

XLDnaute Occasionnel

• 12 Mai 2015

• #3

Re : Suppression de Shape

Bonjour fenec,

Merci pour ta réponse.

Je ne suis pas sûr de comprendre le sens du code que tu me proposes...

Je ne connais pas le nom de mes "Shape" car lors de la copie de l'onglet, certains d'entre eux sont renommés automatiquement. C'est pour cette raison que je suis passé par le type des "Shape" pour ne supprimer que mes formes automatiques et pas les images.

Comme indiqué dans mon message, toutes les formes sont bien supprimées mais une erreur est générée à l'ouverture du fichier fraichement créé.

Sylvain

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Mai 2015

• #4

Re : Suppression de Shape

Re,

lors de la copie de l'onglet, certains d'entre eux sont renommés automatiquement

Cliquez pour agrandir...

la question est comment?

Avec un fichier exemple il serait peut être plus simple de comprendre votre problème.

A+

 

Vote positif 0 Vote négatif

S

Sly le globe trotter

XLDnaute Occasionnel

• 12 Mai 2015

• #5

Re : Suppression de Shape

Fenec,

Voici comment je réalise la copie de l'onglet

Code:

    Sheets("DataSérie").Copy
    Set fCopy = ActiveSheet
    With fCopy.UsedRange
        .Value = .Value
    End With

L'idée est ensuite de supprimer les formes automatiques dans la feuille copiée.

Sylvain

 

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Mai 2015

• #6

Re : Suppression de Shape

Re,

Voir fichier joint ci c'est ce que tu désire

A+

 

Pièces jointes

• Suppression de Shape.xls

  24 KB · Affichages: 40

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 12 Mai 2015

• #7

Re : Suppression de Shape

Bonsoir
Normalement avec les Shapes on fait plutôt "CUT" que Delete ... chacun ses méthodes
j'ai testé ça marche aussi , par contre je pige pas "REcopier au dessus de A" ?

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 12 Mai 2015

• #8

Re : Suppression de Shape

Bonjour à tous,
Salut Hervé,

"Recopier au dessus de A" est la Zone de Nom



A+ à tous

 

Pièces jointes

• Capture 2.png

  7.5 KB · Affichages: 56
• Capture 2.png

  7.5 KB · Affichages: 64

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Mai 2015

• #9

Re : Suppression de Shape

Re, Bonsoir Herv62

J'indiquais simplement ou renommer la forme automatique

Merci d'avoir tester

A+

 

Pièces jointes

• Sans titre.jpg

  45.4 KB · Affichages: 38
• Sans titre.jpg

  45.4 KB · Affichages: 37
• Sans titre.jpg

  45.4 KB · Affichages: 37

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Mai 2015

• #10

Re : Suppression de Shape

Bonsoir JCGL

Désolé pas vu ta réponse, tu es plus rapide que moi

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2015

• #11

Re : Suppression de Shape

Bonsoir à tous

Sly le globe trotter à dit:

Fenec,
Voici comment je réalise la copie de l'onglet

Code:

    Sheets("DataSérie").Copy
    Set fCopy = ActiveSheet
    With fCopy.UsedRange
        .Value = .Value
    End With

Cliquez pour agrandir...

Sly le globe trotter
Tiens, tiens ne serait-ce pas mon code que voilà ...🙄
Donc voici mon code initial modifié pour supprimer les shapes.

Code:

Sub CopyFeuilleValeursSeulesVII()
Dim sPth$, nFic$, fCopy As Worksheet
sPth = "C:\temp\": nFic = "fValSeules.xlsx" ' adapter le chemin et le nom du fichier
Sheets("Feuil1").Copy ' adapter le nom de la feuille
Set fCopy = ActiveSheet
    With fCopy.UsedRange
        .Value = .Value
    End With
    On Error Resume Next
    fCopy.Shapes.SelectAll: Selection.Delete
    With Workbooks(fCopy.Parent.Name)
        .SaveAs sPth & nFic, 51
        .Close True
    End With
End Sub

 

Vote positif 0 Vote négatif

herve62

XLDnaute Barbatruc

Supporter XLD

• 12 Mai 2015

• #12

Re : Suppression de Shape

Re
SAlut mon JC , JM
Bin oui mais moi je suis pas devin !!! > recopier la ZONE de nom 😕
JM : Tu as testé , là j'ai pas essayé , sinon le "Resume next" , euh attention pour Debug ? , moi j'enlève

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 12 Mai 2015

• #13

Re : Suppression de Shape

Bonsoir herve62

herve62
J'ai testé mon code comme tout comme dans le fil initial de Sly.
Et j'ai adapté mon précédent code pour simplement faire ceci

Sly le globe trotter à dit:

L'idée est ensuite de supprimer les formes automatiques dans la feuille copiée.

Cliquez pour agrandir...

 

Dernière édition: 12 Mai 2015

Vote positif 0 Vote négatif

fenec

XLDnaute Impliqué

• 12 Mai 2015

• #14

Re : Suppression de Shape

Re le forum, herve62, Staple1600

Visiblement j'ai intervenu dans un post déjà ouvert dont tu as donné une solution Staple1600.

Désolé je ne pouvais pas savoir.

Cordialement,

Philippe

 

Vote positif 0 Vote négatif

S

Sly le globe trotter

XLDnaute Occasionnel

• 20 Mai 2015

• #15

Re : Suppression de Shape

Bonjour à tous,

Merci à tous pour vos contributions (dans ce post et d'autres !) qui me permettent d'avancer pas à pas en VBA. Toutes mes excuses Staple 1600, j'ai effectivement réutilisé des lignes de code venant de toi mais nullement l'idée de me les approprier 😛

Staple 1600, j'ai testé ta solution

Code:

fCopy.Shapes.SelectAll: Selection.Delete

mais elle supprime toutes les shapes (formes et images).
Je cherche à ne supprimer que les formes d'où ma tentative initial

Code:

    For Each S In ActiveSheet.Shapes
        If S.Type = 1 Then S.Delete
    Next

En revanche, quelque soit la méthode testée, elle génère une erreur dans le fichier à l'ouverture avec du contenu illisible... Herve62, je teste ta méthode dans la soirée et vous tiens au courant.

Merci encore pour votre aide !
Sly

 

Vote positif 0 Vote négatif