Supprimer tous les boutons sauf un

DoubleZero

XLDnaute Barbatruc

• 19 Février 2015

• #2

Re : Supprimer tous les boutons sauf un

Bonjour, maval, le Forum,

Peut-être ainsi ?

Code:

Option Explicit
Sub Boutons_supprimer_tous_sauf_toto()
    Dim s As Object
    For Each s In ActiveSheet.Shapes
        If s.Name <> "dudu" Then s.Delete
    Next
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 19 Février 2015

• #3

Re : Supprimer tous les boutons sauf un

Bonjour doubleZero,

Je te remercie mais j'ai des Schappes qui ne faut pas les supprimer je ne veut supprimer que les boutons sortie du contrôle formulaire

A bientôt

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 19 Février 2015

• #4

Re : Supprimer tous les boutons sauf un

Re-bonjour,

Dans ce cas, peut-être comme suit :

Code:

Option Explicit
Sub Contrôles_ActiveX_supprimer_tous_sauf_toto()
    Dim s As Object
    For Each s In ActiveSheet.OLEObjects
        If s.Name <> "dudu" Then s.Delete
    Next
End Sub

A bientôt 🙂

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 19 Février 2015

• #5

Re : Supprimer tous les boutons sauf un

Bonjour 00, Maval ,

Tu nous fourni un code qui n'a pas grand chose à voir avec le demandé ,

Par contre, comment ce nomme tes boutons , comment les as tu construit , cela serait bien plus interessant .

un petit fichier avec un ou 2 boutons créés à l'identique de ton vrai fichier serait un gros plus pour avoir une réponse efficace .

Car 00 a beau en user ces sabots , elle ne peut pas tout deviner non plus même si sa boule de cristal est trés performante.

@ 00 : if xdl.name ="camarchepas" then msgbox "Trop jeune pour être supprimé , lol"

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 19 Février 2015

• #6

Re : Supprimer tous les boutons sauf un

Re-bonjour, bonjour, camarchepas 😀,

camarchepas à dit:

...un petit fichier avec un ou 2 boutons créés à l'identique de ton vrai fichier serait un gros plus pour avoir une réponse efficace .

Car 00 a beau en user ces sabots , elle ne peut pas tout deviner non plus même si sa boule de cristal est trés performante...

Cliquez pour agrandir...

@ camarchepas,

Je t'applaudis de mes quatre sabots 😉

A bientôt 🙂🙂

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Février 2015

• #7

Re : Supprimer tous les boutons sauf un

Bonjour maval, DoubleZero, camarchepas,

Voyez cette solution sur l'autre fil :

https://www.excel-downloads.com/threads/enregistrer-deux-onglets-sur-dix.229116/

A+

 

Vote positif 0 Vote négatif