Autres (RESOLU)Masquer / Afficher des boutons par clic

[chaelie2015]

Bonjour Forum
Mon souci est :
quand je clic sur le bouton "Effacer" alors afficher le bouton "Valider" et masquer le bouton "Effacer" et vis versa.
Merci

 

[sylvanu]

Bonjour Chaelie,
Une solution simple parmi d'autres :

Sub ONOFF_Effacer()
    ActiveSheet.Shapes("Groupe 1").Visible = False
    ActiveSheet.Shapes("Groupe 5").Visible = True
End Sub
Sub ONOFF_Valider()
    ActiveSheet.Shapes("Groupe 1").Visible = True
    ActiveSheet.Shapes("Groupe 5").Visible = False
End Sub

 

[chaelie2015]

Bonjour sylvanu
Fantastic , merci pour la réponse.
A+

 

[Wayki]

Bonjour le fil,
Ci-joint y plaçant de vrais boutons.
A +

 

[sylvanu]

Re,
Ou avec un seul bouton.
Permet d'avoir deux macros distinctes pour traiter les actions Valider et Effacer, avec :

Sub Appui_Bouton()
    Nom = Application.Caller
    With ActiveSheet.Shapes(Nom)
        If .TextFrame.Characters.Text = "Valider" Then
            .Fill.ForeColor.RGB = RGB(110, 170, 70)
            .TextFrame.Characters.Text = "Effacer"
            Macro_Valider
        Else
            .Fill.ForeColor.RGB = RGB(240, 120, 50)
            .TextFrame.Characters.Text = "Valider"
            Macro_Effacer
        End If
    End With
End Sub

 

[TooFatBoy]

Bonjour,

Tant qu'on y est, je propose un mélange de #2 et #4 en pièce jointe.


Le classeur de #5 de sylvanu me semble parfait.
Ceci dit, je viens de constater un truc bizarre chez moi, et vu que je ne sais pas comment on crée un joli bouton comme tu as fait avec le rond et le texte, du coup je ne sais pas si ce comportement est normal ou pas : quand je clique sur le rond, j'ai la première lettre qui apparait dans le rond et l'intérieur du rond qui change de couleur.

 

[sylvanu]

Re,
TooFatBoy a dit :

Ceci dit, je viens de constater un truc bizarre chez moi, et vu que je ne sais pas comment on crée un joli bouton comme tu as fait avec le rond et le texte, du coup je ne sais pas si ce comportement est normal ou pas : quand je clique sur le rond, j'ai la première lettre qui apparait dans le rond et l'intérieur du rond qui change de couleur.

Du au fait qua application.caller renvoie le nom du shape et non le nom du groupe.
Donc obligé de référencer en dur le nom du shape, ce que je voulais éviter.

Sub Appui_Bouton()
    NomRectangle = "Rectangle à coins arrondis 2"
    With ActiveSheet.Shapes(NomRectangle)
        If .TextFrame.Characters.Text = "Valider" Then
            .Fill.ForeColor.RGB = RGB(110, 170, 70)
            .TextFrame.Characters.Text = "Effacer"
            Macro_Valider
        Else
            .Fill.ForeColor.RGB = RGB(240, 120, 50)
            .TextFrame.Characters.Text = "Valider"
            Macro_Effacer
        End If
    End With
End Sub

 

[TooFatBoy]

Je n'ai strictement rien compris, mais je constate que là c'est absolument super hyper parfait !!!

​

 

[sylvanu]

Application.caller renvoie le nom de l'objet sur lequel on a cliqué.
Le "dessin" de Chaelie est construit par deux shapes: un rectangle et un rond. Les deux groupés dans "Groupe15"
Moi, naïvement, je pensais que Application.caller me renverrais "Groupe15".
Que nenni, il renvoie soit "Rectangle..." ou "Ellipse..." donc je ne traitais que le shape donné par application.caller.
Donc si on cliqué sur le rond, j'exécutais la macro sur le rond, et non sur le rectangle.

 

[TooFatBoy]

OK, c'est parfaitement clair. Merci !