Effacer une image en VBA

Bonjour,

j'ai une macro qui supprime des lignes dans mon classeur excel à partir d'une condition, sans problème.

Sur les lignes supprimées il peut y avoir une image (au format d'une cellule) en superposition et qui bien sur ne s'efface pas lors de la suppression de la ligne

Y-a-t-il un moyen de profiter de la boucle VB pour effacer cette image juste après (ou avant) le delete de la ligne ?

Pour l'instant les images correspondant aux lignes supprimées s'entassent les unes sur les autres et ce n'est pas ce que je voudrai
Merci d'avance de vos conseils

bonjour

oui c'est ppossible dans boucle sur tes ligne ou cellule

il te suffit d'imbriquer une sous boucle qui teste le topleftcell de limage si il correspond a une ligne que tu veux supprimer alors tu supprime l'image aussi


un exemple vite fait (pas testé)
on supprime toutes li lignes pairs ainsi que leur images

Code:

---

1 2 3 4 5 6 7 8 9

for i = 100 to 1 if i mod 2=0 then for each shap in activesheet.shapes if shap.topleftcell.row=i then shap.delete next cells(i,1).entirerow.delete end if next

---

Merci beaucoup c'est parfait,

je voulais supprimer la ligne et l'image quand il y a un "X" en colonne 40, pour ceux qui ont le même soucis voici :

Code:

---

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

Dim i As Integer Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For i = 1500 To 1 Step -1 If Cells(i, 40).Value = "X" Then for each shap in activesheet.shapes if shap.topleftcell.row=i then shap.delete next Cells(i, 40).EntireRow.Delete End If Next i Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

---