Renvois de feuille en fonction de deux éléments Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
m
mboillon
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 7 octobre 2015
Version d'Excel : 2007

Message par mboillon » 8 octobre 2015, 08:56

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
f
frangy
Passionné d'Excel
Passionné d'Excel
Messages : 4'337
Appréciation reçue : 1
Inscrit le : 19 novembre 2012
Version d'Excel : 2007 FR

Message par frangy » 8 octobre 2015, 09:10

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+
m
mboillon
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 7 octobre 2015
Version d'Excel : 2007

Message par mboillon » 8 octobre 2015, 09:13

Super !
Merci beaucoup
Avatar du membre
Machin
Membre dévoué
Membre dévoué
Messages : 517
Inscrit le : 17 septembre 2015
Version d'Excel : 2007fr

Message par Machin » 8 octobre 2015, 09:21

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)
Je suis direct mais juste. Et inversement.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message