XL 2019 image casque

Phil69970

XLDnaute Barbatruc

• 6 Janvier 2023

• #2

Bonjour @permi

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

Pièces jointes

• Suppression image V1.xlsm

  58.6 KB · Affichages: 2

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Janvier 2023

• #3

Bonsoir Permi, Phil,
Un essai en PJ avec :

VB:

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.

 

Pièces jointes

• casaque.xlsm

  66.4 KB · Affichages: 3

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 6 Janvier 2023

• #4

 

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 6 Janvier 2023

• #5

hélas message a l'ouverture

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 6 Janvier 2023

• #6

Bonsoir,

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

Essayez :

Code:

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Janvier 2023

• #7

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.

 

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 6 Janvier 2023

• #8

 

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 6 Janvier 2023

• #9

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Janvier 2023

• #10

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

 

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 6 Janvier 2023

• #11

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 6 Janvier 2023

• #12

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

VB:

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

 

Pièces jointes

• casaque (1).xlsm

  66.5 KB · Affichages: 2

Vote positif 0 Vote négatif

P

perrmi

XLDnaute Occasionnel

• 6 Janvier 2023

• #13

Parfais
merci de votre compétence
bonne soirée

 

Vote positif 0 Vote négatif