Selection image selon ligne

Bonjour,

J'ai un fichier avec des images parfois dans la première colonne.

Dans ma deuxième colonne je mets si je suis concerné par la ligne ou pas.

Si je ne suis pas concerné je dois supprimer la ligne entière et aussi l'image dans la ligne, sinon je laisse la ligne.

J'arrive à supprimer mes lignes si la colonne est vide mais je n'arrive pas à cibler les images pour les sélectionner.

Pour couronner le tout j'ai des fusions de colonne et ligne donc B27 est en fait B27,B28,B29 ...

Voila mon code pour supprimer les lignes :

Sub SupLIGNEsiCvide()

Range("D27,D32,D34,D37,D42,D47,D48,D49,D55,D59,D66,D72,D82,D86,D93,D101,D104,D107,D116,D121,D130,D135,D139,D145,D148,D152,D156,D161,D167" & _
",D172,D177,D180,D192,D195,D200,D204,D212,D218,D221,D230,D235,D241,D245,D249,D255,D266,D270,D273").SpecialCells(xlCellTypeBlanks).EntireRow.Delete

End Sub

Pour les selection d'image j'ai essayer (sans succès) :

If Shapes.TopLeftCell.Address = activecell.Address Then Shapes.delete

If Shapes.TopLeftCell.Address = Selection.Address Then Shapes.delete

Je vous mets un bout du fichier pour que ce soit plus simple à comprendre.

Merci d'avance !

bonjour,

Mettre la propriété des shapes à modifiable : Les images seront supprimées en m^me temps que les lignes...

ActiveSheet.DrawingObjects.Placement = xlMoveAndSize

A+

Bonjour Druman, galopin01 , le forum,

Mis à part le fait qu'il faut éviter d'utiliser les cellules fusionnées car c'est une plaie à coder, , voici un essai à titre expérimental....

Si j'ai bien compris, on supprime les lignes qui ne contiennent pas un X dans les cellules fusionnées de la colonne D ?

Sub SupLIGNEsiCvide()
 Dim i%, dl%

  Application.ScreenUpdating = False
    With Sheets("Sheet1")
     dl = .UsedRange.Rows.Count
          .DrawingObjects.Placement = xlMoveAndSize 'merci galopin01

      For i = dl To 3 Step -1
       .Cells(i, 4).Select
         If ActiveCell.Value = "" Then
          .Rows(ActiveCell.Row).Delete
         End If
      Next i
    End With
End Sub

CTRL + e pour éxécuter la macro....

Cordialement,

Super !!!

Merci à tous les deux ça marche nickel et surtout le :

ActiveSheet.DrawingObjects.Placement = xlMoveAndSize