Action lors d'un changement sur plusieurs togglebutton

Bonjour à tous,

Novice en vba, j'ai pour projet un "simulateur" se comportant un peu comme un système de "portes" avec des labels changeant de couleurs en fonction de l'état des dites "portes".

Ces portes sont représentées par des togglebuttons en série reliés par les labels.

Par exemple, imaginons 3 portes en série (il y en aura bien plus).

si la porte 1 est fermée alors le label1 est vert

si la porte 1 est ouverte alors le label1 est rouge

si la porte 2 est fermée et que le label1 est vert alors le label2 est vert

si la porte 2 est ouverte et que le label1 est vert alors le labe2 est rouge

si la porte 2 est fermée et que le label2 est rouge alors le label2 est rouge

si la porte 2 est ouverte et que le label2 est rouge alors le label2 est rouge

si la porte 3 est fermée et que le label2 est vert alors le label3 est vert

....

Sachant qu'il y a un grand nombre de possibilité de changements de couleurs en fonction de l'état des "portes", je pensais allégé le code en prenant le problème à l'envers.

Plutôt que de faire ce genre de procédure :

Private Sub A1C2I002_Change()
If (A1C2I002.Value = False) And (A1C2I002.BackColor = &HFF00&) Then
KA1C2I004_I006.BackColor = &HFF00&
End If

If DDE727.Value = False Then
KA1C2I004_I006.BackColor = &HFF&

End If
End Sub

et de vérifier tout les états possible à chaque appuis sur chaque togglebutton, faire en sorte que si il y a un appui sur n'importe quel togglebutton alors, il lance la comparaison des différents états pour mettre ensuite les bonnes valeurs sur les labels.

Quelque chose qui pourrait s'apparenter à ceci :

Private Sub A1C2*_Change()
...
End Sub

J'espère être clair dans mon explication.

Bonne journée

Bonjour et bienvenue sur ce forum

Regardez coté de l'instruction SELECT CASE. Cela devrait vous convenir

Sinon placez un fichier sans données sensibles c'est mieux pour analyser votre souci

Une chose qui n'est vraiment pas parlante ce sont les noms que vous attribuez --> AIC21002, DDE27, etc... ???
Cela complique l'approche et on ne sait pas de quel objet il s'agit

Cordialement

Merci, je vais chercher de ce côté.

Effectivement, les noms choisis me paraissait compréhensif plutôt que les label1, label2 ou togglebutton1… (il y a presque une 50ene de togglebuttons sur le userform et il va y avoir une 30 ene d’userform differents).

Je cherchais donc un « code » en rapport avec le projet pour les retrouver plus facilement dans le code en cas d’erreur ou de modification.

Mais forcément, dans un exemple sur un forum, ce n’est pas top.