Discussion :

[e040098k]

Bonjour,

Je cherche un moyen de supprimer tous les boutons de commandes d'une feuille !

Quelqu'un à une idée ?

Merci

[Jean-Philippe André]

bonjour,

tu peux regarder du code ressemblant à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
dim temp as Control
for each temp in ActiveSheet.Controls
if instr(1,temp.name,"button")>1 then
temp.delete
end if
next

[Taillise]

Pour des boutons de formulaires, j'utilise le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveSheet.Shapes.SelectAll
Selection.Delete

Mais il faut que l'autofilter soit désactivé, et les options de list peuvent aussi interférer;

[Bigalo]

Bonsoir,

La collection Controls existe pour un UserForm, pas pour un objet Worksheet !

Cordialement,

[House MD]

Effectivement...

Mais Michel, tu aurais pu leur dire qu'il fallait écrire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
    Dim oControle As Shape
 
    For Each oControle In Feuil1.Shapes
        If oControle.Type = msoFormControl Then
            If oControle.FormControlType = xlCommandButton Then
 
            End If
        End If
    Next oControle
End Sub

A adapter

Merci Pierre Fauconnier.
Merci à JpCheck également d'avoir proposer une solution exactement identique à un code que j'avais envoyé... et qui est faux... mais qui avait l'air malin : One mind.

[Bigalo]

Bonsoir,

Je n’aurais pas pu, car je ne suis pas d’accord

Les boutons de commande insérés à partir de la barre d’outils Formulaires (ou contrôles de formulaires si Excel 2007), ont bien pour type msoFormControl (constante égale à 8), mais ceux qui proviennent de la barre d’outils Contrôles (contrôles ActiveX si Excel 2007) ont pour type msoOLEControlObject (constante égale à 12)

En outre, onpeut très bien utiliser un objet graphque quelconque et lui affecter une macro.

Les boutons que j’utilise en général sont de type 1 et sont comme ceux-ci :



En général, quand je suis l’auteur d’un développement, les boutons sont regroupés sur une page d’accueil qui ne comporte aucun autre objet Shape, et si j’ai besoin de les effacer, je procède comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub EffaceBoutons()
        For Each s In FAccueil.Shapes
            s.Delete
        Next
End Sub

Cordialement,

[SilkyRoad]

bonsoir

si les boutons sont issus de la barre d'outils controles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Obj As OLEObject
 
For Each Obj In ActiveSheet.OLEObjects
    If TypeOf Obj.Object Is MSForms.CommandButton Then _
        Obj.Delete
Next Obj

bon week end
michel