Code VBA et insertion de valeur pour liste déroulante [Résolu]

- - Dernière réponse : m@rina
Messages postés
15352
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 août 2019
- 9 août 2019 à 13:56
Bonjour,
Je suis enseignante et j'ai décidé d'utiliser au mieux le TNI présent dans ma classe. Pleine d'enthousiasme je me lance dans un power point avec des textes à trous. L'idée est que les listes déroulantes donne plusieurs choix possibles aux élèves.
Après 4h de recherche, j'ai trouvé le mode développeur, insérer la liste déroulante dans ma première phrase mais je me casse les dents sur le code VBA pour insérer les valeurs... Très honnêtement je n'y connais rien en code. En fouillant sur différent forum j'en suis arrivée là :

Private Sub ComboBox1_DropButtonClick()
If ComboBox1.ListCount = 0 Then
With ComboBox1
ComboBox1.AddItem "?"
ComboBox1.AddItem "!"
ComboBox1.AddItem "."
ComboBox1.AddItem "..."
End With
End If
End Sub

Mais quand je lance le diaporama j'obtiens ce message : Erreur compilation attendu : identificateur.
Que manque t-il à mon code?

Bon sinon je ne tiens pas forcément à utiliser Power Point, alors si vous connaissez des solutions plus simple mais avec un design aussi sympa (choix des couleurs, des polices, des tailles, etc), je suis preneuse!
Afficher la suite 

2 réponses

Meilleure réponse
Messages postés
15352
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 août 2019
8618
1
Merci
Bonjour

Tel que tu le donnes, ce code est correct.
Je pense que tu as d'autres lignes de code qui posent problème dans ta présentation.

Probablement un problème de syntaxe.

m@rina

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 58732 internautes nous ont dit merci ce mois-ci

Commenter la réponse de m@rina
0
Merci
Merci Marin@!
Effectivement j'ai effacé ce qu'il y a avait dans la fenêtre et copié collé le code que j'ai mis dans ma première question et je n'ai plus de message d'erreur!
Malheureusement, quand je lance le diaporama, le menu déroulant est reste vide...
m@rina
Messages postés
15352
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 août 2019
8618 -
Bonsoir,

Es-tu certaine du nom de ton combobox ? Si tu as fait divers essais, ce n'est peut être plus le Combobox1.
Quant on crée une macro événementielle sur un contrôle ActiveX, on double clique dessus, et l'éditeur VBA s'ouvre automatiquement avec le nom par défaut de la macro événementielle (en principe un événement Change), et là, on voit le nom du contrôle.
Si on ne veut pas un Change, on clique sur la liste déroulante en haut à droite et on choisit son événement, en l'occurrence DropButtonClick

m@rina
C'était exactement ça!
Merci beaucoup pour ton aide Marin@, je vais pouvoir utiliser les menus déroulant jusqu'à rendre mes élèves aveugles!!! ;P
m@rina
Messages postés
15352
Date d'inscription
mardi 12 juin 2007
Statut
Contributeur
Dernière intervention
20 août 2019
8618 -
les pauvres ! :))
Je mets le topic en résolu.
Bonne fin de vacances avant la torture des élèves !
m@rina
Commenter la réponse de vanessa