Macro pour suppression image Shapes ?

Bonjour tout le monde :)

Pour ma facturation, j'ai un classeur "Bon d'intervention" qui comprend mon logo de société dans le haut a gauche du document, des macros et dans le bas de la feuille, la signature du client "dessiner" via l'onglet Dessin d'Excel et qui est superposé sur plusieurs cellules.

Je souhaite faire une macro pour supprimer uniquement la signature du client. Quand j'enregistre une macro, le code me donne ceci:

Code:

---

ActiveSheet.Shapes.Range(Array("Ink 9")).Select

---

Mais elle ne fonctionne pas. Je ne m'y connais pas beaucoup en VBA.

Pourriez-vous un peu m'aider ?

Merci

Bonjour,

est-ce que ta shape portera toujours le même nom ?

Si oui :

Code:

---

ActiveSheet.Shapes.Range(Array("Ink 9")).Delete

---

(attention, on travaille ici sur la feuille active !)

si non : il faut que tu listes tous tes shapes présents dans la feuille, pour détecter celui qui n'est pas récurrent

Par exemple, tu as deux shapes fixes appelés "toto" et "tata", on veut supprimer le troisième (la signature du client) dont on ne connait pas le nom

Code:

---

1 2 3 4 5

Sub test() For Each forme In ActiveSheet.Shapes If forme.Name <> "toto" And forme.Name <> "tata" Then forme.Delete Next forme End Sub

---

Merci @joe.levrai ca fonctionne ! Mais, ça supprime également mes validations de données.

Une idée pour éviter ca ?

Merci

Bonsoir,
il faut adapter le code de joe.levrai et remplacer toto et tata (et plus de or si besoin) par le nom des images que tu veux conserver...

Pour trouver le nom des images, clique dessus et regarde sous le ruban à gauche :

Pièce jointe 629480

Oui oui ca je sais, j'ai dis que ca fonctionnait. Mais la ou je dis que ca ne fonctionne pas, c'est que ca supprime des listes déroulantes avec validation de donné.

Relis ce que j'ai écris ;)

Bonjour

Citation:

---

Relis ce que j'ai écrit

---

Oups :)

Utilise la même boucle pour recupérer tous les noms des shapes et fais le tri :

Code:

---

1 2 3 4 5 6

Sub ListeShapes() Dim MaShape As Shape For Each MaShape In ActiveSheet.Shapes Debug.Print MaShape.Name Next MaShape End Sub

---

Pièce jointe 629500

J'ai espérer que ca resolve mon problème mais il me renvoie bien le nom de mon logo et de mes macro mais que j'ai bel et bien évité de supprimer dans mon code de suppression d'image. Il y a vraimen juste les validations de données qui se suppriment :/

Re,

Je ne comprends pas ta réponse... (cette fois j'ai bien relu plusieurs fois :))

Si la boucle For Each forme In ActiveSheet.Shapes" qui fait le delete supprime les validations de données, en remplaçant le delete par un debug.print du name comme je le propose, tu vas bien récupérer le nom des objets correspondants et tu vas pouvoir rajouter les And forme.Name <> "titi" nécessaires...

Qu'est-ce qui a coincé ? Tu n'as pas trouvé la fenêtre d'exécution ? La liste générée ne contient pas les "drop down" ? Autre chose ?

Merci @Tête de chat de revenir vers moi :)

Effectivement, le debug génère bien mon logo et mes macros que j'ai pu protéger mais le debug ne génère pas mes listes déroulantes. Du coup, mes validations données sont supprimées.

Re,
Je ne vois pas comment la même boulce peut trouver les liste déroulantes pour un delete et ne pas pouvoir donner leur name... 8O
Tu peux mettre une copie de la feuille (anonymisée)

Bonjour,

déjà pour commencer, la question est mal posée car la collection shapes est très large. Cela manque donc de précision pour que l'aide apportée soit efficace.

si l'on prend en exemple la comboBox, dans la collections shapes on peu en trouver 2 types : une est un objet "control activeX" appelé aussi "OLEControlObject" l'autre un objet "Form control".
On ne peut pas gérer un "control activeX" comme un objet "Form control".

si on applique la propriété Type à nos deux types d'objet combobox on obtient :

Code:

---

1 2 3 4 5

'si on a les 2 types de combobox dans la feuille active Dim ObjShape As Object For each ObjShape in ActiveSheet.Shapes Debug.Print ObjShape.Type Next

---

L'un renverra : le type 12 (msoOLEControlObject)
L'autre renverra le type 8 (msoFormControl)

Maintenant l'objet image peut la aussi avoir 2 types. Donc si on reprend le petit code du haut et qu'on l'applique à une feuille active qui contient les 2 types d'images :

Code:

---

1 2 3 4 5

'si on a les 2 types d'image dans la feuille active Dim ObjShape As Object For each ObjShape in ActiveSheet.Shapes Debug.Print ObjShape.Type Next

---

on obtient en retour :

Type 12 (msoOLEControlObject) pour l'objet image activeX
Type 13 (msoPicture) pour l'objet image

Si par malchance tu utilises les objets control activeX tu ne pourras pas les différencier simplement par la type car dans tout les cas la propriété type renverra toujours 12.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub demo1() 'version qui utilise la collection "Shapes" Dim ObjShape As Object For Each ObjShape In ActiveSheet.Shapes If ObjShape.Type = 12 Then If LCase(ObjShape.Name) Like "image*" Then ' a toi d'ajouter ici le code qui permet de differencié les images a conserver de celle que tu veux effacer Debug.Print ObjShape.Name ObjShape.Delete End If End If Next End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub demo2() 'version qui utilise la collection "OLEObjects" Dim OLEObj As OLEObject For Each OLEObj In ActiveSheet.OLEObjects If TypeOf OLEObj.Object Is MSForms.Image Then ' a toi d'ajouter ici le code qui permet de differencié les images a conserver de celle que tu veux effacer Debug.Print OLEObj.ShapeRange.Name OLEObj.Delete End If Next End Sub

---

Si par chance tu utilises les objets "Form Control" il suffit simplement d'ajouter une verif dans la boucle pour n'effacer que les objets images.

Code:

---

1 2 3 4 5 6 7 8 9

Sub demo3() Dim ObjShape As Object For Each ObjShape In ActiveSheet.Shapes If ObjShape.Type = 13 Then ' a toi d'ajouter ici le code qui permet de differencié les images a conserver de celle que tu veux effacer ObjShape.Delete End If Next End Sub

---

Philippe