Eviter des répétitions

Bonjour,

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

Comment faire ??:aie:

merci de votre aide:king:

Code:

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"

Bonjour,

Code:

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

merci beaucoup:yaisse2: