|    Page 7 of 10    |

' *********************************************

'Ajout d'items correspondant des annes pour

' remplir une ComboBox ou Listbox.

' *********************************************

Private Sub UserForm_Initialize()

     ReDim Annee( 1 To 12 )

     For i = 1 To 12

          Annee(i) = 1998 + (i)

          Me.ComboBox1.AddItem Annee(i)

     Next

End Sub




|    Page 7 of 10    |