Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA - Formes et suppression conditionnelle

  • Initiateur de la discussion Initiateur de la discussion DoubleZero
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

DoubleZero

XLDnaute Barbatruc
Bonjour à toutes et à tous,

Dans le fichier joint, en "Feuil1", se trouvent quelque vingt formes nommées "toto".

Chacune d'elles permet d'appeler la même macro.

Afin de n'en conserver qu'une, je sais les renommer en "toto1", toto2"..., pour ne préserver, par la suite, que "toto1" qui s'appellera, à nouveau, "toto".

Peut-être existe-t-il un moyen d'agir autrement.

Je vous remercie pour votre aide.

A bientôt 🙂
 

Pièces jointes

Re : VBA - Formes et suppression conditionnelle

Je ne suis pas certain d'avoir compris la demande, mais je poste tout de même.

Code:
Sub Suppression_Formes()
Dim c As Object, i%
    i = 1
    For Each c In Sheets(1).Shapes
        If c.Name = "toto" And i > 1 Then c.Delete
        i = i + 1
    Next c
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…