Sub DétruitCommandButton() For Each shp In ActiveSheet.Shapes If Left(shp.Name, 13) = "CommandButton" Then shp.Delete Next End Sub
isabelle
Flac a écrit :
Bonjour à tous, Excel 2000 Je cherche une macro qui pourrait effacer les boutons d'une feuille, du genre:
Sun efface() if j'ai des CammandButton dans cette feuille, efface-les activesheet.shapes(tous les "CommandButton").Delete End if End Sub
Merci
Flac
michdenis
Tu pourrais aussi utiliser quelque chose comme :
'----------------------------- Sub test() Dim Sh As Shape On Error Resume Next With Feuil1 For Each Sh In .Shapes Select Case TypeName(Sh.OLEFormat.Object.Object) Case "CommandButton" Sh.Delete End Select Next End With End Sub '-----------------------------
"Flac" a écrit dans le message de news:
Bonjour à tous, Excel 2000 Je cherche une macro qui pourrait effacer les boutons d'une feuille, du genre:
Sun efface() if j'ai des CammandButton dans cette feuille, efface-les activesheet.shapes(tous les "CommandButton").Delete End if End Sub
Merci
Flac
Tu pourrais aussi utiliser quelque chose comme :
'-----------------------------
Sub test()
Dim Sh As Shape
On Error Resume Next
With Feuil1
For Each Sh In .Shapes
Select Case TypeName(Sh.OLEFormat.Object.Object)
Case "CommandButton"
Sh.Delete
End Select
Next
End With
End Sub
'-----------------------------
"Flac" <luc_bt@hotmail.com> a écrit dans le message de news:
e11pz7iNJHA.5024@TK2MSFTNGP02.phx.gbl...
Bonjour à tous,
Excel 2000
Je cherche une macro qui pourrait effacer les boutons
d'une feuille, du genre:
Sun efface()
if j'ai des CammandButton dans cette feuille, efface-les
activesheet.shapes(tous les "CommandButton").Delete
End if
End Sub
'----------------------------- Sub test() Dim Sh As Shape On Error Resume Next With Feuil1 For Each Sh In .Shapes Select Case TypeName(Sh.OLEFormat.Object.Object) Case "CommandButton" Sh.Delete End Select Next End With End Sub '-----------------------------
"Flac" a écrit dans le message de news:
Bonjour à tous, Excel 2000 Je cherche une macro qui pourrait effacer les boutons d'une feuille, du genre:
Sun efface() if j'ai des CammandButton dans cette feuille, efface-les activesheet.shapes(tous les "CommandButton").Delete End if End Sub
Merci
Flac
JB
Bonjour,
For Each c In ActiveSheet.OLEObjects If TypeName(c.Object) = "CommandButton" Then c.Delete Next c
JB http://boisgontierjacques.free.fr/
On 25 oct, 00:19, "Flac" wrote:
Bonjour à tous, Excel 2000 Je cherche une macro qui pourrait effacer les boutons d'une feuille, du genre:
Sun efface() if j'ai des CammandButton dans cette feuille, efface-les activesheet.shapes(tous les "CommandButton").Delete End if End Sub
Merci
Flac
Bonjour,
For Each c In ActiveSheet.OLEObjects
If TypeName(c.Object) = "CommandButton" Then c.Delete
Next c
JB
http://boisgontierjacques.free.fr/
On 25 oct, 00:19, "Flac" <luc...@hotmail.com> wrote:
Bonjour à tous,
Excel 2000
Je cherche une macro qui pourrait effacer les boutons
d'une feuille, du genre:
Sun efface()
if j'ai des CammandButton dans cette feuille, efface-les
activesheet.shapes(tous les "CommandButton").Delete
End if
End Sub