Supprimer image si seulement elles existent Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Avatar du membre
Pedro22
Membre impliqué
Membre impliqué
Messages : 2'542
Appréciations reçues : 255
Inscrit le : 26 janvier 2017
Version d'Excel : 2010 FR
Version de Sheets : FR
Téléchargements : Mes applications

Message par Pedro22 » 23 mai 2019, 16:10

Bonjour, salut jmd et Xmenpl,

Une piste :
Sub supp()

Dim S As Shape, Trouve As Boolean

With Worksheets("Feuil1")
    For Each S In ActiveSheet.Shapes
        Trouve = False
        For Each Nom In Array("boite1","boite2","boite3")
            If S.Name = Nom Then Trouve = True: Exit For
        Next Nom
        If Trouve Then .Shapes.Range(S.Name).Delete
    Next S
End With

End Sub

PS :
Cette syntaxe n'est pas correcte :
If S.Name = "boite1" or "boite2" or "boite3" Then Trouve = True
A l'inverse de celle-ci :
If S.Name = "boite1" or S.Name = "boite2" or S.Name = "boite3" Then Trouve = True
Le problème n'est pas de ne pas savoir, le problème est de ne pas chercher...
Ton problème est résolu ? N'oublie pas de l'indiquer :
Avatar du membre
pierrep56
Membre dévoué
Membre dévoué
Messages : 933
Appréciations reçues : 124
Inscrit le : 18 juin 2014
Version d'Excel : 2016

Message par pierrep56 » 23 mai 2019, 17:01

Bonjour à tous,
Tout simplement :
Dim Img As String, Sh As Shape

    Img = "img1, img2, img3, img4, img5, etc ..."
    For Each Sh In Worksheets("calcul").Shapes
        If InStr(Img, Sh.Name) > 0 Then Sh.Delete
    Next Sh
Pierre

https://www.excel-downloads.com/threads/supprimer-certaines-images-si-elles-existent.20031967/
1 membre du forum aime ce message.
N
Nelea
Membre habitué
Membre habitué
Messages : 94
Inscrit le : 22 mars 2019
Version d'Excel : 2016fr

Message par Nelea » 24 mai 2019, 08:17

pierrep56 a écrit :
23 mai 2019, 17:01
Bonjour à tous,
Tout simplement :
Dim Img As String, Sh As Shape

    Img = "img1, img2, img3, img4, img5, etc ..."
    For Each Sh In Worksheets("calcul").Shapes
        If InStr(Img, Sh.Name) > 0 Then Sh.Delete
    Next Sh
Pierre

https://www.excel-downloads.com/threads/supprimer-certaines-images-si-elles-existent.20031967/

Merci ça fonctionne bien
NB : je travaille sur un fichier entreprise, je ne peux pas joindre de fichier,
Merci
Avatar du membre
Xmenpl
Membre impliqué
Membre impliqué
Messages : 1'568
Appréciations reçues : 98
Inscrit le : 16 mai 2018
Version d'Excel : 2003 à 2013

Message par Xmenpl » 24 mai 2019, 15:21

Pedro22 a écrit :
23 mai 2019, 16:10
Bonjour, salut jmd et Xmenpl,

PS :
Cette syntaxe n'est pas correcte :
If S.Name = "boite1" or "boite2" or "boite3" Then Trouve = True
A l'inverse de celle-ci :
If S.Name = "boite1" or S.Name = "boite2" or S.Name = "boite3" Then Trouve = True
:P Effectivement j''ai répondu un peu vite sur ce coup là ::(
Aprés test ce n'est qu'en répétant trois fois la même procédure que j'ai reussi à le faire fonctionner.

Heuresement la solution de pierrep56 est fonctionnelle. :mrgreen:
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message