Exercice quizz VBA

Bonjour,

Nouveau sur le forum et débutant sur VBA, je me permets de lancer cette discussion car je fais actuellement face à un problème de taille

Dans le cadre d'un cours, j'ai un exercice à résoudre visant à créer un quizz (voir fichier attaché) mon problème est que je n'arrive pas à "lier" les 2 menus déroulants et à faire en sorte de valider ou non ma réponse lorsque je répond à une question..

Toute aide est la bienvenue, je vous remercie par avance !

Bonne journée,

Bonjour

Je pense que vous êtes sous MAC si je ne me trompe ?

Comme votre demande concerne un devoir... , essayez simplement ceci :

Sub Pays()
Dim p As String
Dim col As Byte

    ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
    With Selection
        .ListFillRange = "Villes!$P$1:$P$7"
        .LinkedCell = "$K$3"
        .DropDownLines = 8
        .Display3DShading = False
    End With

    With Sheets("quizz").DropDowns("Drop Down 2")
        p = .List(.ListIndex)
    End With

    With Sheets("Villes")
        col = .Range("A1:N1").Find(p, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
        :=False, SearchFormat:=False).Column
    End With
    ActiveSheet.Shapes.Range(Array("List Box 3")).Select
    With Selection
        .ListFillRange = "Villes!" & Range(Cells(2, col), Cells(10, col)).Address
    End With
End Sub

Dans VBA gardez en mémoire que vous pouvez supprimer aussi tous les select et selection

Je ne l'ai pas fait ici pour vous laisser apprendre à manipuler VBA

Si ok, merci de cloturer le fil en cliquant sur le petit v en haut à droite

Cordialement

Bonjour Dan et merci pour votre retour,

Effectivement je suis sous MAC, cela pose-t-il un problème ?

Il y a t-il également un moyen d'éviter de cliquer sur le bouton pour relancer la macro à chaque changement de pays ? Les villes peuvent-elles être "automatiquement affiché" en fonction du pays sélectionné ?

Merci pour votre réponse,

Bien cordialement,

Re

Possible oui mais bon comme je dis souvent, les objets sur les feuilles c'est à éviter. Je regarderai

Toutefois, je ne comprends pas pourquoi on n'a pas mis les listes déroulantes dans des cellules. C'est nettement plus simple.

Par contre comme c'est un exercice scolaire, cela vous est imposé je suppose.

Crdlt

Edit :

- Mettez cette macro dans un module

Sub Zonecombinée2_QuandChangement()
Call Pays
End Sub

- Ensuite clique droite sur la liste deroulante des pays

• dans le menu choisissez "affecter à un macro"
• sélectionnez la macro ci-dessus

Super merci !

Il ne me reste plus qu'à trouver comment afficher la ville sélectionnée et le résultat (gagné ou perdu).

Merci encore pour votre aide

Re,

Ok. N'oubliez pas de cloturer le fil si vous en avez terminé

Clique sur le petit v en haut à droite dans votre dernier post.

Crdlt