faire un clic de souris pour aller à une diapo précise

Question

bonjour

grâce à vos aides, j'ai pu créer ma liste déroulante,par contre je ne trouve pas comment écrire la fonction qui me permet de capturer le click de souris et m'emmener directement sur la bonne diapo...

oui...cela doit être très basique...mais l'archi débutant que je suis.....sèche...

merci de votre support




Private Sub ComboBox1_Click()

End Sub

Private Sub ComboBox1_DropButtonClick()
ComboBox1.AddItem "Câblage du xxx."
ComboBox1.AddItem "Câblage du xxxx"
ComboBox1.AddItem "Adressage du xxxx."
ComboBox1.AddItem "Mise à jour fichiers internes. "
ComboBox1.AddItem "Définition des fichiers."
ComboBox1.AddItem "Configuration d&#8217;un utilisateur"
ComboBox1.AddItem "Configuration d&#8217;un utilisateur"
ComboBox1.AddItem "Utilisation du clavier ."
ComboBox1.AddItem "Notice technique du clavier "


End Sub

cs_oleronnais · Answer

j'ai réussi a écrire ceci mais plus de choix dans ma liste déroulante

aie aie!!!

cs_oleronnais · Answer

Private Sub ComboBox1_Click()
 
Select Case Me.ComboBox1.Value
        Case "Câblage du MIL 100 MIFARE."
            SlideShowWindows(1).View.GotoSlide 2
        Case "Câblage du MIL 100 Clock & Data."
            SlideShowWindows(1).View.GotoSlide 3
        Case "Adressage du MIL 100."
            SlideShowWindows(1).View.GotoSlide 4
        Case "Définition des fichiers."
            SlideShowWindows(1).View.GotoSlide 5
        Case "Configuration d&#8217;un utilisateur"
            SlideShowWindows(1).View.GotoSlide 6
        Case "Utilisation du clavier ACIE."
            SlideShowWindows(1).View.GotoSlide 7
        Case "Notice technique du clavier ACIE"
            SlideShowWindows(1).View.GotoSlide 8
            
    
    End Select
 
End Sub
 
Private Sub ComboBox1_DropButtonClick()
 
      Me.ComboBox1.Clear
        ComboBox1.AddItem "Câblage du MIL 100 MIFARE."
        ComboBox1.AddItem "Câblage du MIL 100 Clock & Data."
        ComboBox1.AddItem "Adressage du MIL 100."
        ComboBox1.AddItem "Mise à jour fichiers internes."
        ComboBox1.AddItem "Définition des fichiers."
        ComboBox1.AddItem "Configuration d&#8217;un utilisateur"
        ComboBox1.AddItem "Utilisation du clavier ACIE."
        ComboBox1.AddItem "Notice technique du clavier ACIE"
 
 
End Sub

Faire un clic de souris pour aller à une diapo précise

2 réponses

Votre réponse

Discussions similaires