Supprimer un bouton sur toutes les feuilles

Question

Comme le titre l'indique j'aimerai, via macro que je lierai à un bouton, pouvoir supprimer un bouton présent sur mes 100ènes de feuilles d'un simple clique. Ce bouton ce nome "BoutonSuivant" sur toutes les feuilles. J'imagine que cela est faisable mais je n'ai pas réussi à le faire via l'enregistreur de macro ou en sélectionnant toutes les feuilles... J'espère donc pouvoir trouver de l'aide auprès de vous. Dans l'attente, je vous souhaite une bonne soirée. Amicalement, Zayx...

MFerrand · Accepted Answer

Re,

Il n'est pas indiqué s'il s'agit d'un ActiveX... donc, cas d'un bouton de formulaire ou forme quelconque.

Cas 1 : le nom est "BoutonSuivant" :

Sub Test1()
    Dim ws As Worksheet
    On Error Resume Next
    For Each ws In ThisWorkbook.Worksheets
        ws.Shapes("BoutonSuivant").Delete
    Next ws
End Sub

Cas 2 : le libellé est "BoutonSuivant" :

Sub Test2()
    Dim ws As Worksheet, shp As Shape
    On Error Resume Next
    For Each ws In ThisWorkbook.Worksheets
        For Each shp In ws.Shapes
            If shp.TextFrame.Characters.Text = "BoutonSuivant" Then
                shp.Delete: Exit For
            End If
        Next shp
    Next ws
End Sub

Cordialement.

MFerrand · Answer

Ne pas confondre nom du bouton et son libellé ! Es-tu sûr que tu as le même nom de bouton sur toutes les feuilles ? Il faudrait que tu aies toi-même changé le nom après création ! Cordialement...