Récupérer le numéro du rang d'un élément dans un tableau

**PapouMAC** · 25/12/2015, 16h07

Bonjour,

J'ai créé un tableau (avec Visual Studio express 2012) dans lequel j'ai rangé le nom des mois :

Dim Mois() = {"janvier", "février", "mars", .........."décembre"}

j'ai créé un comboBox pour sélectionner le mois souhaité.

Ce que j'aimerais, c'est obtenir le numéro du rang de l'élément choisit, pour le mettre dans une variable.

Exemple : pour décembre la variable devra contenir la valeur 11 puisque décembre a le rang 11 dans le tableau mois().

J'espère m'avoir bien fait comprendre, et d'être dans bon endroit pour poser ma question ?

Merci.

Voici mon code :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
 
Public Class Form1
 
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
        Initialisation()
        MsgBox("Ce petit programme va vous permettre de déterminer le jour de la semaine en fonction d'une date donnée." & Chr(13) & _
               "Le jour et le mois doivent être saisis via une liste (petite flèche à droite des cases), l'année elle," & _
               "peut être saisie manuellement ou via une liste.", , "")
 
    End Sub
    Public Sub Initialisation()
        Dim LeMois() = {"janvier", "février", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre"}
        Dim x As Integer, y As Integer, z As Integer
        For x = 1 To 31
            ComboBox1.Items.Add(x)
        Next x
        For y = 0 To 11
            ComboBox2.Items.Add(LeMois(y))
        Next y
        For z = 1583 To 2100
            ComboBox3.Items.Add(z)
        Next z
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim LeJour() = {"dimanche", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi"}
        Dim Code() = {105, 100, 106, 93, 104, 100, 99, 89, 106, 101, 99, 88}
        Dim jour As Integer, mois As Integer, annee As Integer, Rang_Mois As Integer
        Dim c As Single, a As Integer, m As Integer, j As Integer, y As Integer
        Dim Code_ASCII_mois As Integer
 
        jour = Val(ComboBox1.Text)
        If jour = 0 Then Exit Sub
        If ComboBox2.Text = "" Then Exit Sub
        Code_ASCII_mois = Asc(ComboBox2.Text)
        If ComboBox2.Text = "janvier" Then mois = 1
        If ComboBox2.Text = "février" Then mois = 2
        If ComboBox2.Text = "mars" Then mois = 3
        If ComboBox2.Text = "avril" Then mois = 4
        If ComboBox2.Text = "mai" Then mois = 5
        If ComboBox2.Text = "juin" Then mois = 6
        If ComboBox2.Text = "juillet" Then mois = 7
        If ComboBox2.Text = "août" Then mois = 8
        If ComboBox2.Text = "septembre" Then mois = 9
        If ComboBox2.Text = "octobre" Then mois = 10
        If ComboBox2.Text = "novembre" Then mois = 11
        If ComboBox2.Text = "décembre" Then mois = 12
        'mois = Val(ComboBox2.Text)
        annee = Val(ComboBox3.Text)
        If annee = 0 Then Exit Sub
 
        ' Calcul du jour de la semaine
 
        c = Int((14 - mois) / 12)
        a = annee - c
        m = mois + 12 * c - 2
        j = jour + a + Int(a / 4) - Int(a / 100) + Int(a / 400) + Int((31 * m) / 12)
        j = j Mod 7
 
        ' Affichage du jour
 
        Label1.Text = LeJour(j)
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class

**PapouMAC** · 25/12/2015, 17h15

Je viens de résoudre mon problème avec :

Code :

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

1
2
 
Index = Me.ComboBox2.text.SelectedIndex

**clementmarcotte** · 25/12/2015, 20h15

Bonjour,

Une autre voie que tu peux considérer pour manipuler des "équivalences" entre des mots et des constantes numériques, c'est d'utiliser une énumération avec le type Enum.

Là, je n'ai pas Visual Studio sous la main, mais tu peux quand même jeter un œil par là:

https://msdn.microsoft.com/library/s...v=vs.100).aspx