Afficher masquer rectangle selon liste combo

bonsoir,

j'ai un combobox avec une liste de divers nom dont un qui est "calcul automatique".

Lorsque je choisi "calcul automatique" dans la liste de mon combo, quel est le code pour faire apparaitre un rectangle "rectangle 1", et le masquer lorsque je suis sur les autres noms?

merci

Bonjour,

Un truc dans le genre :

Private Sub ComboBox1_Click()

    If ComboBox1.Text = "calcul automatique" Then

        ActiveSheet.Shapes("rectangle 1").Visible = True

    Else

        ActiveSheet.Shapes("rectangle 1").Visible = False

    End If

End Sub

Hervé.