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

cs_oleronnais Messages postés 12 Date d'inscription lundi 24 octobre 2005 Statut Membre Dernière intervention 20 mai 2011 - 28 janv. 2010 à 12:31
cs_oleronnais Messages postés 12 Date d'inscription lundi 24 octobre 2005 Statut Membre Dernière intervention 20 mai 2011 - 28 janv. 2010 à 13:38
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’un utilisateur"
ComboBox1.AddItem "Configuration d’un utilisateur"
ComboBox1.AddItem "Utilisation du clavier ."
ComboBox1.AddItem "Notice technique du clavier "


End Sub

2 réponses

cs_oleronnais Messages postés 12 Date d'inscription lundi 24 octobre 2005 Statut Membre Dernière intervention 20 mai 2011
28 janv. 2010 à 13:38
j'ai réussi a écrire ceci mais plus de choix dans ma liste déroulante

aie aie!!!
0
cs_oleronnais Messages postés 12 Date d'inscription lundi 24 octobre 2005 Statut Membre Dernière intervention 20 mai 2011
28 janv. 2010 à 13:38
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’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’un utilisateur"
ComboBox1.AddItem "Utilisation du clavier ACIE."
ComboBox1.AddItem "Notice technique du clavier ACIE"


End Sub
0