XL 2019 créer un bouton à bascule afficher / masquer une note

[Yann71]

Bonjour le forum.
Je bute sur quelque chose pourtant me semble-t-il simple, mais voila.
Dans mon fichier j'ai des notes sur certaines cellules, j'ai trouvé la solution pour pouvoir afficher ou masquer à l'aide d'un code.
Mon problème arrive dans le fait que je cherche à incorporer ces 2 codes dans un bouton à bascule Toggle Button.

 

[riton00]

Bonsoir,

Un essai

Slts

 

[Yann71]

Bonsoir,

Un essai

Slts

Bonsoir riton00 quel belle essai tu vas droit au but avec ton fichier. C'est ce que je recherchai. Je te remercie, bonne soirée

 

[Fred0o]

Bonjour Yann71, riton00

@Yann71 : Rhoooo ! C'est pas bien de poster plusieurs fils pour le meme sujet !

https://www.excel-downloads.com/threads/utilisation-de-plusieurs-togglebutton.20055410/

Bonsoir le forum.
J'ai un fichier ou se trouve 2 cellules avec des notes. J'ai un ToggleButton qui affiche ou masque la note d'une cellule
Mon soucis c'est que si je souhaite ajouter un 2ème ToggleButton pour afficher et masquer une note d'une autre cellule cela ne fonctionne pas.
Je vais devoir utiliser environ 30 ToggleButton est-ce que cela peut poser problème ou pas.

 

[Yann71]

Bonjour Yann71, riton00

@Yann71 : Rhoooo ! C'est pas bien de poster plusieurs fils pour le meme sujet !

https://www.excel-downloads.com/threads/utilisation-de-plusieurs-togglebutton.20055410/

Bonjour Reed0o, excuse moi mais je pensais bien faire en dissociant les 2 sujets. Ils parlent bien tous deux de Toggle Button dans un sujet proche mais néanmoins la demande reste quelque peut différente. Je pense que le fait d'avoir dissocié ces 2 discussions peuvent aider les internautes lors d'une recherche spécifique concernant ce sujet. Bonne journée et merci toutefois pour ton intervention, je ferai de mon mieux pour suivre cette ligne de conduite.

 

[Paraiso]

Bonsoir,

Un essai

Slts

Bonjour, mon niveau est très bas. Comment peut-on appliquer ce bouton à toute une selection de cellules ? ( exemple : de B1 à F20
Par avance merci

 

[job75]

Bonjour Paraiso, bienvenue sur XLD,

Tout dépend de ce que vous voulez faire sur les cellules B1 à F20

Joignez un fichier avec les résultats à obtenir pour chacune des 2 valeurs du ToggleButton.

A+

 

[Paraiso]

Je souhaiterai afficher ou masquer avec leToggleButton, toutes les notes (exemple A, B, C) des cellules de tout le tableau et pas seulement la note B de la cellule D11

 

[Deadpool_CC]

Bonjour,
pour les gérer tous en même temps : pourquoi faire un bouton quand la fonction "toggle" existe dans le ruban ?

 

[job75]

Bonjour Deadpool_CC,

En effet le ToggleButton est nécessaire seulement si on veut traiter une plage déterminée :

Private Sub ToggleButton1_Click()
Dim c As Range
For Each c In [B1:F20]
    If Not c.Comment Is Nothing Then c.Comment.Visible = ToggleButton1
Next
End Sub

A+