Suppression des shapes en fonction de leurs nom

Bonjour,

J'ai besoin d'aide en vba, alors le problème c'est de pouvoir supprimer un groupe de shapes en fonction de leurs noms.

Exemple: j'ai 1 shape nomé A et un autre B, je voudrais avec un code vba supprimer que le A et garder le B le code suivant supprime toute la sélection

ActiveSheet.Shapes.SelectAll
Selection.Delete

merci d'avance

Cordialement

bonjour,

essaie ceci (non testé)

Activesheet.shapes("A").delete

BOnjour

peut-être un truc du genre...

For Each shp In ActiveSheet.Shapes
    if shp.name = "A" then shp.Delete
Next

MAIS PAS TESTÉ, faute de fichier fourni....

Fred

Merci Fred c'est ce que je chercher

Bonjour

Dans ce cas...

Fred