Problème code VBA

Bonjour

J'ai beau cherché un moyen pour faire fonctionner le code ci-bas sur Excel mais je ne trouve pas comment .

Je me remets à vous pour m'aider .

L'idée est de faire apparaître un rectangle avec des boutons quand on clique sur l'icone " Button1"

Pourriez vous m'aider SVP

‘……… Settings Menu Button …………………………….

Sub Change_Settings_Menu_Visibility()

With ActiveSheet

    If .Shapes(“Settings_Button”).Fill.Transparency = 1# Then

        ‘Visibility Settings Button

        .Shapes(“Settings_Button”).Fill.Transparency = 0#

        ‘Visibility Settings Menu

        .Shapes(“Settings_Menu_Frame”).Visible = True  

        .Shapes(“Theme_Button_1”).Visible = True      

        .Shapes(“Theme_Button_2”).Visible = True    

        .Shapes(“Theme_Button_3”).Visible = True  

        .Shapes(“Theme_Button_4”).Visible = True      

    Else

        ‘Visibility Settings Button    

        .Shapes(“Settings_Button”).Fill.Transparency = 1#

        ‘Visibility Settings Menu

        .Shapes(“Settings_Menu_Frame”).Visible = False

        .Shapes(“Theme_Button_1”).Visible = False

        .Shapes(“Theme_Button_2”).Visible = False

        .Shapes(“Theme_Button_3”).Visible = False

        .Shapes(“Theme_Button_4”).Visible = False

    End If

End With

End Sub

Bonjour,

Utilise les balises </> présentes au dessus du rectangle de réponse pour plus de lisibilité, et indente bien ton code.

Sans fichier, je doute que tu puisses obtenir une réponse ...