|    Page 3 of 10    |

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

' Ajout d'item avec la mthode AddItem pour

' remplir une ComboBox ou Listbox.

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

Private Sub UserForm_Initialize()

     With Me.ComboBox1

          ComboBox1.AddItem "Domaine Alexis Rouge"

          ComboBox1.AddItem "Domaine du Grand Crs Blanc"

          ComboBox1.AddItem "Domaine du Grand Crs Muscat"

          ComboBox1.AddItem "Domaine du Grand Crs Ros"

          ComboBox1.AddItem "Domaine du Grand Crs Rouge"

     End With

End Sub




|    Page 3 of 10    |