ouvrir userform suivant couleur du rectangle

[Mimi]

Bonjour à tout le forum,
Quand je clique sur le rectangle bleu la couleur devient bordeaux et va en feuille T1 ouvre un userform
Jusque là tout va bien.
Je souhaiterais que lorsque je revient sur la feuille 1 la couleur est forcément bordeaux et quand je clique une
deuxième fois dessus (couleur bordeaux) il ne m'ouvre pas l'userform3.
L'userform s'ouvre lorsque le rectangle est bleu.
D'avance merci
Mimi

 

[pierrejean]

Re : ouvrir userform suivant couleur du rectangle

Bonjour Mimi

Vois si cela te convient

 

[laetitia90]

Re : ouvrir userform suivant couleur du rectangle

bonjour mimi 🙂, Pierre jean 🙂
peut être passer par un commandbutton (active x) bien plus facile a coder

exemple basique

Private Sub CommandButton1_Click()
With CommandButton1
  If .BackColor = &H40C0& Then Exit Sub
  If .BackColor = &HC0C000 Then
  .BackColor = &H40C0&
   Sheets("T1").Select
  UserForm3.Show
  End If
End With
End Sub

Sub es()
CommandButton1.BackColor = &HC0C000
End Sub

 

[Mimi]

Re : ouvrir userform suivant couleur du rectangle

bonjour PierreJean, Laétitia,
Est-il possible de pouvoir, quand le rectangle est en bordeaux, de passer a la feuille T1 en cliquant dessus sans que l'userform3 s'ouvre.
L'userform s'ouvre que lorsque le rectangle est en bleu.
Merci
Mimi

 

[pierrejean]

Re : ouvrir userform suivant couleur du rectangle

Re

Voila est-ce ok ?

 

[Mimi]

Re : ouvrir userform suivant couleur du rectangle

Re
Merci beaucoup pierrejean de ton aide, la macro marche très bien
Encore Merci
Michel