çç ç |    Page 9 of 10    | è èè

Private Sub UserForm_Initialize()

     Dim vaDepartment As Variant

     Dim vaDeptCode As Variant

     Dim stDeptList() As String

     Dim i As Integer

     ' Liste des départements

     vaDepartment = VBA.Array( "Ain" , "Aisne" , "Allier" , "Alpes (Hte Prov.)" , "Alpes (Hautes)" , "Alpes (Maritimes)" , _

               "Ardèche" , "Ardennes" )

     ' Code des départements

     vaDeptCode = VBA.Array( "01" , "02" , "03" , "04" , "05" , "06" , "07" , "08" )

     ReDim stDeptList( 0 To UBound (vaDepartment), 0 To 1 )

     ' Boucle pour mise en place des valeurs

     For i = 0 To UBound (vaDepartment)

          stDeptList(i, 0 ) = vaDeptCode(i)

          stDeptList(i, 1 ) = vaDepartment(i)

     Next i

     ComboBox1.List = stDeptList

End Sub

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

' Autre variante possible

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

Private Sub UserForm1_Initialize()

     Dim TabMonnaies( 4 , 2 )

     ComboBox1.ColumnCount = 2

     'Nom des monnaies proposées

     TabMonnaies( 0 , 0 ) = "Franc"

     TabMonnaies( 1 , 0 ) = "Euro"

     TabMonnaies( 2 , 0 ) = "Dollar"

     TabMonnaies( 3 , 0 ) = "Livre"

     'Symboles des monnaies

     TabMonnaies( 0 , 1 ) = " F"

     TabMonnaies( 1 , 1 ) = " €"

     TabMonnaies( 2 , 1 ) = " $"

     TabMonnaies( 3 , 1 ) = " £"

     ComboBox1.List() = TabMonnaies

End Sub




çç ç |    Page 9 of 10    | è èè