Créer un lien entre menu déroulant et plusieurs feuilles excel

mounirt82 Messages postés 2 Date d'inscription mardi 15 avril 2008 Statut Membre Dernière intervention 17 avril 2008 - 17 avril 2008 à 11:42
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 17 avril 2008 à 15:54
Sujet : 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

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
17 avril 2008 à 15:54
Salut,
Ne le prends pas mal mais
<ol><li>[reglement.aspx Voir le règlement de CodeS-SourceS]</li><li>Si ton sujet n'est pas résolu il ne SERT A RIEN D'APPUYER SUR Réponse acceptée dans l'autre post. [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_MULTIMEDIA_246.aspx Multimédia] / [infomsgt_DIRECTX_248.aspx DirectX] / [infomsg_MENU-DEROULANT_1112876.aspx#1 menu déroulant]</li><li>Tu noteras que ton problème n'a RIEN a voir avec [infomsgt_MULTIMEDIA_246.aspx Multimédia] / [infomsgt_DIRECTX_248.aspx DirectX]</li><li>Il faut prendre conscience que ceux qui répondent sur le forum NE SONT PAS FORCEMENT Scotché devant leur PC il est possible voir souhaitable qu'ils AIENT UN TRAVAIL. donc quand tu postes sur un forum tu dois avoir de la PATIENCE. Si tu n'en as pas assez pour attendre utilises Google et décrouilles toi. le travail ira toujours plus vite si tu ne compte pas sur les autres pour résoudre tes problème</li><li>Merci de plus m'envoyer de MP (message privé) surtout 2 dans la meme journée.</li><li>Copie des MP recus (tu noteras que envoyer un MP et REPOSTER une question c'est limite)</li></ol><hr size= "2" width="100%" />
Message envoyé par [auteur/MOUNIRT82/1370490.aspx mounirt82]le 17/04/2008 11:49:45
Sujet : menu déroulant

Message :

t'entends quoi par select de l'objet sheet

<hr size ="2" width= "100%" />

Message envoyé par [auteur/MOUNIRT82/1370490.aspx mounirt82] le 17/04/2008 15:36:32

Sujet : menu déroulant + lien onglet

"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

Au faite j'ai un menu déroulant composé de plusieurs paramètres qui
sont les suivants:echange visseuse, préparation outil, changement
couple, changement criticité, controle et pret. Sur le meme fichier
excel j'ai 4 onglets qui correspondent à mvt moyen process prépartion
outil...

Ce fichier sera utilisé par différentes personnes et je veux que
quand une personne va renseigner le fichier et qu'elle va à la colonne
h la j'ai intégrer un menu déroulant et quand la personne sélectionne
par ex échange visseuse automatiquement elle le renvoie à l'onglet mvt
process qui est dans le meme fichier mais pas dans la meme feuille.

Merci de ton aide car sa fait une semaine que je suis dessus et toujours rien
"

<hr size ="2" width="100%" />@+: Ju£i?n
Pensez: Réponse
Rejoignez-nous