supprission d'un bouton

[Jelf]

Bonjour à tous les Excelnautes

J'ai un petit souci avec une macro dont voici le détail :

Sub Couper()
'
' Couper Macro
' Macro enregistrée le 03/05/2007
'
ActiveSheet.Shapes("Button 6").Select
Selection.Cut
End Sub
Je dois supprimer le "Button 6", contenant le text suivant :ARCHIVE.
Est-il possible de spécifier dans la macro, qu'elle supprime le bouton contenant le text "ARCHIVE".

Merci d'avance

Jelf

 

[Pierrot93]

Re : supprission d'un bouton

Bonjour Jelf

essaye peut être le code ci dessous :

Sub test()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
    If sh.AlternativeText = "ARCHIVER" Then sh.Delete
Next sh
End Sub

bonne journée
@+

 

[Jelf]

Re : supprission d'un bouton

Re bonjour Pierrot93

Merci pour ta solution, elle convient parfaitement.

A+

Jelf