Microsoft 365 Supprimer certaines formes personnalisées

pat66 · 21 Octobre 2024

Bonjour le forum,

Je souhaite supprimer toutes formes de ma feuille sauf les 5 ci dessous en cliquant sur la forme "Ellipse 624"
"Ellipse 624", "Rectangle : coins arrondis 212", "Rectangle : coins arrondis 213", "Rectangle : coins arrondis 214", "Rectangle : coins arrondis 219"

Je vous remercie d'avance pour votre aide et vos conseils

cdt

Dranreb · 21 Octobre 2024

Bonjour.
Et ceci ?

VB:

Sub Ellipse624_Click()
   For Each Shape In ActiveSheet.Shapes
      If Shape.OnAction = "" Then Shape.Delete
      Next Shape
   End Sub

Dranreb · 21 Octobre 2024

pat66 à dit:
cette syntaxe efface les formes qui n'ont pas de macros à exécuter, c'est bien çà ?

Exactement. Mais ça pourrait s’étoffer en qui n'exécute pas une certaine macro ou bien une macro d'une série de macros dont les noms commencent par certains caractères etc.

Microsoft 365 Supprimer certaines formes personnalisées

pat66

XLDnaute Impliqué

Dranreb

Dranreb

XLDnaute Barbatruc

Discussions similaires