CODES SOURCES - FOR -     Remarques: Le code suivant vous montre une application de la boule "For" (Pour). Dans cet exemple, on se connecte à une base de données, on ouvre un jeu d'enregistrement, puis on charge une liste déroulante avec un champs du jeu d'enregistrement. Il n'est pas nécessaire de maîtriser l'accès à la base de données pour comprendre cet exemple, l'intérêt ici est de comprendre le fonctionnement de la boucle.      L'interface :            Le code source du module général :   Option Explicit     Le code source du chargement de la feuille : Private Sub Form_Load() Dim MaBase As Database              'Déclaration de la base de données Dim MonRecordset As Recordset   'Déclaration d'un jeu d'enregistrements Dim X As Integer                            'Déclaration d'un compteur 'Ouverture de la base de données Set MaBase = OpenDatabase("c:\BdVbGenerator.mdb") 'Ouverture du jeux d'enregistrements Set MonRecordset = MaBase.OpenRecordset("Membres") 'Chargement de la liste avec le champs "Nom" de chaque enregistrement For X = 1 To MonRecordset.RecordCount     'Pour X allant de 1 au nombre d'enregistrement LstNom.AddItem MonRecordset("Nom")        'Ajouter à la liste le nom MonRecordset.MoveNext                               'Aller à l'enregistrement suivant Next End Sub                               ©Copyright Webmaster 2002