Discussion :

[perchman]

Bonjour,

voilà dans mon initialisation du UserForm, j'ai le code ci-dessous; et j'aimerais bien éviter les répétitions !!

Comment faire ??

merci de votre aide

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
    CBB_modif_stage_annee_0.AddItem "1ère Année"
    CBB_modif_stage_annee_0.AddItem "2ème Année"
    CBB_modif_stage_annee_0.AddItem "3ème Année"
    CBB_modif_stage_annee_0.AddItem "4ème Année"
    CBB_modif_stage_annee_0.AddItem "5ème Année"
 
    CBB_modif_stage_annee_1.AddItem "1ère Année"
    CBB_modif_stage_annee_1.AddItem "2ème Année"
    CBB_modif_stage_annee_1.AddItem "3ème Année"
    CBB_modif_stage_annee_1.AddItem "4ème Année"
    CBB_modif_stage_annee_1.AddItem "5ème Année"
 
    CBB_modif_stage_annee_2.AddItem "1ère Année"
    CBB_modif_stage_annee_2.AddItem "2ème Année"
    CBB_modif_stage_annee_2.AddItem "3ème Année"
    CBB_modif_stage_annee_2.AddItem "4ème Année"
    CBB_modif_stage_annee_2.AddItem "5ème Année"

[ucfoutu]

Bonjour,

Code :

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

1
2
3
4
5
6
7
Dim suf As String
 For i = 0 To 4
   For j = 0 To 2
     If i = 0 Then suf = "ère" Else suf = "ème"
     Me.Controls("CBB_modif_stage_annee_" & j).AddItem i + 1 & suf & " Année"
   Next
 Next