Bonjour le forum,
Voilà le problème, j'ai plusieurs image et formes dans une plage de cellule (ici il s'agit de la plage A466:BB500).
L'idée est de supprimer cette plage de cellule (jusqu'à la rien de compliquer en VBA) mais également supprimer toutes les images et forme de cette plage.
J'ai cherché sur plusieurs forum (dont celui-ci) et je n'ai rien trouvé de concluant. J'avais cependant trouvé ce bout de macro qui me semblait intéressant mais finalement VBA ne veux pas le lire (je suis sous excel 2016), il semblerais que c'est la ligne Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address) qui lui pose problème en m'indiquant :
"Erreur d'exécution 13, Incompatibilité de type"
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("A466:BB500")
For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
Next
Application.ScreenUpdating = True
Si vous avez une idée, personnellement je sèche...