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