Si vous voulez faire une boucle à la place, alors vous pouvez employer le code que vous avez signalé dans le sous-marin d'initialisation, mais vous ne voulez pas x + 1, vous voulez x :
1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 :
UserForm_Initialize secondaire privé () Faible x en tant que longtemps Avec Me.DaysOfSupply Pour x = 1 à 100 .AddItem X Prochain x Extrémité avec Sous-marin d'extrémité