combobox powerpoint

[Coldlight]

Bonjour,

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.

Je vous en remercie d'avance.

[Tisane]

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

[Coldlight]

Merci de m'avoir répondu si rapidement !!

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.

Je ne sais pas si tout ça est bien clair, mais merci comme même pour votre
aide !

[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

[Coldlight]

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.

[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

> 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

[Coldlight]

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

Merci en tout cas de ton aide !!

[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]

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 !!

[Tisane]

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]

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 !!

Désolé d'abuser de ton aide !!

[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

[Coldlight]

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

[Tisane]

Bonjour Coldlight,

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

[Coldlight]

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é ;-)

[Tisane]

> 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

Si tu veux que l'utilisateur reste sur la même diapo et que le critère
choisi dans la liste reste simplement affiché :
- supprime les 4 lignes de code :
Private Sub ComboBox1_Change()
...
End Sub
- et supprime l'instruction ComboBox1.Clear
dans le module restant.

C'est cela que tu veux ??

> 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

Je te laisse t'interroger ;-))

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

Sans aucun doute, mais la tisane alors...

--
Tisane

[Coldlight]

lol je sais plus si je dois rire ou pleurer, tous les critères se sont
multipliés !!

[Tisane]

> lol je sais plus si je dois rire ou pleurer, tous les critères se sont
> multipliés !!

"L'abus d'alcool est dangereux pour la santé" disais-tu ???
Tu es sûr d'avoir pris de la tisane, toi ?
J'ai l'impression que tu vois double ou triple.

Envoie ton fichier ou fais une copie d'écran de ton code dans la fenêtre
Visual Basic et mets-la sur
http://cjoint.com/

--
Tisane

[loups56]

Tisane a �crit le 27/12/2006 � 17h19 :
>> 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

Bonjour Tisane,
Cela fait trois jours que j'essaie d'appliquer ta proc�dure, en y appliquant
des modifications, mais cela ne fonctionne toujours pas !
Pourtant, cela a l'air de fonctionner chez toi !
De plus, c'est incroyable qu'une fonction de PowerPoint soit inapplicable.
Merci de me r�pondre : je suis en train de d�couvrir les macro-commandes sous
PowerPoint et j'envisage des tas d'applications pour mes �l�ves de coll�ge...
Merci pour eux.