Créer un bouton type "voyant rouge - vert"

Bonjour !

Je souhaiterais créer un bouton qui puisse devenir rouge ou vert lorsque j'appuie dessus.

Je sais comment faire cela avec des images, mais l'idée étant que lorsque je fais un copier-coller de ce bouton, je ne sois pas contraint de rectifier les macro en fonction du nom des images...

Ce voyant "intéractif" par une simple pression de souris me servirait à statuer rapidement sur l'opérationnalité de tel ou tel équipement.

Merci pour votre aide.

Bonjour

a mettre dans ta macro

A+

Maurice

If ActiveSheet.Shapes.Range(Array("Oval 4")).Fill.ForeColor.RGB = RGB(0, 176, 80) Then
    ActiveSheet.Shapes.Range(Array("Oval 4")).Fill.ForeColor.RGB = RGB(255, 0, 0)
 Else
    ActiveSheet.Shapes.Range(Array("Oval 4")).Fill.ForeColor.RGB = RGB(0, 176, 80)
End If

Bonsoir,

Une autre approche, avec simplement un "symbole" inséré dans la colonne à gauche du nom de l'équipement.

Un double-clic dans la cellule contenant ce symbole fait passer la couleur de police de rouge à vert et inversement.

... tu verras bien si ça te convient

Merci à vous deux, les deux approches sont intéressantes.

Je garde quand même celle d'archer, cela correspond plus à mon besoin.

Néanmoins, celle de U.Milité est intéressante, je l'a mets de côté ! Je sens qu'elle va me servir.

Merci en tous les cas !