Microsoft 365 supression image

[luc50*]

bonjour
débutant en vba je cherche a sélectionner un plage donne et a supprimer les images quelle contient mais sa bloque dan ma formule

For Each s In ActiveSheet.Shapes
If Not Intersect(s.TopLeftCell,Range("$B$149:$Q191")) Is Nothing Then s.delete
Next s

 

[luc50*]

désole pour le nom mais c'est ce qui apparaît
et oui j'ai vu que cela efface tout alors que moi je cherche qu'a supprimer certaine partie de ma feuille
c'est a dire uniquement les 6 photos situe dans les emplacements de la macro donne dans le message #11

 

[Staple1600]

Re

Il faut changer de lunettes 😉
Tu as écrit

Desole
staplle 1600 j ai fait ton test et il n'efface effectivement que les images en colonne b et g

(Il y a l de trop et un espace de trop)
Bref...

Pour ta question, je vais faire à nouveau test

 

[Staple1600]

Re

TestOK chez moi

Sub Delete_IMG1()
On Error Resume Next
ActiveSheet.Shapes("imgC149:H160").Delete
End Sub

Je te laisse modifier le reste.

 

[Staple1600]

Re

Et en bonus, un macro pour supprimer les six images d'un coup
(test OK sur mon PC)

Sub Delete_All_Imgs()
Dim supprIMG, i As Byte
On Error Resume Next
supprIMG = Array("C149:H160", "K149:O160", "C162:H174", "K162:O174", "C176:H188", "K176:O188")
For i = LBound(supprIMG) To UBound(supprIMG)
ActiveSheet.Shapes("img" & supprIMG(i)).Delete
Next
End Sub

 

[luc50*]

merci Staple1600
c 'est exactement ce donc j'avais bession avous deux vous m'aves enleve une groose epine du pied

encore merci

 

[patricktoulon]

prévu par contre effacement rencontre un bug des que l'emplacement de mes photos et vide

ça aussi on va le mettre sur le compte du confinement 😉

 

[patricktoulon]

re
Staple1600
remet lui le test is nothing quand même va sait on jamais 😀😀😀