VBA - Formes et suppression conditionnelle

[DoubleZero]

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

 

[thebenoit59]

Re : VBA - Formes et suppression conditionnelle

Bonjour DoubleZero.

La forme à conserver est décidée à l'avance ou cela n'a pas d'importance ?

 

[DoubleZero]

Re : VBA - Formes et suppression conditionnelle

Re-bonjour,

Merci, thebenoit59 , de me venir en aide.

La forme n'a aucune importance.

A bientôt

 

[thebenoit59]

Re : VBA - Formes et suppression conditionnelle

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

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

 

[DoubleZero]

Re : VBA - Formes et suppression conditionnelle

Re-bonjour,

Je ne suis pas certain d'avoir compris la demande...

La demande est parfaitement comprise.

Grand BRAV et grs MERCI, thebenoit59 !

A bientôt