Renvois de feuille en fonction de deux éléments

Bonjour,

Je sollicite votre aide car j'aimerai pouvoir activer une macro en fonction de deux éléments.

J'aimerais que lorsqu'une valeur est choisit (ici NI ou NC) lorsque l'on clic sur le rectangle 30 nous nous rendions soit sur la feuille "NI 1" ou "NC 1".

J'ai écrit ces lignes mais ça ne fonctionne pas ..

"Sub Rectangle30_Clic()

formule = Feuil1.[D10]

Select Case formule

Case formule = "NI"

Sheets("NI 1").Select

Case formule = "NC"

Sheets("NC 1").Select

End Select

End Sub

"

Pouvez-vous m'aider ?

Cordialement

Bonjour,

Essaie comme cela

Sub Rectangle30_Clic()
Dim Formule As String
    Formule = Feuil1.[D10]
    Select Case Formule
        Case "NI"
            Sheets("NI 1").Select
        Case "NC"
            Sheets("NC 1").Select
    End Select
End Sub

A+

Super !

Merci beaucoup

Re bonjour...

Sub Rectangle30_Clic()
Sheets(Feuil1.[h9].Value).Activate
End Sub

Cela va activer la feuille qui porte le nom de la cellule H9, puis idem pour les deux autres transfos (J & l)