Microsoft 365 Supprimer certaines formes personnalisées

piga25

XLDnaute Barbatruc

• 21 Octobre 2024

• #2

Bonjour pat66,
sans fichier exemple pas facile, mais essais avec cela :

VB:

Private Sub Ellipse624_Click()
    Dim Shape As Shape
    Dim ShapeName As String

    ' Liste des formes à conserver
    Dim ShapesToKeep As Variant
    ShapesToKeep = Array("Ellipse 624", "Rectangle : coins arrondis 212", "Rectangle : coins arrondis 213", "Rectangle : coins arrondis 214", "Rectangle : coins arrondis 219")

    For Each Shape In ActiveSheet.Shapes
        ShapeName = Shape.Name
        If Not IsError(Application.Match(ShapeName, ShapesToKeep, 0)) Then
            ' La forme doit être conservée, on passe à la suivante
        Else
            Shape.Delete
        End If
    Next Shape
End Sub

 

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 21 Octobre 2024

• #3

Bonjour

Il existe une icône dans Excel pour afficher le volet des formes qui permet de facilement agir sur celles-ci

L'installer dans la barre de lancement rapide : Volet sélection dans la liste des commandes

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 21 Octobre 2024

• #4

Bonjour piga25,

Merci pour ton aide,
mais malheureusement toutes les formes ont été supprimées y compris celles que je souhaitais conserver

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 21 Octobre 2024

• #5

RE,
Comme dit précédemment avec un fichier exemple c'est mieux.
En attendant avez-vous vérifié cela:

• Nom de la forme: Vérifiez attentivement le nom exact de la forme "Ellipse 624" dans votre feuille. S'il est différent, modifiez-le dans le code.
• Liste des formes à conserver: Adaptez la liste ShapesToKeep en fonction des noms exacts des formes que vous souhaitez conserver.

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 21 Octobre 2024

• #6

re,

j'ai bien vérifié, mais je vous joint le fichier et j'ai du renommé les formes puisque toutes les formes se sont effacées

merci

 

Pièces jointes

• Cellule arrondie.xlsm

  20.2 KB · Affichages: 4

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Octobre 2024

• #7

Bonjour.
Et ceci ?

VB:

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

 

Vote positif 0 Vote négatif

Solution

Phil69970

XLDnaute Barbatruc

• 21 Octobre 2024

• #8

Bonjour à tous

@pat66

Je te propose ce fichier

Merci de ton retour

 

Pièces jointes

• Sup shape V1.xlsm

  16 KB · Affichages: 10

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 21 Octobre 2024

• #9

bonjourPhil69970,

non désolé car toutes les formes disparaissent sauf l'ovale

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 21 Octobre 2024

• #10

re,

j'ai trouvé avec la solution de piga25, il suffit de renommer les formes à conserver en Anglais
Rounded Rectangle au lieu de Rectangle : coins arrondis
et le tour est joué... bizarre mais ca fonctionne

cdt

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 21 Octobre 2024

• #11

@pat66

As tu essayé le fichier !!

Tu penses bien que j'ai testé le fichier avant de le mettre sur le fil !!!
Et bien sur j'ai pas ce que tu me dis!!!!

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 21 Octobre 2024

• #12

re,

eh bien je dois avoir un problème de configuration car je viens de retester ton fichier et cela efface bien toutes les formes sauf "oval 204" et le fait d'avoir réécrit le nom des formes en anglais cela fonctionne

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 21 Octobre 2024

• #13

Bonjour @pat66 , à tous ,

Je ne vois pas comment ce que vous voulez faire peut être efficient avec l'utilisation du nom des formes.
Il suffit de supprimer une forme, de la recréer et son nom aura changé (c'est ce qui vous est d'ailleurs arrivé ). Et les noms attribués par Excel sont d'une taille démesurée et totalement contre-intuitifs.

J'ai pensé à une méthode faisant fi du nom des formes.

Le principe est d'attribuer aux formes à conserver une macro X et ne pas attribuer cette macro X aux autres formes. Ainsi quand on clique sur n'importe quelle forme ayant la macro X affectée, on supprime toutes les formes sauf celles qui ont cette macro X d'affectée. X est la macro de nom "Conserver" dans le code.

Il y a deux autres macros qui servent à gérer tout ça :
La macro : AffecterMacroConserver

• Sélectionner les formes pour lesquelles on veut affecter la macro "Conserver" et lancer la macro
• Ces formes seront conservées quand la macro "Conserver" sera exécutée

La macro : SupprimerMacroConserver

• Sélectionner les formes pour lesquelles on désire ôter l'affectation de la macro "Conserver" et lancer la macro
• Ces formes seront supprimées quand la macro "Conserver" sera exécutée

 

Pièces jointes

• pat66- Suppr Formes sauf- v1.xlsm

  130.6 KB · Affichages: 2

Dernière édition: 21 Octobre 2024

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 21 Octobre 2024

• #14

C'était un peu l'idée générale derrière ma proposition basée très simplement du #7.

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 21 Octobre 2024

• #15

re,

Et bien, je viens enfin de tester la solution de Dranreb du #7, c'est simple, court et efficace, j'ai pas tout compris dans la syntaxe, mais je n'ai pas à nommer les formes dans la macro, je peux ajouter d'autres formes boutons, pour moi, mais c'est parfait !!!!

une précision, cette syntaxe efface les formes qui n'ont pas de macros à exécuter, c'est bien çà ??

un grand merci à tous et à Dranreb en particulier

cdt

 

Vote positif 0 Vote négatif