Discussion :

[myk636]

Bonjour à tous et merci pour le forum.

je cherche à créer un seul bouton "Aide" avec une forme simple contenant un "?"
Ce que je souhaite c'est lorsque je clic dessus la 1ère fois le bouton devienne jaune et tous les commentaires de la feuille s'affichent
Si je clic une nouvelle fois sur ce même bouton il redevient noir et les commentaires se masquent
Je n'arrive pas à afficher ou masquer tous les commentaire d'un seul coup sinon cela me met une erreur..
Voici où j'en suis pour l'instant et en fouillant les forums j'ai toujours pas trouvé mon bonheur :

Pour afficher :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub comment()
Range("v5").comment.Visible = True
End Sub

Pour masquer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub comment()
Range("v5").comment.Visible = False
End Sub

et bien évidement si je clic de nouveau je veux que cela recommence du départ

Merci pour votre aide

Bonne journée

[Philippe Tulliez]

Bonjour,
Tu ne précises pas où tu veux placer ce bouton.
En attendant ta réponse, il existe le contrôle ToggleButton comme ActiveX à placer sur la feuille ou dans un UserForm
Tu peux également utiliser une procédure événementielle qui inverse la valeur booléenne de la propriété Visible de Comment

[myk636]

Je veux simplement faire une forme dans une feuille. Mais le changement de couleur est optionnel c'est surtout le 1er clic une action et le second clic une autre puis au 3eme clic on recommence comme pour le 1er...qui m'intéresse
Je ne maîtrise pas du tout les fonctions dont tu parles mais merci de t'intéresser à mon problème
Bonne soirée

[Philippe Tulliez]

Bonjour,
Voici un exemple qui affiche et masque le commentaire de la cellule v5 de la feuille où se trouve la forme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Ellipse1_Cliquer()
  With Range("v5").Comment
  .Visible = Not (.Visible)
  End With
End Sub

Not(True) renvoie False et Not(False) renvoie True

[myk636]

C'est génial...!
ça marche super bien ..merci beaucoup pour ton aide
Je vais garder ma forme jaune ça ira bien ..

Bonne journée