Discussion :

[Alexandre89910]

Bonsoir,

Pour les besoins d'un exercice, j'essaye d'afficher la ville sélectionnée via le menu déroulant dans la cellule jaune (voir capture d'ecran) et d'afficher le résultat (gagné si c'est bien la capitale/ perdu sinon) mais après des heures d'essais, je n'y arrive toujours pas..



Pouvez-vous m'aider en m'indiquant le code correspondant à ma requête ?

Merci d'avance pour votre aide,
Cordialement

QUIZZ (2).xlsm

[ARTURO83]

Bonjour,

Le fichier
Pièce jointe 572802

Le code dans le module de la feuille "Quizz"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Compare Text
 
Private Sub ListBox1_Click()
    Dim Q As Worksheet, v As Worksheet
    Dim Col_Pays As Long
    Dim vl As Range
    Application.ScreenUpdating = False
    Set Q = Sheets("Quizz")
    Set v = Sheets("Villes")
    Range("H24").Value = ListBox1.List(ListBox1.ListIndex)
    ville = Range("H24").Value
    Col_Pays = v.Cells(1, Sheets("Quizz").Range("K3").Value * 2 - 1).Column
    Set vl = v.Range(v.Cells(1, Col_Pays), v.Cells(10, Col_Pays)).Find(ville)
    If Not vl Is Nothing Then
        If v.Cells(vl.Row, Col_Pays + 1) = "c" Then Q.Range("K24").Value = "Gagné" Else: Q.Range("K24").Value = "Perdu"
    End If
    Set Q = Nothing
    Set v = Nothing
    Set vl = Nothing
End Sub

Cdlt

[Menhir]

Je ne suis pas sûr que faire ses devoirs à sa place l'aide à progresser...

[ARTURO83]

Bonjour Menhir,

Vous avez entièrement raison, je serai plus attentif la prochaine fois.

Cdlt