combobox powerpoint

Bonjour Coldlight,

j'aurais aimé savoir comment se réalise une barre défilante sur
powerpoint, je souhaiterais intègrer quatre critère de choix à
celle-ci.

Si tu parles de liste déroulante, je copie/colle une réponse déjà donnée :

Voici un exemple qui permet de changer simplement de diapo. Pour le mettre
en oeuvre :
- dans le masque des diapositives (afin d'avoir la liste sur chaque diapo),
clic droit dans une des barres d'outils | Boîte à outils Contrôles
- sélectionne l'outil "Zone de liste déroulante" et dessine ta liste
- clic droit sur la liste | Visualiser le code
- entre les lignes Private Sub ComboBox1_Change() et End Sub, copie/colle le
code ci-dessous :
If ComboBox1.ListIndex = -1 Then Exit Sub
SlideShowWindows(1).View.GotoSlide ComboBox1.ListIndex + 1

- copie/colle sous le End Sub précédent le code suivant :
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
With ComboBox1
.AddItem "Diapositive 1"
.AddItem "Diapositive 2"
.AddItem "Diapositive 3"
.AddItem "Diapositive 4"
End With
End Sub
- ferme la fenêtre VBE (Visual Basic Editor) et fais un essai en mode
diaporama.
Pour revenir rapidement dans le code, <Alt><F11>.

--
Tisane

Je crois cependant que je me suis mal exprimé du fait que je ne
connais pas ce logiciel.
Il me semblait que la combobox servait à créer une liste qui
permettrait de choisir plusieurs critères.
Je m'explique :
Je souhaite créer un site Internet par Powerpoint pour une entreprise
de chauffage, sanitaire, ventilation et clim.
En dernier diapo, je voudrais permettre aux visiteurs du site de nous
contacter.
Aussi pour préciser pour quel domaine d'activité ils souhaitent
s'entretenir avec nous, et pour visualiser plus vite les choses, je
souhaitais mettre en place une liste où les 4 critères (Chauffage,
sanitaire, ...) apparaitraient l'un en dessous de l'autre et par un
simple clic selectionnerait leur choix.

Une combobox est, en français, une liste déroulante te permettant de
sélectionner un item parmi d'autres et la liste se referme une fois la
sélection faite. C'est le code que je t'ai proposé dans le message précédent
et que tu pouvais adapter pour tes 4 critères. Si tu veux afficher en
permanence les 4 items, ce n'est plus une combo mais une listbox (zone de
liste).
Mais d'après ton message ci-dessus, il semblerait que tu veuilles simplement
des liens hypertextes.
Dans ce cas :
- place 4 zones de texte les unes sous les autres,
- fais un clic droit sur la bordure d'une des zones | Lien hypertexte
- et selon ce que tu veux, soit tu indiques une adresse web, soit tu cliques
sur le bouton [Emplacement dans ce document] à gauche et tu sélectionnes la
diapo que tu veux afficher.

--
Tisane

D'après ce que tu m'explique c'est plus une combobox, puisque je souhaite que
la liste se referme.
j'ai donc appliqué ton conseil, mais cela aurait été trop facile, ça n'a
malheureusement pas fonctionné.

Voilà ce que donne le code une fois saisi :

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
SlideShowWindows(1).View.GotoSlide ComboBox1.ListIndex + 1
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
With ComboBox1
.AddItem "chauffage"
.AddItem "sanitaire"
.AddItem "ventilation"
.AddItem "climatisation"
End With
End Sub

Private Sub ComboBox1_Click()

End Sub

J'ai aussi modifié avant ceci la propriété du Combobox.
J'avais constaté qu'avec Columnheads deux lignes apparaissaient, au lieu
d'une seule. Je n'arrive toujours pas à avoir 4 lignes dans ma liste, comme
saisir les critères.

D'après ce que tu m'explique c'est plus une combobox, puisque je
souhaite que la liste se referme.
j'ai donc appliqué ton conseil, mais cela aurait été trop facile, ça
n'a malheureusement pas fonctionné.
Voilà ce que donne le code une fois saisi :
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
SlideShowWindows(1).View.GotoSlide ComboBox1.ListIndex + 1
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
With ComboBox1
.AddItem "chauffage"
.AddItem "sanitaire"
.AddItem "ventilation"
.AddItem "climatisation"
End With
End Sub
J'ai aussi modifié avant ceci la propriété du Combobox.
J'avais constaté qu'avec Columnheads deux lignes apparaissaient, au
lieu d'une seule. Je n'arrive toujours pas à avoir 4 lignes dans ma
liste, comme saisir les critères.

Ton code est ok, je viens de le copier/coller. Il fonctionne.
Tu veux supprimer les lignes

Private Sub ComboBox1_Click()
End Sub

Tu peux laisser Columnheads à False (tu n'as pas besoin d'avoir un titre
pour les colonnes dans la mesure où il n'y a qu'une colonne).
Tu devrais au moins voir les 4 items dans ta liste (en mode diaporama).

--
Tisane

Je reste au même point, rien ne s'inscrit.

Je suis un peu têtue. Cela *doit* fonctionner.
Voici le mode opératoire pas à pas, enfin je vais essayer :
- clic sur l'outil "Zone de liste déroulante" dans la "Boîte à outils
Contrôles"
- dessine ta liste
- clic droit sur la liste | Visualiser le code
- efface les 2 lignes qui sont affichées
- colle le code donné précédemment
- ferme la fenêtre de l'éditeur Visual Basic
- passe en mode Diaporama
- déroule ta liste.
Bien entendu, le nom ComboBox1 est peut-être à remplacer par ComboBox2 ou le
nom qui est affecté à ta liste déroulante dans sa propriété (Name).
Ne me dis pas que tu n'as pas les 4 items qui s'affichent !

--
Tisane

Coldlight wrote:

Rien ne s'affiche !!
J'ai bien suivi encore toutes les étapes et copier/coller :
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
SlideShowWindows(1).View.GotoSlide ComboBox1.ListIndex + 1
End Sub
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
With ComboBox1
.AddItem "chauffage"
.AddItem "sanitaire"
.AddItem "ventilation"
.AddItem "climatisation"
End With
End Sub
L'objet est bien combobox1 et la procèdure indique DropButtonClick !!

Je viens d'avoir une "illumination" (normal en cette période, remarque) :
tes macros sont bien activées au moins ?
Menu Outils | Macro | Sécurité, coche "Moyen" ou "Faible".
Quitte puis relance PowerPoint.

Si cela ne va toujours pas, envoie-moi l'extrait de ton diaporama avec le
minimum utile ou mets-le sur
http://cjoint.com/

--
Tisane

Coldlight wrote:

Une réelle illumination !! C'était ça !!
Le problème, parce qu'il y en a encore un lol, c'est que lorsque je
saisi un critère, il m'envoi n'importe où dans le diaporama !!

Pas vraiment n'importe où ;-) Il t'envoie à la diapo 1, 2, 3 ou 4 en
respectant l'ordre des items, comme demandé dans le module :
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then Exit Sub
SlideShowWindows(1).View.GotoSlide ComboBox1.ListIndex + 1
End Sub

Il faut en effet adapter ce module à ce que tu veux faire.
Que doit-il se passer quand tu cliques sur un item ?

--
Tisane

Bonjour Tisane,

Et bien je souhaitais que le critère saisi apparaissent dans la combobox.

Mais ce que du me dis me donne de nouvelles idées !!
alors je suis aussi interressé pour controler tout ça lol, mais ce serait
plutôt vers la fin du diaporama

Bonjour Coldlight,

Et bien je souhaitais que le critère saisi apparaissent dans la
combobox.
Mais ce que du me dis me donne de nouvelles idées !!
alors je suis aussi interressé pour controler tout ça lol, mais ce
serait plutôt vers la fin du diaporama

Je ne comprends pas. Le critère n'est pas à saisir. Il est déjà dans la
combobox (dans la liste).
Quand tu choisis un de ces critères, qu'est-ce que tu veux que ça fasse ?

Je crois que je ne vais pas attendre le 31 pour reprendre du Champagne. Il
me semble que je comprendrai mieux ;-))

--
Tisane

je m'y perd aussi ! lol

Je voulais que une fois que la personne à choisi par exemple le critère
"chauffage", celui-ci soit inscrit dans la combobox ou columnhead, et oui je
suis perdu avec ces termes bizarres lol

Maintenant que je sais qu'ils peuvent renvoyer à une autre diapo (je sais je
suis pas rapide), je m'interroge sur le fais de renvoyer à d'autres diapos

PS : L'abus d'alcool est dangereux pour la santé ;-)