CODES SOURCES - LISTEBOX - - COMBOBOX -     Remarques: Le code suivant permet de remplir une liste déroulante (ou une liste classique). Dans le code qui vous est présenté, une liste déroulante (ou combobox) est appelé "ContactLst". Ce code peut être placé dans la procédure "Form_Load" ou encore derrière un bouton de commande ...    Le code source  Private Sub Form_Load()     'Déclaration d'une variable Dim Compteur As Integer     'Déclaration d'un tableau Dim NomTab(1, 4) As String     'Remplissage du tableau NomTab(0, 0) = "Laurent" NomTab(0, 1) = "Jérôme" NomTab(0, 2) = "François" NomTab(0, 3) = "Mélanie" NomTab(0, 4) = "Julien" NomTab(1, 0) = "DUPONT" NomTab(1, 1) = "MARTIN" NomTab(1, 2) = "BONNINGUES" NomTab(1, 3) = "HUMETZ" NomTab(1, 4) = "DURAND" While Compteur <= 4     'Ajout des éléments du tableau dans la liste     ContactLst.AddItem NomTab(0, Compteur) & " " & NomTab(1, Compteur)     Compteur = Compteur + 1 'Incrémentation du compteur Wend 'On affihe le dernier élément de la box ContactLst.Text = ContactLst.List(ContactLst.ListCount - 1) End Sub                         ©Copyright Webmaster 2002