Menu déroulant

Résolu
Signaler
Messages postés
2
Date d'inscription
mardi 15 avril 2008
Statut
Membre
Dernière intervention
17 avril 2008
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
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

1 réponse

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
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