VBA - Formes et suppression conditionnelle

DoubleZero · 30 Juin 2016

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 · 30 Juin 2016

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 · 30 Juin 2016

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 · 30 Juin 2016

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

DoubleZero · 30 Juin 2016

Re : VBA - Formes et suppression conditionnelle

Re-bonjour,

thebenoit59 à dit:
Je ne suis pas certain d'avoir compris la demande...

La demande est parfaitement comprise.

Grand BRAV et grs MERCI, thebenoit59 !

A bientôt

VBA - Formes et suppression conditionnelle

DoubleZero

XLDnaute Barbatruc

Pièces jointes

thebenoit59

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc

thebenoit59

XLDnaute Accro

DoubleZero

XLDnaute Barbatruc