XL 2019 image casque

[perrmi]

hello bonjour,
tout d'abord meilleurs voeux a toutes et tous pour 2023
petite question qui me préoccupe.
fichier joint en colonne B des images de casaques de jockeys
j'aimerais pouvoir les éliminer tous en un seul coup sans devoir a chaque fois cliquer dessus et faire couper.
a voir petite macro
bien essayer mais cela ne marche pas
merci a vous
perrmi

 

[Phil69970]

Bonjour @permi

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[sylvanu]

Bonsoir Permi, Phil,
Un essai en PJ avec :

Sub SupCasaques()
Dim Shp
For Each Shp In ActiveSheet.Shapes
    If Shp.Height > 0.5 Then Shp.Delete
Next Shp
End Sub

Je discrimine casaque et fer à cheval par la hauteur des images, les fers ont une hauteur de 0.32, les casaques sont plus grandes.

 

[perrmi]

 

[perrmi]

hélas message a l'ouverture

 

[mapomme]

Bonsoir,

Ce sont les images qui couvrent en partie la colonne B qui sont effacées.

Essayez :

Sub SuppCouvreChef()
Dim xshp As Shape
   Application.ScreenUpdating = False
   With Sheets("Feuil2")
      For Each xshp In Sheets("Feuil2").Shapes
         If Not Intersect(.Range(xshp.TopLeftCell, xshp.BottomRightCell), .Columns("b:b")) Is Nothing Then xshp.Delete
      Next xshp
   End With
End Sub

 

[sylvanu]

Re,
Essayez d'enregistrer les PJ dans une zone approuvée, généralement dans MesDocuments c'est le cas, avant d'ouvrir le fichier.

 

[perrmi]

 

[perrmi]

c'est tout bon pour vous 2
encore merci
vraiment top
bonne journée
perrmi

 

[sylvanu]

Option Excel / Centre de gestion ... / paramètre du centre ... / Paramètres des macros
Puis cochez 2eme ou 4eme option.

 

[perrmi]

hello
de retour
par contre pour la macro elle disparait apres l'action.
j'entend par la le bouton de controle
je dois refaire et insérer un controle de formulaire et insérer la macro

 

[sylvanu]

Re,
Ne sachant à qui vous vous adressez, je vous met ma PJ réactualisée.
Le bug est grossier, je vous le concède.

Sub SupCasaques()
Dim Shp
For Each Shp In ActiveSheet.Shapes
    If Shp.Height > 0.5 And Shp.Name <> "BoutonCommande" Then Shp.Delete
Next Shp
End Sub

 

[perrmi]

Parfais
merci de votre compétence
bonne soirée