Problème exercice VBA

Version imprimable

13/06/2020, 22h22
Alexandre89910

2 pièce(s) jointe(s)

Problème exercice VBA

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

Pièce jointe 572744

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

Merci d'avance pour votre aide,
Cordialement

Pièce jointe 572746

Bonjour,

Le fichier
Pièce jointe 572802

Le code dans le module de la feuille "Quizz"

Code:

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

14/06/2020, 07h57
Menhir

Je ne suis pas sûr que faire ses devoirs à sa place l'aide à progresser...
14/06/2020, 08h04
ARTURO83

Bonjour Menhir,

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

Cdlt