Discussion :

[Tempus01]

Bonjour le forum,

Je recherche un code qui me permettrait d'avoir moins de ligne de IF.

Je m'explique, mon code fonctionne bien mais il est trop lourd/long, je me demande si il n'existe pas une autre façon de procéder afin d'arriver au même résultats.

le Code me permet d'ouvrir un dossier, il y a 14 dossiers principal Music1 Music2,... jusqu'à Music14, puis les 3 sous dossier 2019, 2020 et 2021 et pour finir 1, 2, 3...12 pour les mois de l'année.

Exemple:

C: \Music1\2019\1\
C: \Music1\2019\2\
....
C: \Music1\2019\12\

C:\Music1\2020\1\
C: \Music1\2020\2\
....
C: \Music1\2020\12\

C:\Music1\2021\1\
C: \Music1\2021\2\
....
C: \Music1\2021\12\

Cela va jusqu'à Music 14.

Sur le formulaire il y a 3 combobox et un bouton.

Voici un bout de 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
[B
            Dim Janvier As String
            Dim Février As String
            Dim Mars As String
            Dim Avril As String
            Dim Mai As String
            Dim Juin As String
            Dim Juillet As String
            Dim Août As String
            Dim Septembre As String
            Dim Octobre As String
            Dim Novembre As String
            Dim Décembre As String
 
            Dim V1 = "\1"
            Dim V2 = "\2"
            Dim V3 = "\3"
            Dim V4 = "\4"
            Dim V5 = "\11"
            Dim V6 = "\5"
            Dim V7 = "\6"
            Dim V8 = "\7"
            Dim V9 = "\8"
            Dim V10 = "\9"
            Dim V11 = "\10"
            Dim V12 = "\12"
 
 Dim Dossier2019 = "C: \Music1\2019"
 Dim Dossier2020 = "C: \Music1\2020"
 Dim Dossier2021 = "C: \Music1\2021"
 
 
        ComboBox1.Items.Add("Music1")
        ComboBox1.Items.Add("Music2")
        ComboBox1.Items.Add("Music3")
        ComboBox1.Items.Add("Music4")
        ComboBox1.Items.Add("Music5")
        ComboBox1.Items.Add("Music6")
        ComboBox1.Items.Add("Music7")
        ComboBox1.Items.Add("Music8")
        ComboBox1.Items.Add("Music9")
        ComboBox1.Items.Add("Music10")
        ComboBox1.Items.Add("Music11")
        ComboBox1.Items.Add("Music12")
        ComboBox1.Items.Add("Music13")
        ComboBox1.Items.Add("Music14")
 
        ComboBox3.Items.Add("Janvier")
        ComboBox3.Items.Add("Février")
        ComboBox3.Items.Add("Mars")
        ComboBox3.Items.Add("Avril")
        ComboBox3.Items.Add("Mai")
        ComboBox3.Items.Add("Juin")
        ComboBox3.Items.Add("Juillet")
        ComboBox3.Items.Add("Août")
        ComboBox3.Items.Add("Septembre")
        ComboBox3.Items.Add("Octobre")
        ComboBox3.Items.Add("Novembre")
        ComboBox3.Items.Add("Décembre") 
 
        ComboBox2.Items.Add("2021")
        ComboBox2.Items.Add("2020")
        ComboBox2.Items.Add("2019")
 
 
 
 If ComboBox1.Text = "Music1" And ComboBox2.Text = "2021" And ComboBox3.Text = "Janvier" Then
                Janvier = Dossier2021 + V1
                Process.Start(Janvier)

J'ai donc des dizaines et des dizaines de IF....

Avez vous une idée pour raccourcir le code ?

Merci le forum,

[ProgElecT]

Salut
Aucun besoin de toutes tes variables, tu récupères les informations de tes ComboBBoxs, sachant que ComboBox.Text correspond à la ligne visible/sélectionnée du ComboBox,
En laissant tomber les Ifs, il me semble que ChemDoss = "C:\" & ComboBox1.Text & "\" & ComboBox2.Text & "\" & ComboBox3.Text puis, Process.Start(ChemDoss).

[MABROUKI]

bonjour

Le choix du dossier etant du ressort de l'user ,OpenDialog est ton ami ,avec un seul bouton.

bon code.

[ProgElecT]

... ,OpenDialog est ton ami ....

Oui mais ... , des fois on ne veut pas que l'utilisateur se balade partout dans les dossiers autres que ceux nécessaires pour le programme.

[Tempus01]

Merci ProgElecT

Cela a fonctionné parfaitement