ActiveSheet.Shapes

Le
Flac
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #17636761
bonjour Flac,

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




Flac
Le #17636781
Merci

Salutations


Flac


"isabelle" a écrit dans le message de news:
%
bonjour Flac,

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
Le #17639361
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"
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
Le #17645271
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"
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


Publicité
Poster une réponse
Anonyme