menu déroulantRésolu

Question

Associer un menu déroulant à plusieurs feuilles

Message :
Je voudrai savoir comment à partir d'une liste déroulante placée sur le feuille 1 d'un classeur excel, on peut aller à une autre feuille. 
en réalité, je veux que dans le liste déroulante il y ait plusieurs opérations et quand on selectionne une opération on va sur la page de l'opération(ex: si je sélectionne echange visseuse on va sur la page mvt moyen process (echange visseuse  étant la feuille mvt moyen process du classeur) 
Merci beaucoup pour votre aide car c'est super urgent !!! 

Private Sub Worksheet_Change(ByVal Target As Range) 

    On Error GoTo ErrorHandler 
    On Error GoTo 0 
    On Error Resume Next 

    If Target.Column = 8 Then 
        If Target.Value > 67000 Then 
            Sheets("Saisie").Select 
            Application.Goto Reference:="R65536C1" 
            Selection.End(xlUp).Select 
            Ligne = ActiveCell.Row 
            While Ligne > 1 
                Valeur = Worksheets("Saisie").Range("H" & Ligne) 
                If Valeur = "Echange visseuse" Then 
                    Sheets("MVT MOYEN PROCESS").Select 
                     
                End If 
           
             
                    Valeur = Worksheets("Saisie").Range("H" & Ligne) 
                    If Valeur = "changement couple" Then 
                    Sheets("DEMANDE CHANGEMENT COUPLE  ").Select 
                     
                    End If 
                   
           
           
                    Valeur = Worksheets("Saisie").Range("H" & Ligne) 
                    If Valeur = "changement criticite" Then 
                    Sheets("DEMANDE CHANGEMENT de CRITICITE").Select 
                     
                    End If 
                 
             
                    Valeur = Worksheets("Saisie").Range("H" & Ligne) 
                    If Valeur = "Preparation outil" Then 
                    Sheets("DEMANDE DE PREPARATION VISSEUSE").Select 
                     
                End If 
                 
                Ligne = Ligne - 1 
           
           
          Wend 
        End If 
    End If 
     
ErrorHandler: 
    If Err.Number <> 13 Then Resume 

End Sub 

Par contre le^programme ne fonctionne pas 

Voici une partie de mon programme

jrivet · Accepted Answer

Bien le bonjour à toi aussi

Utilise l'événement Click de la liste et utilise la méthode Select de l'objet Sheet Souhaité

ou alors j'ai pas compris le problème

@+: Ju£i?n
Pensez: Réponse acceptée

Menu déroulant

1 réponse

Votre réponse

Discussions similaires