Autres (RESOLU)Masquer / Afficher des boutons par clic

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2022

• #2

Bonjour Chaelie,
Une solution simple parmi d'autres :

VB:

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

 

Pièces jointes

• CHARLIE Masquer afficher boutons.xlsm

  14.5 KB · Affichages: 2

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 25 Septembre 2022

• #3

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

 

Vote positif 0 Vote négatif

Wayki

XLDnaute Impliqué

• 25 Septembre 2022

• #4

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

 

Pièces jointes

• CHARLIE Masquer afficher boutons.xlsm

  29.7 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2022

• #5

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

VB:

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

 

Pièces jointes

• CHARLIE Masquer afficher boutons V2.xlsm

  15.2 KB · Affichages: 3

Vote positif 0 Vote négatif

Solution

TooFatBoy

XLDnaute Barbatruc

• 25 Septembre 2022

• #6

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.

 

Pièces jointes

• CHARLIE-Masquer-afficher-boutons_(TooFatBoy-v1).xlsm

  34 KB · Affichages: 3

Dernière édition: 25 Septembre 2022

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2022

• #7

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.

Cliquez pour agrandir...

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.

VB:

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

 

Pièces jointes

• CHARLIE Masquer afficher boutons V3.xlsm

  15.4 KB · Affichages: 4

Vote positif 1 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 25 Septembre 2022

• #8

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

​

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 25 Septembre 2022

• #9

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.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 25 Septembre 2022

• #10

OK, c'est parfaitement clair. Merci !

 

Vote positif 0 Vote négatif