Microsoft 365 supression image

L

luc50*

XLDnaute Nouveau

• 10 Avril 2020

• #16

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2020

• #17

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

Cliquez pour agrandir...

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

Pour ta question, je vais faire à nouveau test

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2020

• #18

Re

TestOK chez moi

VB:

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

Je te laisse modifier le reste.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2020

• #19

Re

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

VB:

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

 

Vote positif 0 Vote négatif

Solution

L

luc50*

XLDnaute Nouveau

• 10 Avril 2020

• #20

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

encore merci

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Avril 2020

• #21

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 10 Avril 2020

• #22

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

 

Vote positif 0 Vote négatif