OVH Cloud OVH Cloud

supprimer toutes les images sauf

9 réponses
Avatar
jeje02
Bonjour,
J'ai verrouiller une feuille dans laquelle il y a des images à conserver avec lesquelles je fais X copier coller pour les dupliquer.
J'aimerai avoir un code VBA pour supprimer toutes les images sauf celles à conserver.
Merci à tous

9 réponses

Avatar
MichD
Bonjour,

Je suppose que le X est pour séparer les images à supprimer et celles à conserver.

Où est-ce X? Comment fais-tu pour associer ce X aux images?

Et je suppose que tu veux supprimer toutes ces images marquées d'un X ?

Explique!
Avatar
jeje02
Le jeudi 24 Juillet 2014 à 12:18 par jeje02 :
Bonjour,
J'ai verrouiller une feuille dans laquelle il y a des images à conserver
avec lesquelles je fais X copier coller pour les dupliquer.
J'aimerai avoir un code VBA pour supprimer toutes les images sauf celles
à conserver.
Merci à tous


salut MichD
le X veut dire qu'il peut y avoir plusieurs copies de la même image
Avatar
MichD
Explique comment faire la distinction entre une image à supprimer et une image à conserver
dans la même feuille de calcul.
Avatar
jeje02
Le jeudi 24 Juillet 2014 à 12:18 par jeje02 :
Bonjour,
J'ai verrouiller une feuille dans laquelle il y a des images à conserver
avec lesquelles je fais X copier coller pour les dupliquer.
J'aimerai avoir un code VBA pour supprimer toutes les images sauf celles
à conserver.
Merci à tous


pour une image, j'enregistre une macro qui copie et colle cette image. Du coup, l'image copiée a un nom et l'image collée à aussi un nom différent. Donc, est-il possible de supprimer toutes les images collées sans supprimer l'image copiée.
c'est pour créer une interface de séances de sport, dans laquelle, sur un coté de ma feuille, j'ai toutes mes images à dupliquer plusieurs fois, j'imprime ma feuille, et je supprime toutes mes images (sauf celles sur le coté) pour refaire une autre séance.
Avatar
MichD
Pour moi, tes explications sont insuffisantes.

Il n'y a pas 2 objets dans une feuille de calcul qui portent le même nom. Ils ont au moins
un index différent.
Si tu veux différencier les images à supprimer et les images à conserver par leur nom,
explique les caractéristiques
de leur nom. (nom avant la copie de l'image, nom de l'image après la copie, le nom que tu
veux supprimer)
Avatar
jeje02
Le jeudi 24 Juillet 2014 à 12:18 par jeje02 :
Bonjour,
J'ai verrouiller une feuille dans laquelle il y a des images à conserver
avec lesquelles je fais X copier coller pour les dupliquer.
J'aimerai avoir un code VBA pour supprimer toutes les images sauf celles
à conserver.
Merci à tous


je n'arrive pas à faire comprendre ce que je veux faire. C'est pas grave, je vais essayer de faire autrement.
Comment supprimer toutes les images et toutes les formes automatiques d'une feuille?
Après, je fais une macro qui me permet de copier les images et formes automatiques d'une autre feuille pour les copier dans celle où j'ai mon interface.
je sais pas si j'ai été plus claire...
Enfin merci d'être patient et d'essayer d'aider les débutant comme moi, même si c'est pas facile tout les jours
Avatar
isabelle
bonjour,

ActiveSheet.DrawingObjects.Delete

isabelle

Le 2014-07-24 10:58, jeje02 a écrit :
Le jeudi 24 Juillet 2014 à 12:18 par jeje02 :
Bonjour,
J'ai verrouiller une feuille dans laquelle il y a des images à conserver
avec lesquelles je fais X copier coller pour les dupliquer.
J'aimerai avoir un code VBA pour supprimer toutes les images sauf celles
à conserver.
Merci à tous


je n'arrive pas à faire comprendre ce que je veux faire. C'est pas grave, je
vais essayer de faire autrement.
Comment supprimer toutes les images et toutes les formes automatiques d'une
feuille?
Après, je fais une macro qui me permet de copier les images et formes
automatiques d'une autre feuille pour les copier dans celle où j'ai mon
interface.
je sais pas si j'ai été plus claire...
Enfin merci d'être patient et d'essayer d'aider les débutant comme moi, même si
c'est pas facile tout les jours

Avatar
jeje02
Le jeudi 24 Juillet 2014 à 12:18 par jeje02 :
Bonjour,
J'ai verrouiller une feuille dans laquelle il y a des images à conserver
avec lesquelles je fais X copier coller pour les dupliquer.
J'aimerai avoir un code VBA pour supprimer toutes les images sauf celles
à conserver.
Merci à tous


merci isabelle
Avatar
isabelle
aux plaisirs jeje,
ps/ une autre façon de faire est de vérifier l'adresse des images
(.TopLeftCell.Address),

For Each sh In ActiveSheet.Shapes
TopLeftAddress = sh.TopLeftCell.Address
If Intersect(TopLeftAddress , maplage) Is Nothing Then sh.Delete
Next

isabelle

Le 2014-07-24 12:16, jeje02 a écrit :

Merci à tous


merci isabelle