|    Page 5 of 10    |

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

'Ajout d'items correspondant des mois pour

' remplir une ComboBox ou Listbox.

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

Private Sub UserForm_Initialize()

     Dim Mois( 1 To 12 ) As String

     Dim i As Integer

     ' Creation d'un tableau des noms de mois

     For i = 1 To 12

          Mois(i) = Format ( DateSerial ( 1 , i, 1 ), "mmmm" )

          Me.ComboBox1.AddItem Mois(i)

     Next i

End Sub




|    Page 5 of 10    |