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

Signaler
Messages postés
12
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
20 mai 2011
-
Messages postés
12
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
20 mai 2011
-
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

Messages postés
12
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
20 mai 2011

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

aie aie!!!
Messages postés
12
Date d'inscription
lundi 24 octobre 2005
Statut
Membre
Dernière intervention
20 mai 2011

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