Discussion :

[retraite83]

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

[patricktoulon]

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 :

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

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

[retraite83]

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 :

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

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