Discussion :

[ThomasVil]

Bonjour,
Connaissez vous comment on peut supprimer toutes les photos qui se trouvent dans un tableau excel? En sachant que je ne connais pas le nom des photos ni leur nombre.
Merci d'avance!

Edit: je ne sais pas comment supprimer les messages mais pour ceux qui veulent on peut utiliser ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Worksheets(1).Shapes.SelectAll
Selection.Delete

Re edit: Ce code supprime tout même les boutons. Savez vous comment faire pour supprimer toutes image sans toucher aux boutons?

[Menhir]

Ce code supprime tout même les boutons. Savez vous comment faire pour supprimer toutes image sans toucher aux boutons?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim CC As Shape
For Each CC In Worksheets(1).Shapes
    If CC.Type = msoPicture Then CC.Delete
Next CC

A lire :
https://docs.microsoft.com/fr-fr/off...cel.shape.type
https://docs.microsoft.com/fr-fr/off...e.msoshapetype

[ThomasVil]

Merci!